debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-02-17 23:53:15 +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

4
emacs/notmuch.el
View file

@ -872,6 +872,8 @@ 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")))
;; We currently just throw away excluded matches.
(unless (eq (aref count 1) ?0)
(let ((beg (point))) (let ((beg (point)))
(notmuch-search-show-result date count authors (notmuch-search-show-result date count authors
(notmuch-prettify-subject subject) tags) (notmuch-prettify-subject subject) tags)
@ -881,7 +883,7 @@ non-authors is found, assume that all of the authors match."
(put-text-property beg (point) 'notmuch-search-subject subject) (put-text-property beg (point) 'notmuch-search-subject subject)
(when (string= thread-id notmuch-search-target-thread) (when (string= thread-id notmuch-search-target-thread)
(set 'found-target beg) (set 'found-target beg)
(set 'notmuch-search-target-thread "found"))) (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))