alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: don't require user-agent string

Browse Source
This commit is contained in:
djcb
2017-03-09 01:27:44 +02:00
parent 9798d1fe6a
commit b04b3bcea9
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
mu4e/mu4e-draft.el
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)))))
@ -429,9 +430,9 @@ fields will be the same as in the original."
mu4e~draft-forward-prefix) mu4e~draft-forward-prefix)
subject)) subject))
(unless mu4e-compose-forward-as-attachment (unless mu4e-compose-forward-as-attachment
(concat (concat
"\n\n" "\n\n"
(mu4e~draft-cite-original origmsg)))))) (mu4e~draft-cite-original origmsg))))))
(defun mu4e~draft-newmsg-construct () (defun mu4e~draft-newmsg-construct ()
"Create a new message." "Create a new message."
@ -500,7 +501,7 @@ will be created from either `mu4e~draft-reply-construct', or
(forward (mu4e~draft-forward-construct msg)) (forward (mu4e~draft-forward-construct msg))
(new (mu4e~draft-newmsg-construct))))) (new (mu4e~draft-newmsg-construct)))))
(mu4e~draft-open-file draft-path) (mu4e~draft-open-file draft-path)
(insert initial-contents) (insert initial-contents)
(newline) (newline)
;; include the message signature (if it's set) ;; include the message signature (if it's set)
(if (and mu4e-compose-signature-auto-include mu4e-compose-signature) (if (and mu4e-compose-signature-auto-include mu4e-compose-signature)