tec/emacs-config
tec/emacs-config
1
0
Fork 0
Code Issues 4 Pull requests Releases Activity

Mu4e: fill from address when replying to own email

Browse source
This commit is contained in:
TEC 2020-05-26 22:29:34 +08:00
parent fde8a3e8c5
commit 81d94cab18
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
config.org
View file

@ -1710,10 +1710,13 @@ prompt otherwise also seems sensible.
(defun my-mu4e-set-account ()
"Set the account for composing a message."
(unless (and mu4e-compose-parent-message
(let ((mail (cdr (car (mu4e-message-field mu4e-compose-parent-message :to)))))
(if (member mail (plist-get mu4e~server-props :personal-addresses))
(setq user-mail-address mail)
nil)))
(let ((to (cdr (car (mu4e-message-field mu4e-compose-parent-message :to))))
(from (cdr (car (mu4e-message-field mu4e-compose-parent-message :from)))))
(if (member to (plist-get mu4e~server-props :personal-addresses))
(setq user-mail-address to)
(if (member from (plist-get mu4e~server-props :personal-addresses))
(setq user-mail-address from)
nil))))
(ivy-read "Account: " (plist-get mu4e~server-props :personal-addresses) :action (lambda (candidate) (setq user-mail-address candidate)))))
(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account))