From 1a5eec4a8421822e00697c6bb5505c4b0430dc66 Mon Sep 17 00:00:00 2001 From: djcb Date: Sun, 19 Feb 2012 11:05:29 +0200 Subject: [PATCH] * mu4e-send.el: fix handling of Cc:'s in reply (when not replying-to-all) --- emacs/mu4e-send.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/emacs/mu4e-send.el b/emacs/mu4e-send.el index b5a940dc..42ec2081 100644 --- a/emacs/mu4e-send.el +++ b/emacs/mu4e-send.el @@ -129,13 +129,12 @@ is nil this is simply empty, otherwise it is the old CC-list together with the old TO-list, minus `user-mail-address'. The result of this function is either nil or a string to be used for the Cc: field." - (let ((cc-lst (plist-get msg :cc)) - (to-lst (plist-get msg :to))) - (when reply-all - (setq cc-lst (append cc-lst to-lst))) - ;; remove myself from cc - (setq cc-lst (mu4e-send-recipients-remove cc-lst user-mail-address)) - (mu4e-send-recipients-to-string cc-lst))) + (when reply-all + (let ((cc-lst + (mu4e-send-recipients-remove ;; remove myself from cc + (append (plist-get msg :cc) (plist-get msg :to)) + user-mail-address))) + (mu4e-send-recipients-to-string cc-lst)))) (defun mu4e-send-from-create ()