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: notmuch-message-apply-queued-tag-changes: cosmetics

Browse source
This commit is contained in:
Jonas Bernoulli 2021-01-10 15:00:54 +01:00 committed by David Bremner
parent 117501d5ce
commit b4deb33a66
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
emacs/notmuch-message.el
View file

@ -62,9 +62,8 @@ applied to the matching messages.")
(defun notmuch-message-apply-queued-tag-changes () (defun notmuch-message-apply-queued-tag-changes ()
;; Apply the tag changes queued in the buffer-local variable ;; Apply the tag changes queued in the buffer-local variable
;; notmuch-message-queued-tag-changes. ;; notmuch-message-queued-tag-changes.
(dolist (query-and-tags notmuch-message-queued-tag-changes) (pcase-dolist (`(,query . ,tags) notmuch-message-queued-tag-changes)
(notmuch-tag (car query-and-tags) (notmuch-tag query tags)))
(cdr query-and-tags))))
(add-hook 'message-send-hook 'notmuch-message-apply-queued-tag-changes) (add-hook 'message-send-hook 'notmuch-message-apply-queued-tag-changes)