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

* mu4e-compose.el: remove some debug crap

Browse Source
This commit is contained in:
djcb
2012-06-16 08:38:00 +03:00
parent 2596c53a5e
commit 3cb1a5e073
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
emacs/mu4e-compose.el
View File

@ -111,7 +111,6 @@ such all its settings apply."
(pop-mark) (pop-mark)
(buffer-string)))) (buffer-string))))
(defun mu4e~compose-header (hdr val) (defun mu4e~compose-header (hdr val)
"Return a header line of the form HDR: VAL\n. If VAL is nil, "Return a header line of the form HDR: VAL\n. If VAL is nil,
return nil." return nil."
@ -163,7 +162,6 @@ e-mail addresses. If LST is nil, returns nil."
the original message ORIGMSG. If the Reply-To address is set, use the original message ORIGMSG. If the Reply-To address is set, use
that, otherwise use the From address. Note, whatever was in the To: that, otherwise use the From address. Note, whatever was in the To:
field before, goes to the Cc:-list (if we're doing a reply-to-all)." field before, goes to the Cc:-list (if we're doing a reply-to-all)."
(message "REPLY TO %S" (plist-get origmsg :reply-to))
(let ((reply-to (let ((reply-to
(or (plist-get origmsg :reply-to) (plist-get origmsg :from)))) (or (plist-get origmsg :reply-to) (plist-get origmsg :from))))
(delete-duplicates reply-to :test #'mu4e~compose-address-cell-equal))) (delete-duplicates reply-to :test #'mu4e~compose-address-cell-equal)))