From: Paul Reilly <pmr@pajato.com>
Date: Mon, 1 Sep 2008 10:56:37 +0000 (+0000)
Subject: (pmail-reply-callback): Call pmail-show-message to repaint the
X-Git-Tag: emacs-pretest-23.0.90~3096
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab3777910c2271256957d283fedb558324262e58;p=emacs.git

(pmail-reply-callback): Call pmail-show-message to repaint the
message, insuring that new headers, like X-BABYL-V6... are correctly
hidden.
---

diff --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el
index 72abe896fbc..cfa6c3f95ad 100644
--- a/lisp/mail/pmail.el
+++ b/lisp/mail/pmail.el
@@ -2782,7 +2782,8 @@ non-nil, otherwise clears it.  N is the message number.
 BUFFER, possibly narrowed, contains an mbox mail message."
   (save-excursion
     (set-buffer buffer)
-    (pmail-set-attribute attr state n)))
+    (pmail-set-attribute attr state n)
+    (pmail-show-message)))
 
 (defun pmail-mark-message (msgnum-list attr-index)
   "Set attribute ATTRIBUTE-INDEX in the message of the car of MSGNUM-LIST.