diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2021-01-10 15:00:54 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2021-01-13 07:23:11 -0400 |
| commit | b4deb33a66d6781fb6e516053efe67c60e934b63 (patch) | |
| tree | a52299f3ed54efb88b1fb90f4c261fc89499c5a2 | |
| parent | 117501d5ceb332063adfeadc961e8c053f2cd942 (diff) | |
emacs: notmuch-message-apply-queued-tag-changes: cosmetics
| -rw-r--r-- | emacs/notmuch-message.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/emacs/notmuch-message.el b/emacs/notmuch-message.el index 9dc8d056..abeff53a 100644 --- a/emacs/notmuch-message.el +++ b/emacs/notmuch-message.el @@ -62,9 +62,8 @@ applied to the matching messages.") (defun notmuch-message-apply-queued-tag-changes () ;; Apply the tag changes queued in the buffer-local variable ;; notmuch-message-queued-tag-changes. - (dolist (query-and-tags notmuch-message-queued-tag-changes) - (notmuch-tag (car query-and-tags) - (cdr query-and-tags)))) + (pcase-dolist (`(,query . ,tags) notmuch-message-queued-tag-changes) + (notmuch-tag query tags))) (add-hook 'message-send-hook 'notmuch-message-apply-queued-tag-changes) |