From 7abb29455e97eb3e85e63f02122fe5887e68a738 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 7 Mar 2001 17:55:36 +0000 Subject: [PATCH] 2001-03-07 12:00:00 ShengHuo ZHU * message.el (message-set-auto-save-file-name): Save a copy. --- lisp/ChangeLog | 4 ++++ lisp/message.el | 2 ++ 2 files changed, 6 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 094587c9c..5a9bdaea3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-03-07 12:00:00 ShengHuo ZHU + + * message.el (message-set-auto-save-file-name): Save a copy. + 2001-03-07 11:00:00 ShengHuo ZHU * gnus-score.el (gnus-score-find-bnews): Print messages on illegal diff --git a/lisp/message.el b/lisp/message.el index 1afa7196a..840332165 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3849,6 +3849,8 @@ than 988 characters long, and if they are not, trim them until they are." (setq buffer-file-name (expand-file-name "*message*" message-auto-save-directory)) (setq buffer-auto-save-file-name (make-auto-save-file-name))) + (set-buffer-modified-p t) ;; Force Gnus to save a copy in drafts. + (save-buffer) (clear-visited-file-modtime) (setq buffer-file-coding-system message-draft-coding-system))) -- 2.25.1