aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1998-06-04 06:47:29 +0000
committerKarl Heuer1998-06-04 06:47:29 +0000
commit1dbd9103606128bc861a4210f14f1dbc08f05fb3 (patch)
treea18bdc0103e87edc5218c92ef8b6ee2b932e63ee
parent6a91b84a41870d33e83013178561f1515516afca (diff)
downloademacs-1dbd9103606128bc861a4210f14f1dbc08f05fb3.tar.gz
emacs-1dbd9103606128bc861a4210f14f1dbc08f05fb3.zip
(rmail-summary-rmail-update): Set message
unseen only if `rmail-summary-put-back-unseen' is non-nil.
-rw-r--r--lisp/mail/rmailsum.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index f9354710749..0e07116fba2 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -772,8 +772,9 @@ Search, the `unseen' attribute is restored.")
772 ;; If we first saw the previous message in this search, 772 ;; If we first saw the previous message in this search,
773 ;; and we have gone to a different message while searching, 773 ;; and we have gone to a different message while searching,
774 ;; put back `unseen' on the former one. 774 ;; put back `unseen' on the former one.
775 (if rmail-summary-put-back-unseen
775 (rmail-set-attribute "unseen" t 776 (rmail-set-attribute "unseen" t
776 rmail-current-message) 777 rmail-current-message))
777 ;; Arrange to do that later, for the new current message, 778 ;; Arrange to do that later, for the new current message,
778 ;; if it still has `unseen'. 779 ;; if it still has `unseen'.
779 (setq rmail-summary-put-back-unseen 780 (setq rmail-summary-put-back-unseen