diff options
-rw-r--r-- | emacs/notmuch-mua.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index bd06e3c..0975fe6 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -19,7 +19,6 @@ ;; ;; Authors: David Edmondson <dme@dme.org> -(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)) |