emacs: limit search for attachment to stop at first mime-part

[notmuch] / emacs / notmuch-mua.el

diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index 2f0de92c6ec28f7fb511a1938698685fc41c17c8..76572b87866172d078123052553746ddb5c109ae 100644 (file)
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -121,7 +121,9 @@ multiple parts get a header."
   "Message body text indicating that an attachment is expected.
 
 This is not used unless `notmuch-mua-attachment-check' is added
-to `notmuch-mua-send-hook'.")
+to `notmuch-mua-send-hook'."
+  :type 'regexp
+  :group 'notmuch-send)
 
 ;;
 
@@ -135,17 +137,20 @@ Typically this is added to `notmuch-mua-send-hook'."
         ;; When the message mentions attachment...
         (save-excursion
           (message-goto-body)
-          (loop while (re-search-forward notmuch-mua-attachment-regexp (point-max) t)
-                ;; For every instance of the "attachment" string
-                ;; found, examine the text properties. If the text
-                ;; has either a `face' or `syntax-table' property
-                ;; then it is quoted text and should *not* cause the
-                ;; user to be asked about a missing attachment.
-                if (let ((props (text-properties-at (match-beginning 0))))
-                     (not (or (memq 'syntax-table props)
-                              (memq 'face props))))
-                return t
-                finally return nil))
+          ;; Limit search from reaching other possible parts of the message
+          (let ((search-limit (search-forward "\n<#" nil t)))
+            (message-goto-body)
+            (loop while (re-search-forward notmuch-mua-attachment-regexp search-limit t)
+                  ;; For every instance of the "attachment" string
+                  ;; found, examine the text properties. If the text
+                  ;; has either a `face' or `syntax-table' property
+                  ;; then it is quoted text and should *not* cause the
+                  ;; user to be asked about a missing attachment.
+                  if (let ((props (text-properties-at (match-beginning 0))))
+                       (not (or (memq 'syntax-table props)
+                                (memq 'face props))))
+                  return t
+                  finally return nil)))
         ;; ...but doesn't have a part with a filename...
         (save-excursion
           (message-goto-body)
@@ -478,7 +483,8 @@ the From: address."
            (list (cons 'From (notmuch-mua-prompt-for-sender)))))
         forward-subject  ;; Comes from the first message and is
                          ;; applied later.
-        forward-references) ;; List of accumulated message-references of forwarded messages
+        forward-references ;; List of accumulated message-references of forwarded messages
+        forward-queries) ;; List of corresponding message-query
 
     ;; Generate the template for the outgoing message.
     (notmuch-mua-mail nil "" other-headers nil (notmuch-mua-get-switch-function))
@@ -497,7 +503,8 @@ the From: address."
                  ;; always generate a forwarded subject, then use the
                  ;; last (i.e. first) one.
                  (setq forward-subject (message-make-forward-subject))
-                 (push (message-fetch-field "Message-ID") forward-references))
+                 (push (message-fetch-field "Message-ID") forward-references)
+                 (push id forward-queries))
                ;; Make a copy ready to be forwarded in the
                ;; composition buffer.
                (message-forward-make-body temp-buffer)
@@ -516,6 +523,14 @@ the From: address."
        (message-add-header (concat "References: "
                                    (mapconcat 'identity forward-references " "))))
 
+      ;; Create a buffer-local queue for tag changes triggered when sending the message
+      (when notmuch-message-forwarded-tags
+       (setq-local notmuch-message-queued-tag-changes
+                   (loop for id in forward-queries
+                         collect
+                         (cons id
+                               notmuch-message-forwarded-tags))))
+
       ;; `message-forward-make-body' shows the User-agent header.  Hide
       ;; it again.
       (message-hide-headers)