* mu4e-compose.el: cleanup signature insertion a bit
This commit is contained in:
@ -514,11 +514,11 @@ Gnus' `message-mode'."
|
|||||||
(unless mu4e-drafts-folder (error "mu4e-drafts-folder not set"))
|
(unless mu4e-drafts-folder (error "mu4e-drafts-folder not set"))
|
||||||
(let ((inhibit-read-only t)
|
(let ((inhibit-read-only t)
|
||||||
(draft
|
(draft
|
||||||
(if (member compose-type '(reply forward new))
|
(if (member compose-type '(reply forward new))
|
||||||
(mu4e~compose-open-new-draft-file compose-type original-msg)
|
(mu4e~compose-open-new-draft-file compose-type original-msg)
|
||||||
(if (eq compose-type 'edit)
|
(if (eq compose-type 'edit)
|
||||||
(plist-get original-msg :path)
|
(plist-get original-msg :path)
|
||||||
(error "unsupported compose-type %S" compose-type)))))
|
(error "unsupported compose-type %S" compose-type)))))
|
||||||
(find-file draft)
|
(find-file draft)
|
||||||
;; insert mail-header-separator, which is needed by message mode to separate
|
;; insert mail-header-separator, which is needed by message mode to separate
|
||||||
;; headers and body. will be removed before saving to disk
|
;; headers and body. will be removed before saving to disk
|
||||||
@ -535,11 +535,11 @@ Gnus' `message-mode'."
|
|||||||
(dolist (att includes)
|
(dolist (att includes)
|
||||||
(mml-attach-file
|
(mml-attach-file
|
||||||
(plist-get att :file-name) (plist-get att :mime-type))))
|
(plist-get att :file-name) (plist-get att :mime-type))))
|
||||||
;; include the message header if it's set; but not when editing an existing
|
|
||||||
;; message.
|
;; include the message header (if it's set); but not when editing an
|
||||||
|
;; existing message.
|
||||||
(unless (eq compose-type 'edit)
|
(unless (eq compose-type 'edit)
|
||||||
(when message-signature
|
(message-insert-signature))
|
||||||
(message-insert-signature)))
|
|
||||||
|
|
||||||
;; set compose mode -- so now hooks can run
|
;; set compose mode -- so now hooks can run
|
||||||
(mu4e-compose-mode)
|
(mu4e-compose-mode)
|
||||||
|
|||||||
Reference in New Issue
Block a user