emacs/mu
1
0
Fork 0
mirror of https://github.com/djcb/mu.git synced 2024-06-25 07:28:02 +02:00
Code Issues Releases Wiki Activity

* mu4e-compose: hide some headers

Browse Source
This commit is contained in:
djcb 2012-06-15 18:23:10 +03:00
parent a8f878fe7c
commit 3d0282b17a
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
emacs/mu4e-compose.el
View File

@ -486,6 +486,10 @@ needed, set the Fcc header, and register the handler function."
mu4e~compose-buffer-max-name-length mu4e~compose-buffer-max-name-length
nil nil t))))) nil nil t)))))
(defconst mu4e~compose-hidden-headers
'("^References:" "^Face:" "^X-Face:" "^X-Draft-From:"
"^User-Agent:")
"List of regexps with message headers that are to be hidden.")
(defun mu4e~compose-handler (compose-type &optional original-msg includes) (defun mu4e~compose-handler (compose-type &optional original-msg includes)
"Create a new draft message, or open an existing one. "Create a new draft message, or open an existing one.
@ -532,9 +536,6 @@ Gnus' `message-mode'."
(mu4e~compose-insert-mail-header-separator) (mu4e~compose-insert-mail-header-separator)
(insert "\n") ;; insert a newline after header separator (insert "\n") ;; insert a newline after header separator
;; hide headers
(message-hide-headers)
;; 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
@ -548,13 +549,17 @@ Gnus' `message-mode'."
(unless (eq compose-type 'edit) (unless (eq compose-type 'edit)
(message-insert-signature)) (message-insert-signature))
;; hide some headers
(let ((message-hidden-headers mu4e~compose-hidden-headers))
(message-hide-headers))
;; set compose mode -- so now hooks can run ;; set compose mode -- so now hooks can run
(mu4e-compose-mode) (mu4e-compose-mode)
;; buffer is not user-modified yet ;; buffer is not user-modified yet
(mu4e~compose-set-friendly-buffer-name compose-type) (mu4e~compose-set-friendly-buffer-name compose-type)
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
;; now jump to some use positions, and start writing that mail! ;; now jump to some use positions, and start writing that mail!
(if (member compose-type '(new forward)) (if (member compose-type '(new forward))
(message-goto-to) (message-goto-to)