mirror of https://github.com/djcb/mu.git
mu4e-draft: better sender in list-reply dialog
Don't show the raw lisp object.
This commit is contained in:
parent
040d74a326
commit
5e63b8bed3
|
@ -606,12 +606,13 @@ mailing-list."
|
||||||
(recipnum
|
(recipnum
|
||||||
(+ (length (mu4e~draft-create-to-lst origmsg))
|
(+ (length (mu4e~draft-create-to-lst origmsg))
|
||||||
(length (mu4e~draft-create-cc-lst origmsg t t))))
|
(length (mu4e~draft-create-cc-lst origmsg t t))))
|
||||||
|
(sender (mu4e-contact-full (car from)))
|
||||||
(reply-type
|
(reply-type
|
||||||
(mu4e-read-option
|
(mu4e-read-option
|
||||||
"Reply to mailing-list "
|
"Reply to mailing-list "
|
||||||
`( (,(format "all %d recipient(s)" recipnum) . all)
|
`( (,(format "all %d recipient(s)" recipnum) . all)
|
||||||
(,(format "list-only (%s)" (cdar list-post)) . list-only)
|
(,(format "list-only (%s)" (cdar list-post)) . list-only)
|
||||||
(,(format "sender-only (%s)" (cdar from)) . sender-only)))))
|
(,(format "sender-only (%s)" sender) . sender-only)))))
|
||||||
(cl-case reply-type
|
(cl-case reply-type
|
||||||
(all
|
(all
|
||||||
(concat
|
(concat
|
||||||
|
|
Loading…
Reference in New Issue