procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p.

Browse source
This commit is contained in:
Stefan Monnier 2011-06-25 09:38:32 -04:00
parent f9ad64f3c1
commit c206f5b0f7
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2011-06-25 Stefan Monnier <monnier@iro.umontreal.ca>
* mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p.
2011-06-25 Giuseppe Scrivano <gscrivano@gnu.org>
* net/browse-url.el (browse-url-firefox-program): Add icecat to

2
lisp/mail/rmail.el
View file

@ -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)