diff options
author | Carl Worth <cworth@cworth.org> | 2010-10-27 18:44:05 -0700 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-10-27 18:44:05 -0700 |
commit | 6d93d2090d1546e631dbb28f562d7caa8be5b088 (patch) | |
tree | 255ec469a960e412d76deb8ef60633a795475163 /emacs/notmuch-mua.el | |
parent | 76f1c84e6f8caf8768e2bd10a4db2954703b19b9 (diff) |
emacs: Eliminate duplicate From header in replies.
The original code was intended to work, but clearly wasn't tested. Use
mail-header (as in existing code) to extract a header from a header alist.
This fixes the duplicate-from-line bug that is exercised by the test
just added to the test suite.
Diffstat (limited to 'emacs/notmuch-mua.el')
-rw-r--r-- | emacs/notmuch-mua.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index ddaec676..dc7b386f 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -126,7 +126,7 @@ list." (when (not (string= "" user-agent)) (push (cons "User-Agent" user-agent) other-headers)))) - (unless (assoc "From" other-headers) + (unless (mail-header 'from other-headers) (push (cons "From" (concat (notmuch-user-name) " <" (notmuch-user-primary-email) ">")) other-headers)) |