mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-21 18:38:08 +01:00
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.
This commit is contained in:
parent
0ae8cab4d3
commit
8e584392dc
1 changed files with 4 additions and 1 deletions
|
@ -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 <markwalters1009@gmail.com>
|
||||
;; David Bremner <david@tethera.net>
|
||||
;; Leo Gaspard <leo@gaspard.io>
|
||||
|
||||
;;; 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)))
|
||||
|
|
Loading…
Reference in a new issue