This would allow body-inserting code (in particular, wash
button-inserting code) to use message invisibility specs.
---
emacs/notmuch-show.el | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 786debf..34c0b79 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -693,6 +693,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.
@@ -730,10 +733,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
--
1.7.5.1
_______________________________________________
notmuch mailing list
[email protected]
http://notmuchmail.org/mailman/listinfo/notmuch
