(rmail-set-attribute): Call rmail-summary-update.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 8a6e4b57473b92272a802c870fdf195f98de7d75..fdcbc9b0faa29e51691aa74875b0e02b91f70788 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1888,11 +1888,9 @@ default, the current message is changed."
        (set-buffer rmail-buffer)
        (or msgnum (setq msgnum rmail-current-message))
        (rmail-desc-set-attribute attr-index state msgnum)
-
         ;; Deal with the summary buffer.
-        (if rmail-summary-buffer
-            (with-current-buffer rmail-summary-buffer
-              (rmail-summary-update-attribute attr-index msgnum)))))))
+        (when rmail-summary-buffer
+         (rmail-summary-update msgnum))))))
 
 (defun rmail-message-labels-p (n labels)
   "Return t if message number N has keywords matching LABELS.