Mercurial > emacs

comparison lisp/gnus/nngateway.el @ 82951:0fde48feb604

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import Gnus 5.10 from the v5_10 branch of the Gnus repository.
author Andreas Schwab <schwab@suse.de>
date Thu, 22 Jul 2004 16:45:51 +0000
parents 695cf19ef79e
children 18a818a2ee7c cce1c0ee76ee
comparison
equal deleted inserted replaced
56503:8bbd2323fbf2 82951:0fde48feb604
1 ;;; nngateway.el --- posting news via mail gateways 1 ;;; nngateway.el --- posting news via mail gateways
2 2
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000 3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Keywords: news, mail 7 ;; Keywords: news, mail
8 8
63 (funcall nngateway-header-transformation nngateway-address) 63 (funcall nngateway-header-transformation nngateway-address)
64 (goto-char (point-max)) 64 (goto-char (point-max))
65 (insert mail-header-separator "\n") 65 (insert mail-header-separator "\n")
66 (widen) 66 (widen)
67 (let (message-required-mail-headers) 67 (let (message-required-mail-headers)
68 (funcall message-send-mail-function)) 68 (funcall (or message-send-mail-real-function
69 message-send-mail-function)))
69 t)))) 70 t))))
70 71
71 ;;; Internal functions 72 ;;; Internal functions
72 73
73 (defun nngateway-simple-header-transformation (gateway) 74 (defun nngateway-simple-header-transformation (gateway)