emacs: Report a lack of matches when calling `notmuch-show'.

[notmuch] / emacs / notmuch-mua.el

diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index 45a6daabb0548a15c10e99354e4c35f95544e347..d4fad7b743100c977184a296d7eebc30b6d4289b 100644 (file)
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -29,6 +29,8 @@
 (eval-when-compile (require 'cl))
 
 (declare-function notmuch-show-insert-bodypart "notmuch-show" (msg part depth &optional hide))
+(declare-function notmuch-fcc-header-setup "notmuch-maildir-fcc" ())
+(declare-function notmuch-fcc-handler "notmuch-maildir-fcc" (destdir))
 
 ;;
 
@@ -322,8 +324,8 @@ modified. This function is notmuch addaptation of
   (notmuch-mua-pop-to-buffer (message-buffer-name "mail" to)
                             (or switch-function (notmuch-mua-get-switch-function)))
   (let ((headers
-        ;; The following sexp is copied from `message-mail'
-        (nconc
+        (append
+         ;; The following is copied from `message-mail'
          `((To . ,(or to "")) (Subject . ,(or subject "")))
          ;; C-h f compose-mail says that headers should be specified as
          ;; (string . value); however all the rest of message expects