emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(mu4e): from address selection in mu 1.8+

Browse source 
Close: #7082
Co-authored-by: tecosaur <tecosaur@users.noreply.github.com>
This commit is contained in:
Henrik Lissner 2023-02-18 00:44:11 -05:00
parent 7bf5938c66
commit c7c686cc26
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 16 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

21
modules/email/mu4e/autoload/email.el
View file

@ -370,9 +370,20 @@ preferred alias"
(mu4e-personal-addresses)))) (mu4e-personal-addresses))))
(setq user-mail-address (setq user-mail-address
(if mu4e-compose-parent-message (if mu4e-compose-parent-message
(let ((to (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :to))) (if (version<= "1.8" mu4e-mu-version)
(from (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :from)))) (let ((to (mu4e-message-field mu4e-compose-parent-message :to))
(or (car (seq-intersection to addresses)) (cc (mu4e-message-field mu4e-compose-parent-message :cc))
(car (seq-intersection from addresses)) (from (mu4e-message-field mu4e-compose-parent-message :from)))
(completing-read "From: " addresses))) (or (car (cl-intersection
(mapcar (lambda (adr) (plist-get adr :email))
(append to from cc))
addresses
:test #'equal))
(completing-read "From: " addresses)))
(let ((to (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :to)))
(cc (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :cc)))
(from (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :from))))
(or (car (cl-intersection (append to from cc) addresses
:test #'equal))
(completing-read "From: " addresses))))
(completing-read "From: " addresses))))) (completing-read "From: " addresses)))))