awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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
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))))
(setq user-mail-address
(if mu4e-compose-parent-message
(let ((to (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :to)))
(from (mapcar #'cdr (mu4e-message-field mu4e-compose-parent-message :from))))
(or (car (seq-intersection to addresses))
(car (seq-intersection from addresses))
(completing-read "From: " addresses)))
(if (version<= "1.8" mu4e-mu-version)
(let ((to (mu4e-message-field mu4e-compose-parent-message :to))
(cc (mu4e-message-field mu4e-compose-parent-message :cc))
(from (mu4e-message-field mu4e-compose-parent-message :from)))
(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)))))