notmuch.el: Fix to hide citations in body of read messages.

Previously, unhinding a read message would still show all the citations
in that message without an explicit command to make them visible. Fix.
This commit is contained in:
Carl Worth 2009-11-04 08:38:49 -08:00
parent 446459a5ea
commit c8382b2f0e

View file

@ -198,10 +198,10 @@ simply move to the beginning of the current message."
(let ((beg (point))) (let ((beg (point)))
(re-search-forward notmuch-show-body-end-regexp) (re-search-forward notmuch-show-body-end-regexp)
(let ((end (match-beginning 0))) (let ((end (match-beginning 0)))
(notmuch-show-markup-citations-region beg end)
(if (not (member "unread" (notmuch-show-get-tags))) (if (not (member "unread" (notmuch-show-get-tags)))
(overlay-put (make-overlay beg end) (overlay-put (make-overlay beg end)
'invisible 'notmuch-show-body-read)) 'invisible 'notmuch-show-body-read)))))
(notmuch-show-markup-citations-region beg end))))
(defun notmuch-show-markup-header () (defun notmuch-show-markup-header ()
(re-search-forward notmuch-show-header-begin-regexp) (re-search-forward notmuch-show-header-begin-regexp)