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

* remove all addresses in `mu4e-user-mail-address-list' from cc-list; fixes #101

Browse Source
This commit is contained in:
djcb
2012-12-09 15:31:39 +02:00
parent 0e204fece4
commit 46a49c8875
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
mu4e/mu4e-draft.el
View File

@ -113,7 +113,7 @@ 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)."
(let ((reply-to
(or (plist-get origmsg :reply-to) (plist-get origmsg :from))))
(delete-duplicates reply-to :test #'mu4e~draft-address-cell-equal)))
(delete-duplicates reply-to :test #'mu4e~draft-address-cell-equal)))
(defun mu4e~draft-create-cc-lst (origmsg reply-all)
@ -143,8 +143,10 @@ the original message ORIGMSG, and whether it's a reply-all."
cc-lst
(delete-if
(lambda (cc-cell)
(mu4e~draft-address-cell-equal cc-cell
(cons nil user-mail-address)))
(member-if
(lambda (addr)
(string= (downcase addr) (downcase (cdr cc-cell))))
mu4e-user-mail-address-list))
cc-lst))))
cc-lst)))