emacs: Correct message/header/citation/signature hiding

Set `buffer-invisibility-spec' to `nil' (a list) if it is just `t'
before inserting any body parts, otherwise removing items from
`buffer-invisibility-spec' (which is what
`notmuch-show-headers-visible' and `notmuch-show-message-visible' do)
is a no-op and has no effect. This caused threads with only matching
messages to have those messages hidden initially because
`buffer-invisibility-spec' stayed `t'.
This commit is contained in:
David Edmondson 2010-04-26 11:17:11 +01:00 committed by Carl Worth
parent 969f1c4621
commit 75b9b028ea

View file

@ -399,6 +399,22 @@ current buffer, if possible."
(headers-invis-spec (notmuch-show-make-symbol "header")) (headers-invis-spec (notmuch-show-make-symbol "header"))
(message-invis-spec (notmuch-show-make-symbol "message"))) (message-invis-spec (notmuch-show-make-symbol "message")))
;; Set `buffer-invisibility-spec' to `nil' (a list), otherwise
;; removing items from `buffer-invisibility-spec' (which is what
;; `notmuch-show-headers-visible' and
;; `notmuch-show-message-visible' do) is a no-op and has no
;; effect. This caused threads with only matching messages to have
;; those messages hidden initially because
;; `buffer-invisibility-spec' stayed `t'.
;;
;; This needs to be set here (rather than just above the call to
;; `notmuch-show-headers-visible') because some of the part
;; rendering or body washing functions
;; (e.g. `notmuch-wash-text/plain-citations') manipulate
;; `buffer-invisibility-spec').
(when (eq buffer-invisibility-spec t)
(setq buffer-invisibility-spec nil))
(setq message-start (point-marker)) (setq message-start (point-marker))
(notmuch-show-insert-headerline headers (notmuch-show-insert-headerline headers