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

2012-12-09 15:31:39 +02:00
parent 0e204fece4
commit 46a49c8875
1 changed files with 5 additions and 3 deletions
--- a/mu4e/mu4e-draft.el
+++ b/mu4e/mu4e-draft.el
@ -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)))