From 7524b0650ef70508e3adfdb7a139076a8cd083e9 Mon Sep 17 00:00:00 2001 From: Dmitry Kurochkin Date: Thu, 26 May 2011 02:10:13 +0400 Subject: [PATCH] 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. --- emacs/notmuch-show.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.43.0