diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-11-16 22:28:23 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2020-12-06 16:17:52 -0400 |
| commit | 1acaaa093c6e62a469a86befab21afcfce4170ea (patch) | |
| tree | 3f7a9778f02f5e115eebfbf248cd5424a2307784 | |
| parent | f061ae5b427136b759957622210d5f83e5e61e5a (diff) | |
emacs: remove kludge for Emacs 23 from notmuch-mua-mail
Notmuch requires at least Emacs version 25.
The `return-action' argument was added prior to Emacs 24.1
in 25ca2e61403f97b5a023164f2924d5f8aca2492a.
| -rw-r--r-- | emacs/notmuch-mua.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index 1204fb6a..869ec51a 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -394,16 +394,10 @@ modified. This function is notmuch adaptation of (dolist (h other-headers other-headers) (when (stringp (car h)) (setcar h (intern (capitalize (car h)))))))) - (args (list yank-action send-actions)) ;; Cause `message-setup-1' to do things relevant for mail, ;; such as observe `message-default-mail-headers'. (message-this-is-mail t)) - ;; message-setup-1 in Emacs 23 does not accept return-action - ;; argument. Pass it only if it is supplied by the caller. This - ;; will never be the case when we're called by `compose-mail' in - ;; Emacs 23. - (when return-action (nconc args (list return-action))) - (apply 'message-setup-1 headers args)) + (message-setup-1 headers yank-action send-actions return-action)) (notmuch-fcc-header-setup) (message-sort-headers) (message-hide-headers) |
