mirror of https://github.com/djcb/mu.git
mu4e: add mu4e-user-agent-string
Add mu4e-user-agent-string, this allows for customizing the user-agent string.
This commit is contained in:
parent
cec825eec1
commit
b43b701aa9
|
@ -77,11 +77,9 @@ current window."
|
||||||
:type 'boolean
|
:type 'boolean
|
||||||
:group 'mu4e-compose)
|
:group 'mu4e-compose)
|
||||||
|
|
||||||
(defun mu4e~draft-user-agent-construct ()
|
(defvar mu4e-user-agent-string
|
||||||
"Return the User-Agent string for mu4e.
|
(format "mu4e %s; emacs %s" mu4e-mu-version emacs-version)
|
||||||
This is either the value of `mu4e-user-agent', or, if not set, a
|
"The User-Agent string for mu4e.")
|
||||||
string based on the versions of mu4e and emacs."
|
|
||||||
(format "mu4e %s; emacs %s" mu4e-mu-version emacs-version))
|
|
||||||
|
|
||||||
(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.
|
||||||
|
@ -318,7 +316,7 @@ 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~draft-user-agent-construct))
|
(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)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue