Mercurial > emacs
comparison lisp/mail/mailpost.el @ 222:d1d8765cc35e
*** 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")) |