diff options
author | Carl Worth <cworth@cworth.org> | 2009-11-03 13:13:50 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-03 13:38:00 -0800 |
commit | aa34eb2a3761c770b485486d0f94564f5e925128 (patch) | |
tree | c798826f174c1af1b853c0a32eec4ac02ab3b2d6 /notmuch.el | |
parent | 0ceef70efdfaa082506e5298c0a031e626d83ea9 (diff) |
notmuch show: Remove custom "unread" hack, (printing tag in two locations).
I previously had a hack that special-cased the "unread" tag and
printed it on the same line as the message ID. But now that we are
printing all tags at the end of the one-line summary we don't need
this anymore. Get rid of it, and just read "unread" from the list of
tags just like any other tag.
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 19 |
1 files changed, 9 insertions, 10 deletions
@@ -66,7 +66,7 @@ (defvar notmuch-show-part-end-regexp "part}") (defvar notmuch-show-marker-regexp "\\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$") -(defvar notmuch-show-id-regexp "ID: \\([^ ]*\\)") +(defvar notmuch-show-id-regexp "ID: \\(.*\\)$") (defvar notmuch-show-tags-regexp "(\\([^)]*\\))$") (defun notmuch-show-get-message-id () @@ -178,17 +178,17 @@ Before moving, also remove the \"unread\" tag from the current message." (goto-char end))) (next-line)))) -(defun notmuch-show-markup-body (unread) +(defun notmuch-show-markup-body () (re-search-forward notmuch-show-body-begin-regexp) (next-line 1) (beginning-of-line) (let ((beg (point))) (re-search-forward notmuch-show-body-end-regexp) - (if (not unread) - (overlay-put (make-overlay beg (match-beginning 0)) - 'invisible 'notmuch-show-body-read)) - (notmuch-show-markup-citations-region beg (point)) - )) + (let ((end (match-beginning 0))) + (if (not (member "unread" (notmuch-show-get-tags))) + (overlay-put (make-overlay beg end) + 'invisible 'notmuch-show-body-read)) + (notmuch-show-markup-citations-region beg end)))) (defun notmuch-show-markup-header () (re-search-forward notmuch-show-header-begin-regexp) @@ -202,9 +202,8 @@ Before moving, also remove the \"unread\" tag from the current message." (defun notmuch-show-markup-message () (if (re-search-forward notmuch-show-message-begin-regexp nil t) (progn - (let ((unread (looking-at ".*unread$"))) - (notmuch-show-markup-header) - (notmuch-show-markup-body unread))) + (notmuch-show-markup-header) + (notmuch-show-markup-body)) (goto-char (point-max)))) (defun notmuch-show-hide-markers () |