diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2017-01-26 21:35:58 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2017-01-26 21:35:58 +0100 |
| commit | eba8046f05ca288608ebd065e089764275a503d2 (patch) | |
| tree | f1f24f53afbb9612ccd7e2bab294b784d25d4ace /lisp | |
| parent | 301ee3d0319d489087bc548beb2ea5e7900224b6 (diff) | |
| download | emacs-eba8046f05ca288608ebd065e089764275a503d2.tar.gz emacs-eba8046f05ca288608ebd065e089764275a503d2.tar.bz2 emacs-eba8046f05ca288608ebd065e089764275a503d2.zip | |
(message-do-fcc): Modernise the code slightly.
* lisp/gnus/message.el (message-do-fcc): Modernise the code slightly.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/message.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 9af38c01ed7..7cff8b80a21 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -5393,15 +5393,11 @@ Otherwise, generate and save a value for `canlock-password' first." "Process Fcc headers in the current buffer." (let ((case-fold-search t) (buf (current-buffer)) - list file - (mml-externalize-attachments message-fcc-externalize-attachments)) - (save-excursion - (save-restriction - (message-narrow-to-headers) - (setq file (message-fetch-field "fcc" t))) - (when file - (set-buffer (get-buffer-create " *message temp*")) - (erase-buffer) + (mml-externalize-attachments message-fcc-externalize-attachments) + (file (message-field-value "fcc" t)) + list) + (when file + (with-temp-buffer (insert-buffer-substring buf) (message-encode-message-body) (save-restriction @@ -5442,8 +5438,7 @@ Otherwise, generate and save a value for `canlock-password' first." (if (and (file-readable-p file) (mail-file-babyl-p file)) (rmail-output file 1 nil t) (let ((mail-use-rfc822 t)) - (rmail-output file 1 t t)))))) - (kill-buffer (current-buffer)))))) + (rmail-output file 1 t t)))))))))) (defun message-output (filename) "Append this article to Unix/babyl mail file FILENAME." |