1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00

(mail-do-fcc): Handle dont-write-the-file

correctly--don't write msg to the file after saving it from a buffer.
This commit is contained in:
Karl Heuer 1997-10-20 03:49:42 +00:00
parent 5cb1f7280a
commit f6f4d6902b

View File

@ -905,26 +905,26 @@ the user from the mailer."
(if max (narrow-to-region (point-min) max))))))
;; Append to the file directly,
;; unless we've already taken care of it.
(if (and (not dont-write-the-file)
(file-exists-p (car fcc-list))
(mail-file-babyl-p (car fcc-list)))
;; If the file is a Babyl file,
;; convert the message to Babyl format.
(let ((coding-system-for-write
(or rmail-file-coding-system
'emacs-mule)))
(save-excursion
(set-buffer (get-buffer-create " mail-temp"))
(setq buffer-read-only nil)
(erase-buffer)
(insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
"Date: " (mail-rfc822-date) "\n")
(insert-buffer-substring curbuf beg2 end)
(insert "\n\C-_")
(write-region (point-min) (point-max) (car fcc-list) t)
(erase-buffer)))
(write-region
(1+ (point-min)) (point-max) (car fcc-list) t))
(unless dont-write-the-file
(if (and (file-exists-p (car fcc-list))
(mail-file-babyl-p (car fcc-list)))
;; If the file is a Babyl file,
;; convert the message to Babyl format.
(let ((coding-system-for-write
(or rmail-file-coding-system
'emacs-mule)))
(save-excursion
(set-buffer (get-buffer-create " mail-temp"))
(setq buffer-read-only nil)
(erase-buffer)
(insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
"Date: " (mail-rfc822-date) "\n")
(insert-buffer-substring curbuf beg2 end)
(insert "\n\C-_")
(write-region (point-min) (point-max) (car fcc-list) t)
(erase-buffer)))
(write-region
(1+ (point-min)) (point-max) (car fcc-list) t)))
(and buffer (not dont-write-the-file)
(with-current-buffer buffer
(set-visited-file-modtime))))