X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnngateway.el;h=cf5f99482306439cd027822e724e9eaaf4dbbf66;hb=b74fac078f05fa78c65ef6ac22a644331120f096;hp=6b59be59d2c3be4ed360556f14382da922fafbba;hpb=28719fdf2bca485254cc8f995e0ab58deb8aacd9;p=elisp%2Fgnus.git- diff --git a/lisp/nngateway.el b/lisp/nngateway.el index 6b59be5..cf5f994 100644 --- a/lisp/nngateway.el +++ b/lisp/nngateway.el @@ -1,5 +1,7 @@ ;;; nngateway.el --- posting news via mail gateways -;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail @@ -18,13 +20,14 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: ;;; Code: +(eval-when-compile (require 'cl)) (require 'nnoo) (require 'message) @@ -54,7 +57,7 @@ parameter -- the gateway address.") (nngateway-open-server server)) ;; Rewrite the header. (let ((buf (current-buffer))) - (nnheader-temp-write nil + (with-temp-buffer (insert-buffer-substring buf) (message-narrow-to-head) (funcall nngateway-header-transformation nngateway-address) @@ -62,7 +65,8 @@ parameter -- the gateway address.") (insert mail-header-separator "\n") (widen) (let (message-required-mail-headers) - (funcall message-send-mail-function)) + (funcall (or message-send-mail-real-function + message-send-mail-function))) t)))) ;;; Internal functions @@ -81,7 +85,7 @@ parameter -- the gateway address.") (message-remove-header "to") (message-remove-header "cc") (goto-char (point-min)) - (insert "To: mail2news@" gateway "\n")) + (insert "To: " gateway "\n")) (nnoo-define-skeleton nngateway)