debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Set message invisibility spec properties before inserting the body.

Browse source 
This would allow body-inserting code (in particular, wash
button-inserting code) to use message invisibility specs.
This commit is contained in:
Dmitry Kurochkin 2011-05-26 02:10:13 +04:00 committed by Carl Worth
parent f43f760887
commit 7524b0650e
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/notmuch-show.el
View file

@ -713,6 +713,9 @@ current buffer, if possible."
(setq content-start (point-marker)) (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 ;; Set `headers-start' to point after the 'Subject:' header to be
;; compatible with the existing implementation. This just sets it ;; compatible with the existing implementation. This just sets it
;; to after the first header. ;; to after the first header.
@ -750,10 +753,7 @@ current buffer, if possible."
;; message. ;; message.
(put-text-property message-start message-end :notmuch-message-extent (cons message-start message-end)) (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) (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) (overlay-put (make-overlay body-start body-end) 'invisible message-invis-spec)
;; Save the properties for this message. Currently this saves the ;; Save the properties for this message. Currently this saves the