Mercurial > emacs
comparison lisp/message.el @ 15980:b3fc648a4a8e
1996-08-29 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* message.el (message-do-fcc): Supply the FROM-GNUS parameter to
`rmail-output'.
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Fri, 30 Aug 1996 00:27:46 +0000 |
| parents | 9f99285bb635 |
| children | 205846f84b5e |
comparison
equal
deleted
inserted
replaced
| 15979:9c096f0805b0 | 15980:b3fc648a4a8e |
|---|---|
| 1788 (make-directory (file-name-directory file) t)) | 1788 (make-directory (file-name-directory file) t)) |
| 1789 (if (and message-fcc-handler-function | 1789 (if (and message-fcc-handler-function |
| 1790 (not (eq message-fcc-handler-function 'rmail-output))) | 1790 (not (eq message-fcc-handler-function 'rmail-output))) |
| 1791 (funcall message-fcc-handler-function file) | 1791 (funcall message-fcc-handler-function file) |
| 1792 (if (and (file-readable-p file) (mail-file-babyl-p file)) | 1792 (if (and (file-readable-p file) (mail-file-babyl-p file)) |
| 1793 (rmail-output file 1) | 1793 (rmail-output file 1 nil t) |
| 1794 (let ((mail-use-rfc822 t)) | 1794 (let ((mail-use-rfc822 t)) |
| 1795 (rmail-output file 1 t t)))))) | 1795 (rmail-output file 1 t t)))))) |
| 1796 (kill-buffer (current-buffer))))) | 1796 (kill-buffer (current-buffer))))) |
| 1797 | 1797 |
| 1798 (defun message-cleanup-headers () | 1798 (defun message-cleanup-headers () |