debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Hide the "User-Agent:" when composing messages

Browse source 
Add a list of headers to those hidden by `message-mode' when
composing. By default the list includes only "User-Agent:".
This commit is contained in:
David Edmondson 2010-04-26 12:50:59 +01:00 committed by Carl Worth
parent 87d9df50e5
commit e2516a343b
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
emacs/notmuch-mua.el
View file

@ -41,6 +41,12 @@
notmuch-mua-user-agent-notmuch notmuch-mua-user-agent-notmuch
notmuch-mua-user-agent-emacs)) notmuch-mua-user-agent-emacs))
(defcustom notmuch-mua-hidden-headers '("^User-Agent:")
"Headers that are added to the `message-mode' hidden headers
list."
:group 'notmuch
:type '(repeat string))
;; ;;
(defun notmuch-mua-user-agent-full () (defun notmuch-mua-user-agent-full ()
@ -57,6 +63,13 @@
"Generate a `User-Agent:' string suitable for notmuch." "Generate a `User-Agent:' string suitable for notmuch."
(concat "Emacs/" emacs-version " (" system-configuration ")")) (concat "Emacs/" emacs-version " (" system-configuration ")"))
(defun notmuch-mua-add-more-hidden-headers ()
"Add some headers to the list that are hidden by default."
(mapc (lambda (header)
(when (not (member header 'message-hidden-headers))
(push header message-hidden-headers)))
notmuch-mua-hidden-headers))
(defun notmuch-mua-reply (query-string) (defun notmuch-mua-reply (query-string)
(let (headers body) (let (headers body)
;; This make assumptions about the output of `notmuch reply', but ;; This make assumptions about the output of `notmuch reply', but
@ -134,6 +147,10 @@ simply runs the corresponding `message-mode' hook functions."
'notmuch-mua-mail 'notmuch-mua-send-and-exit 'notmuch-mua-mail 'notmuch-mua-send-and-exit
'notmuch-mua-kill-buffer 'notmuch-mua-send-hook) 'notmuch-mua-kill-buffer 'notmuch-mua-send-hook)
;; Add some more headers to the list that `message-mode' hides when
;; composing a message.
(notmuch-mua-add-more-hidden-headers)
;; ;;
(provide 'notmuch-mua) (provide 'notmuch-mua)