From: Sebastian Spaeth Date: Thu, 29 Apr 2010 09:10:01 +0000 (+0200) Subject: emacs: Reuse rather than reinvent message header filtering X-Git-Tag: 0.4~136 X-Git-Url: https://git.cworth.org/git?a=commitdiff_plain;h=c9eb047c6ca2e1c0ef48560110a53ed1acb6330f;p=obsolete%2Fnotmuch-old emacs: Reuse rather than reinvent message header filtering In notmuch-mua-reply we were filtering out the Subject and To headers manually in a loop, but message mode offers a nice function for exactly that. Simplify the code by using it. Also, as notmuch-mua-mail already sorts and hides headers that we want sorted and hidden, we can safely remove those 2 functions from here as well. Also remove the (require 'cl), the only reason for its existence was the now removed "loop" function. Signed-off-by: Sebastian Spaeth --- diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index bd06e3cb..0975fe61 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -19,7 +19,6 @@ ;; ;; Authors: David Edmondson -(require 'cl) (require 'message) (require 'notmuch-lib) @@ -92,12 +91,7 @@ list." ((same-window-regexps '("\\*mail .*"))) (notmuch-mua-mail (mail-header 'to headers) (mail-header 'subject headers) - (loop for header in headers - if (not (or (eq 'to (car header)) - (eq 'subject (car header)))) - collect header))) - (message-sort-headers) - (message-hide-headers) + (message-headers-to-generate headers t '(to subject)))) ;; insert the message body - but put it in front of the signature ;; if one is present (goto-char (point-max))