diff options
author | David Edmondson <dme@dme.org> | 2010-04-26 12:50:59 +0100 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-04-26 08:23:05 -0700 |
commit | e2516a343b26737b53efdfbadc6ad01ab62975f7 (patch) | |
tree | 3062c4a6ab5dc6b7db650ebe599cfc4709434de3 /emacs/notmuch-mua.el | |
parent | 87d9df50e5ea9ee0469601a84733401970fe895d (diff) |
emacs: Hide the "User-Agent:" when composing messages
Add a list of headers to those hidden by `message-mode' when
composing. By default the list includes only "User-Agent:".
Diffstat (limited to 'emacs/notmuch-mua.el')
-rw-r--r-- | emacs/notmuch-mua.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index 004b50a..bca20db 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -41,6 +41,12 @@ notmuch-mua-user-agent-notmuch 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 () @@ -57,6 +63,13 @@ "Generate a `User-Agent:' string suitable for notmuch." (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) (let (headers body) ;; 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-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) |