From 5e63b8bed39bf873fc19c361a7fb75cafc1b84a3 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Thu, 16 Jun 2022 22:48:37 +0300 Subject: [PATCH] mu4e-draft: better sender in list-reply dialog Don't show the raw lisp object. --- mu4e/mu4e-draft.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/mu4e/mu4e-draft.el b/mu4e/mu4e-draft.el index 5d4c71c7..46f7d8da 100644 --- a/mu4e/mu4e-draft.el +++ b/mu4e/mu4e-draft.el @@ -606,12 +606,13 @@ mailing-list." (recipnum (+ (length (mu4e~draft-create-to-lst origmsg)) (length (mu4e~draft-create-cc-lst origmsg t t)))) + (sender (mu4e-contact-full (car from))) (reply-type (mu4e-read-option "Reply to mailing-list " - `( (,(format "all %d recipient(s)" recipnum) . all) - (,(format "list-only (%s)" (cdar list-post)) . list-only) - (,(format "sender-only (%s)" (cdar from)) . sender-only))))) + `( (,(format "all %d recipient(s)" recipnum) . all) + (,(format "list-only (%s)" (cdar list-post)) . list-only) + (,(format "sender-only (%s)" sender) . sender-only))))) (cl-case reply-type (all (concat