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

emacs: notmuch.el ignore excluded matches

Browse source 
This is a small change to make notmuch.el ignore excluded matches.  In
the future it could do something better like add a button for
rerunning the search with the excludes (particularly if nothing
matches with the excludes) or having them invisible and allowing the
visibility to be toggled.
This commit is contained in:
Mark Walters 2012-03-01 22:30:45 +00:00 committed by David Bremner
parent 119a42571e
commit 1aa4abe7a1
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
emacs/notmuch.el
View file

@ -872,16 +872,18 @@ non-authors is found, assume that all of the authors match."
(goto-char (point-max)) (goto-char (point-max))
(if (/= (match-beginning 1) line) (if (/= (match-beginning 1) line)
(insert (concat "Error: Unexpected output from notmuch search:\n" (substring string line (match-beginning 1)) "\n"))) (insert (concat "Error: Unexpected output from notmuch search:\n" (substring string line (match-beginning 1)) "\n")))
(let ((beg (point))) ;; We currently just throw away excluded matches.
(notmuch-search-show-result date count authors (unless (eq (aref count 1) ?0)
(notmuch-prettify-subject subject) tags) (let ((beg (point)))
(notmuch-search-color-line beg (point) tag-list) (notmuch-search-show-result date count authors
(put-text-property beg (point) 'notmuch-search-thread-id thread-id) (notmuch-prettify-subject subject) tags)
(put-text-property beg (point) 'notmuch-search-authors authors) (notmuch-search-color-line beg (point) tag-list)
(put-text-property beg (point) 'notmuch-search-subject subject) (put-text-property beg (point) 'notmuch-search-thread-id thread-id)
(when (string= thread-id notmuch-search-target-thread) (put-text-property beg (point) 'notmuch-search-authors authors)
(set 'found-target beg) (put-text-property beg (point) 'notmuch-search-subject subject)
(set 'notmuch-search-target-thread "found"))) (when (string= thread-id notmuch-search-target-thread)
(set 'found-target beg)
(set 'notmuch-search-target-thread "found"))))
(set 'line (match-end 0))) (set 'line (match-end 0)))
(set 'more nil) (set 'more nil)
(while (and (< line (length string)) (= (elt string line) ?\n)) (while (and (< line (length string)) (= (elt string line) ?\n))