* cosmetics
This commit is contained in:
@ -415,10 +415,10 @@ using Gnus' `message-mode'."
|
|||||||
(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
|
;; include the message header if it's set; but not when editing an existing
|
||||||
;; message
|
;; message.
|
||||||
(unless (eq compose-type 'edit)
|
(unless (eq compose-type 'edit)
|
||||||
(when message-signature
|
(when message-signature
|
||||||
(message-insert-signature)))
|
(message-insert-signature)))
|
||||||
|
|
||||||
(if (member compose-type '(new forward))
|
(if (member compose-type '(new forward))
|
||||||
(message-goto-to)
|
(message-goto-to)
|
||||||
|
|||||||
@ -428,7 +428,7 @@ Seen; if the message is not New/Unread, do nothing."
|
|||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(let ((p (search-forward "\n-- \n" nil t)))
|
(let ((p (search-forward "\n-- \n" nil t)))
|
||||||
(when p
|
(when p
|
||||||
(add-text-properties p (point-max) '(face mu4e-view-footer-face)))))))
|
(add-text-properties p (point-max) '(face mu4e-footer-face)))))))
|
||||||
|
|
||||||
(defvar mu4e-link-map nil
|
(defvar mu4e-link-map nil
|
||||||
"*internal* A map of some number->url so we can jump to url by number.")
|
"*internal* A map of some number->url so we can jump to url by number.")
|
||||||
|
|||||||
Reference in New Issue
Block a user