Mercurial > hg > xemacs-beta

comparison lisp/gnus/nngateway.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents ec9a17fef872
children
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
56 (let ((buf (current-buffer))) 56 (let ((buf (current-buffer)))
57 (nnheader-temp-write nil 57 (nnheader-temp-write nil
58 (insert-buffer-substring buf) 58 (insert-buffer-substring buf)
59 (message-narrow-to-head) 59 (message-narrow-to-head)
60 (funcall nngateway-header-transformation nngateway-address) 60 (funcall nngateway-header-transformation nngateway-address)
61 (goto-char (point-max))
62 (insert mail-header-separator "\n")
61 (widen) 63 (widen)
62 (let (message-required-mail-headers) 64 (let (message-required-mail-headers)
63 (message-send-mail)))))) 65 (funcall message-send-mail-function))))))
64 66
65 ;;; Internal functions 67 ;;; Internal functions
66 68
67 (defun nngateway-simple-header-transformation (gateway) 69 (defun nngateway-simple-header-transformation (gateway)
68 "Transform the headers to use GATEWAY." 70 "Transform the headers to use GATEWAY."