From: Léo Gaspard Date: Mon, 22 Oct 2018 14:44:54 +0000 (+0900) Subject: emacs: make editing a message as new include FCC X-Git-Tag: archive/debian/0.29_rc0-1~109 X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=8e584392dce53d322b9403306991944c5578b1f0 emacs: make editing a message as new include FCC This changes the meaning of `e` for non-drafts to make it behave similarly to new messages, which here means add the `FCC` header. --- diff --git a/emacs/notmuch-draft.el b/emacs/notmuch-draft.el index fb7f4f55..e22e0d16 100644 --- a/emacs/notmuch-draft.el +++ b/emacs/notmuch-draft.el @@ -2,6 +2,7 @@ ;; ;; Copyright © Mark Walters ;; Copyright © David Bremner +;; Copyright © Leo Gaspard ;; ;; This file is part of Notmuch. ;; @@ -20,6 +21,7 @@ ;; ;; Authors: Mark Walters ;; David Bremner +;; Leo Gaspard ;;; Code: @@ -225,7 +227,7 @@ applied to newly inserted messages)." "--exclude=false" id)) (draft (equal tags (notmuch-update-tags tags notmuch-draft-tags)))) (when (or draft - (yes-or-no-p "Message does not appear to be a draft: really resume? ")) + (yes-or-no-p "Message does not appear to be a draft: edit as new? ")) (switch-to-buffer (get-buffer-create (concat "*notmuch-draft-" id "*"))) (setq buffer-read-only nil) (erase-buffer) @@ -244,6 +246,7 @@ applied to newly inserted messages)." (message-remove-header "Message-ID")) (when (member 'Date message-deletable-headers) (message-remove-header "Date")) + (unless draft (notmuch-fcc-header-setup)) ;; The X-Notmuch-Emacs-Draft header is a more reliable ;; indication of whether the message really is a draft. (setq draft (> (message-remove-header "X-Notmuch-Emacs-Draft") 0)))