mu4e: don't require user-agent string

This commit is contained in:
djcb
2017-03-09 01:27:44 +02:00
parent 9798d1fe6a
commit b04b3bcea9

View File

@ -79,7 +79,7 @@ current window."
(defvar mu4e-user-agent-string (defvar mu4e-user-agent-string
(format "mu4e %s; emacs %s" mu4e-mu-version emacs-version) (format "mu4e %s; emacs %s" mu4e-mu-version emacs-version)
"The User-Agent string for mu4e.") "The User-Agent string for mu4e, or nil.")
(defun mu4e~draft-cite-original (msg) (defun mu4e~draft-cite-original (msg)
"Return a cited version of the original message MSG as a plist. "Return a cited version of the original message MSG as a plist.
@ -356,7 +356,8 @@ You can append flags."
(defun mu4e~draft-common-construct () (defun mu4e~draft-common-construct ()
"Construct the common headers for each message." "Construct the common headers for each message."
(concat (concat
(mu4e~draft-header "User-agent" mu4e-user-agent-string) (when mu4e-user-agent-string
(mu4e~draft-header "User-agent" mu4e-user-agent-string))
(when mu4e-compose-auto-include-date (when mu4e-compose-auto-include-date
(mu4e~draft-header "Date" (message-make-date))))) (mu4e~draft-header "Date" (message-make-date)))))