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

emacs: make notmuch-search-tag tag the region when called non-interactively.

Browse source 
The normal tag commands in search mode tag the all threads meeting the
region when called interactively. This makes them do the same when
called non-interactively. This is a change in the api.
This commit is contained in:
Mark Walters 2016-10-16 17:12:23 +01:00 committed by David Bremner
parent 608a3cb231
commit b810e64242
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/notmuch.el
View file

@ -562,12 +562,15 @@ Returns (TAG-CHANGES REGION-BEGIN REGION-END)."
See `notmuch-tag' for information on the format of TAG-CHANGES. See `notmuch-tag' for information on the format of TAG-CHANGES.
When called interactively, this uses the region if the region is When called interactively, this uses the region if the region is
active. When called directly, BEG and END provide the region. active. When called directly, BEG and END provide the region.
If these are nil or not provided, this applies to the thread at If these are nil or not provided, then, if the region is active
point. this applied to all threads meeting the region, and if the region
is inactive this applies to the thread at point.
If ONLY-MATCHED is non-nil, only tag matched messages." If ONLY-MATCHED is non-nil, only tag matched messages."
(interactive (notmuch-search-interactive-tag-changes)) (interactive (notmuch-search-interactive-tag-changes))
(unless (and beg end) (setq beg (point) end (point))) (unless (and beg end)
(setq beg (car (notmuch-search-interactive-region))
end (cadr (notmuch-search-interactive-region))))
(let ((search-string (notmuch-search-find-stable-query-region (let ((search-string (notmuch-search-find-stable-query-region
beg end only-matched))) beg end only-matched)))
(notmuch-tag search-string tag-changes) (notmuch-tag search-string tag-changes)