* mu4e: cosmetics
This commit is contained in:
@ -601,8 +601,8 @@ work well."
|
|||||||
|
|
||||||
(defun mu4e-hdrs-compose (compose-type)
|
(defun mu4e-hdrs-compose (compose-type)
|
||||||
"Compose either a reply/forward based on the message at point. or
|
"Compose either a reply/forward based on the message at point. or
|
||||||
start editing it. COMPOSE-TYPE is either `reply', `forward' or
|
start editing it. COMPOSE-TYPE is either `reply', `forward', `edit'
|
||||||
`edit'."
|
or `new'."
|
||||||
(if (eq compose-type 'new)
|
(if (eq compose-type 'new)
|
||||||
(mu4e-send-compose-handler 'new)
|
(mu4e-send-compose-handler 'new)
|
||||||
(let ((docid (mu4e-hdrs-get-docid))
|
(let ((docid (mu4e-hdrs-get-docid))
|
||||||
|
|||||||
@ -335,7 +335,7 @@ using Gnus' `message-mode'."
|
|||||||
(find-file draft)
|
(find-file draft)
|
||||||
(message-mode)
|
(message-mode)
|
||||||
|
|
||||||
;; include files -- e.g. when forwarding a message with attachments,
|
;; include files -- e.g. when forwarding a message with attachments,
|
||||||
;; we take those from the original.
|
;; we take those from the original.
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(goto-char (point-max)) ;; put attachments at the end
|
(goto-char (point-max)) ;; put attachments at the end
|
||||||
|
|||||||
Reference in New Issue
Block a user