bascht
/
dotfiles
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Activity

[emacs] Fix mu4e-change-from-to-catchall to access message fields via plist

This commit is contained in:
Sebastian Schulze 2022-11-09 16:24:34 +01:00
parent e56c6b3bd4
commit df32aeaa2b
Signed by: bascht
GPG Key ID: 5BCB1D3B4D38A35A
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dot_doom.d/config.el.tmpl
View File

@ -209,12 +209,12 @@
(magit-status-setup-buffer))))
(defun bascht/mu4e-change-from-to-catchall (msg)
"Set the From address based on the To address of the original message."
(when msg
"Set the From address based on the To address of the original message if I reply."
(setq user-mail-address
(cond
((mu4e-message-contact-field-matches msg :to "bascht.com") (cdr-safe (car-safe (mu4e-message-field msg :to))))
(t user-mail-address)))))
(if (and msg (mu4e-message-contact-field-matches msg :to "bascht.com"))
(plist-get (car-safe (mu4e-message-field msg :to)) :email)
(cdr-safe (assoc 'user-mail-address (mu4e-context-vars (mu4e-context-current)))))))
(after! mu4e
(setq
org-msg-signature (with-current-buffer (find-file-noselect "/home/bascht/.signature") (buffer-string))