Mercurial > emacs

comparison lisp/gnus/nngateway.el @ 24357:15fc6acbae7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Upgrading to Gnus 5.7; see ChangeLog
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sat, 20 Feb 1999 14:05:57 +0000
parents 5108cfb51c51
children 9968f55ad26e
comparison
equal deleted inserted replaced
24356:a5a611ef40f6 24357:15fc6acbae7a
1 ;;; nngateway.el --- posting news via mail gateways 1 ;;; nngateway.el --- posting news via mail gateways
2 ;; Copyright (C) 1996,97 Free Software Foundation, Inc. 2 ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
3 3
4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
5 ;; Keywords: news, mail 5 ;; Keywords: news, mail
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
8 8
9 ;; GNU Emacs is free software; you can redistribute it and/or modify 9 ;; GNU Emacs is free software; you can redistribute it and/or modify
61 (funcall nngateway-header-transformation nngateway-address) 61 (funcall nngateway-header-transformation nngateway-address)
62 (goto-char (point-max)) 62 (goto-char (point-max))
63 (insert mail-header-separator "\n") 63 (insert mail-header-separator "\n")
64 (widen) 64 (widen)
65 (let (message-required-mail-headers) 65 (let (message-required-mail-headers)
66 (funcall message-send-mail-function)))))) 66 (funcall message-send-mail-function))
67 t))))
67 68
68 ;;; Internal functions 69 ;;; Internal functions
69 70
70 (defun nngateway-simple-header-transformation (gateway) 71 (defun nngateway-simple-header-transformation (gateway)
71 "Transform the headers to use GATEWAY." 72 "Transform the headers to use GATEWAY."
74 (message-remove-header "cc") 75 (message-remove-header "cc")
75 (goto-char (point-min)) 76 (goto-char (point-min))
76 (insert "To: " (nnheader-replace-chars-in-string newsgroups ?. ?-) 77 (insert "To: " (nnheader-replace-chars-in-string newsgroups ?. ?-)
77 "@" gateway "\n"))) 78 "@" gateway "\n")))
78 79
80 (defun nngateway-mail2news-header-transformation (gateway)
81 "Transform the headers for sending to a mail2news gateway."
82 (message-remove-header "to")
83 (message-remove-header "cc")
84 (goto-char (point-min))
85 (insert "To: " gateway "\n"))
86
79 (nnoo-define-skeleton nngateway) 87 (nnoo-define-skeleton nngateway)
80 88
81 (provide 'nngateway) 89 (provide 'nngateway)
82 90
83 ;;; nngateway.el ends here 91 ;;; nngateway.el ends here