Mark Walters <markwalters1009@gmail.com> writes: > + (let (tag-change > + post-send-tag-changes) > + ;; post-send-tag-changes are tag-changes to apply after sending, > + ;; but we need to store them now as the compose buffer is > + ;; typically killed before message-send-and-exit returns. > + (push (notmuch-message-mark-replied t) post-send-tag-changes) > + (push (notmuch-draft--mark-deleted t) post-send-tag-changes) > + (letf (((symbol-function 'message-do-fcc) #'notmuch-maildir-message-do-fcc)) > + (if exit > + (message-send-and-exit arg) > + (message-send arg))) > + (dolist (tag-change post-send-tag-changes) > + (when tag-change > + (apply #'notmuch-tag tag-change)))))) Would it be possible to concatenate the two lists and only call notmuch-tag once? It seems like that should be notably faster. d