# HG changeset patch
# User Paul Reilly <pmr@pajato.com>
# Date 1220266597 0
# Node ID f278df5ab031fd069cf6b464bd2d0911de2eceb9
# Parent  63526292266d102a5325522e4661092de5ffb3f8
(pmail-reply-callback): Call pmail-show-message to repaint the
message, insuring that new headers, like X-BABYL-V6... are correctly
hidden.

diff -r 63526292266d -r f278df5ab031 lisp/mail/pmail.el
--- a/lisp/mail/pmail.el	Mon Sep 01 08:40:33 2008 +0000
+++ b/lisp/mail/pmail.el	Mon Sep 01 10:56:37 2008 +0000
@@ -2782,7 +2782,8 @@
 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.