Mercurial > emacs

comparison lisp/mail/mailpost.el @ 222:d1d8765cc35e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Tue, 02 Apr 1991 22:13:25 +0000
parents 504879714b38
children 505130d1ddf8
comparison
equal deleted inserted replaced
221:ce8e0192266e 222:d1d8765cc35e
11 ;; 11 ;;
12 12
13 ;; (setq send-mail-function 'post-mail-send-it) 13 ;; (setq send-mail-function 'post-mail-send-it)
14 14
15 (defun post-mail-send-it () 15 (defun post-mail-send-it ()
16 "\ 16 "The MH -post interface for `rmail-mail' to call.
17 the MH -post interface for rmail-mail to call. 17 To use it, include \"(setq send-mail-function 'post-mail-send-it)\" in
18 to use it, include (setq send-mail-function 'post-mail-send-it) in site-init." 18 site-init."
19 (let ((errbuf (if mail-interactive 19 (let ((errbuf (if mail-interactive
20 (generate-new-buffer " post-mail errors") 20 (generate-new-buffer " post-mail errors")
21 0)) 21 0))
22 (temfile "/tmp/,rpost") 22 (temfile "/tmp/,rpost")
23 (tembuf (generate-new-buffer " post-mail temp")) 23 (tembuf (generate-new-buffer " post-mail temp"))