From 3d0282b17a55a1d93a3d55d1b26a5fc87b3d6f82 Mon Sep 17 00:00:00 2001 From: djcb Date: Fri, 15 Jun 2012 18:23:10 +0300 Subject: [PATCH] * mu4e-compose: hide some headers --- emacs/mu4e-compose.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/emacs/mu4e-compose.el b/emacs/mu4e-compose.el index 4ac9f7bd..3bdea7f9 100644 --- a/emacs/mu4e-compose.el +++ b/emacs/mu4e-compose.el @@ -486,6 +486,10 @@ needed, set the Fcc header, and register the handler function." mu4e~compose-buffer-max-name-length 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) "Create a new draft message, or open an existing one. @@ -532,9 +536,6 @@ Gnus' `message-mode'." (mu4e~compose-insert-mail-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, ;; we take those from the original. (save-excursion @@ -548,13 +549,17 @@ Gnus' `message-mode'." (unless (eq compose-type 'edit) (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 (mu4e-compose-mode) ;; buffer is not user-modified yet (mu4e~compose-set-friendly-buffer-name compose-type) (set-buffer-modified-p nil) - + ;; now jump to some use positions, and start writing that mail! (if (member compose-type '(new forward)) (message-goto-to)