From b43b701aa9e93a36624cc972d3afae4e69bfe5d3 Mon Sep 17 00:00:00 2001 From: djcb Date: Sun, 22 Nov 2015 11:25:05 +0200 Subject: [PATCH] mu4e: add mu4e-user-agent-string Add mu4e-user-agent-string, this allows for customizing the user-agent string. --- mu4e/mu4e-draft.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/mu4e/mu4e-draft.el b/mu4e/mu4e-draft.el index 6cecb9b6..d97d3b66 100644 --- a/mu4e/mu4e-draft.el +++ b/mu4e/mu4e-draft.el @@ -77,11 +77,9 @@ current window." :type 'boolean :group 'mu4e-compose) -(defun mu4e~draft-user-agent-construct () - "Return the User-Agent string for mu4e. -This is either the value of `mu4e-user-agent', or, if not set, a -string based on the versions of mu4e and emacs." - (format "mu4e %s; emacs %s" mu4e-mu-version emacs-version)) +(defvar mu4e-user-agent-string + (format "mu4e %s; emacs %s" mu4e-mu-version emacs-version) + "The User-Agent string for mu4e.") (defun mu4e~draft-cite-original (msg) "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 () "Construct the common headers for each message." (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 (mu4e~draft-header "Date" (message-make-date)))))