From: markwalters1009 <markwalters1009@gmail.com> get-tags-region used to return a list of all tags of all messages with tags appearing multiple times. This changes it to return a list where each tag appears at most once. As far as I can see there were no callers of the old function (but this series adds one!). --- emacs/notmuch.el | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch.el b/emacs/notmuch.el index f9454d8..4e6bbcf 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -558,10 +558,11 @@ and will also appear in a buffer named \"*Notmuch errors*\"." (plist-get (notmuch-search-get-result pos) :tags)) (defun notmuch-search-get-tags-region (beg end) - (let (output) + (let ((output '())) (notmuch-search-foreach-result beg end (lambda (pos) - (setq output (append output (notmuch-search-get-tags pos))))) + (mapc (lambda (tag) (add-to-list 'output tag)) + (notmuch-search-get-tags pos)))) output)) (defun notmuch-search-tag-region (beg end &optional tag-changes) -- 1.7.9.1