来自正确帐户的 mu4e 回复
mu4e reply from the correct account
我有几个与 mu4e 关联的帐户,我可以使用 smtpmail-multi 从所有帐户接收和发送,没有任何问题。我没有使用上下文。我配置中的相关部分如下所示:
(setq message-citation-line-function 'message-insert-formatted-citation-line)
(setq message-citation-line-format "On %a, %b %d %Y, %f wrote:\n")
(setq smtpmail-multi-accounts
(quote
((yahoo . ("xxxx@yahoo.com"
"smtp.mail.yahoo.com"
587
"xxxxx@yahoo.com"
nil nil nil nil))
(other . ("xxxxx@other.com"
"smtp.other.com"
465
"xxxx@other.com"
ssl nil nil nil))
(etc . ("xx@etc.com"
"smtp.etc.com"
465
"xx@etc.com"
ssl nil nil nil))
;; ...
)))
(setq smtpmail-multi-associations
(quote
(("xxxx@yahoo.com" yahoo)
("xxx@other.com" other)
("xx@etc.com" etc)
;; ....
)))
(setq smtpmail-multi-default-account (quote yahoo))
(setq message-send-mail-function 'smtpmail-multi-send-it)
(setq mu4e-compose-dont-reply-to-self t)
(setq mu4e-user-mail-address-list '("xxxx@yahoo.com"
"xxx@other.com"
"xx@etc.com"
;; ...
))
(setq user-full-name "XXXXXX")
(setq user-mail-address "xxx@other.com")
这样我就可以通过在 FROM:
字段中输入我的电子邮件地址来正确地从正确的帐户发送电子邮件。
回复时,我希望 mu4e 识别消息发送到的帐户并相应地更新 FROM:
字段,这样我就不必自己一直输入正确的帐户。我正在寻找一种方法来执行此操作,而不必将我的整个配置升级为使用上下文。
我知道这个 blog post 有一个自动选择 FROM 字段的多帐户设置。可能想看看它。 Mu4e 在我的待办事项列表中,所以我不能直接给你答案。
经过大量调整后,我想到了这个:
(defun my-mu4e-set-account ()
"Set the account for composing a message."
(if mu4e-compose-parent-message
(let ((mail (cdr (car (mu4e-message-field mu4e-compose-parent-message :to)))))
(if (member mail mu4e-user-mail-address-list)
(setq user-mail-address mail)
(setq user-mail-address "my@default.account")))
(helm :sources
`((name . "Select account: ")
(candidates . mu4e-user-mail-address-list)
(action . (lambda (candidate) (setq user-mail-address candidate)))))))
(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account)
其中 mu4e-user-mail-address-list
显然是包含我的邮件帐户的列表
这将使用正确的帐户进行回复,此外,还将打开一个 helm 迷你菜单,询问我每次撰写新消息时使用哪个帐户。