diff options
author | Dmitry Kurochkin <dmitry.kurochkin@gmail.com> | 2011-05-26 02:10:13 +0400 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2011-06-15 07:07:32 -0700 |
commit | 7524b0650ef70508e3adfdb7a139076a8cd083e9 (patch) | |
tree | 9107ceb643f6a015ea2775a01bcca392ef2fde81 /emacs | |
parent | f43f76088739523a1396fbe6dc41b68d55f0720c (diff) |
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.
Diffstat (limited to 'emacs')
-rw-r--r-- | 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 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 |