From c206f5b0f712f347c37cca49236365e54ff17f63 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 25 Jun 2011 09:38:32 -0400 Subject: [PATCH] * lisp/mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p. --- lisp/ChangeLog | 4 ++++ lisp/mail/rmail.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d95f9000217..5370471bcc3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-06-25 Stefan Monnier + + * mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p. + 2011-06-25 Giuseppe Scrivano * net/browse-url.el (browse-url-firefox-program): Add icecat to diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 04ff457dcfb..640f1dfff29 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2674,7 +2674,7 @@ The current mail message becomes the message displayed." (let ((modiff (buffer-modified-p))) (rmail-set-attribute rmail-unseen-attr-index nil) (unless modiff - (set-buffer-modified-p nil))) + (restore-buffer-modified-p modiff))) ;; bracket the message in the mail ;; buffer and determine the coding system the transfer encoding. (rmail-swap-buffers-maybe) -- 2.39.5