Mercurial > emacs
comparison lisp/gnus/nngateway.el @ 82951:0fde48feb604
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) |