X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-mua.el;fp=emacs%2Fnotmuch-mua.el;h=1204fb6ac3de2059fe9b8e21f68fc6d144f4a9a9;hp=616b625ca979d5787cfeb610462febc80908fab1;hb=f061ae5b427136b759957622210d5f83e5e61e5a;hpb=8d701cdc997a1310efb2b6e08b95d705da9062e6

diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index 616b625c..1204fb6a 100644
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -402,7 +402,7 @@ modified. This function is notmuch adaptation of
     ;; 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 '(return-action)))
+    (when return-action (nconc args (list return-action)))
     (apply 'message-setup-1 headers args))
   (notmuch-fcc-header-setup)
   (message-sort-headers)