X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-mua.el;h=dc7b386f23c32abbba3a8e8ad8966764ce9d0c8c;hp=ddaec676f4232b614920c7c0d66d88cb42d6b7d2;hb=9e0d00f37ee963ec03e61f1847f7e7c53a90d2b8;hpb=36dcbdeff6de2612e70fe58bdbc6c5b979b0eafa

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))