diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1999-02-20 14:05:57 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1999-02-20 14:05:57 +0000 |
| commit | 6748645fc3dd1604ed57a883b7c346128af27d90 (patch) | |
| tree | c4c528db7873d3ef96121c002b4d09209c305dca /lisp/gnus/nngateway.el | |
| parent | 44a6ed57c9af413959fdebe38649c0df4a055fca (diff) | |
| download | emacs-6748645fc3dd1604ed57a883b7c346128af27d90.tar.gz | |
Upgrading to Gnus 5.7; see ChangeLog
Diffstat (limited to 'lisp/gnus/nngateway.el')
| -rw-r--r-- | lisp/gnus/nngateway.el | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lisp/gnus/nngateway.el b/lisp/gnus/nngateway.el index 5888d48b272..c580ac55309 100644 --- a/lisp/gnus/nngateway.el +++ b/lisp/gnus/nngateway.el @@ -1,7 +1,7 @@ ;;; nngateway.el --- posting news via mail gateways -;; Copyright (C) 1996,97 Free Software Foundation, Inc. +;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> +;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news, mail ;; This file is part of GNU Emacs. @@ -63,7 +63,8 @@ parameter -- the gateway address.") (insert mail-header-separator "\n") (widen) (let (message-required-mail-headers) - (funcall message-send-mail-function)))))) + (funcall message-send-mail-function)) + t)))) ;;; Internal functions @@ -76,6 +77,13 @@ parameter -- the gateway address.") (insert "To: " (nnheader-replace-chars-in-string newsgroups ?. ?-) "@" gateway "\n"))) +(defun nngateway-mail2news-header-transformation (gateway) + "Transform the headers for sending to a mail2news gateway." + (message-remove-header "to") + (message-remove-header "cc") + (goto-char (point-min)) + (insert "To: " gateway "\n")) + (nnoo-define-skeleton nngateway) (provide 'nngateway) |