[PATCH] emacs: remove use of message-send-hook

David Bremner david at tethera.net
Fri Mar 10 15:50:26 PST 2017


Mark Walters <markwalters1009 at 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


More information about the notmuch mailing list