From: Dmitry Kurochkin <dmitry.kurochkin@gmail.com>
Date: Wed, 25 May 2011 22:10:13 +0000 (+0400)
Subject: Set message invisibility spec properties before inserting the body.
X-Git-Tag: debian/0.6_254~34
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=7524b0650ef70508e3adfdb7a139076a8cd083e9

Set message invisibility spec properties before inserting the body.

This would allow body-inserting code (in particular, wash
button-inserting code) to use message invisibility specs.
---

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 850fef34..5436b341 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -713,6 +713,9 @@ current buffer, if possible."
 
     (setq content-start (point-marker))
 
+    (plist-put msg :headers-invis-spec headers-invis-spec)
+    (plist-put msg :message-invis-spec message-invis-spec)
+
     ;; Set `headers-start' to point after the 'Subject:' header to be
     ;; compatible with the existing implementation. This just sets it
     ;; to after the first header.
@@ -750,10 +753,7 @@ current buffer, if possible."
     ;; message.
     (put-text-property message-start message-end :notmuch-message-extent (cons message-start message-end))
 
-    (plist-put msg :headers-invis-spec headers-invis-spec)
     (overlay-put (make-overlay headers-start headers-end) 'invisible headers-invis-spec)
-
-    (plist-put msg :message-invis-spec message-invis-spec)
     (overlay-put (make-overlay body-start body-end) 'invisible message-invis-spec)
 
     ;; Save the properties for this message. Currently this saves the