来自正确帐户的 mu4e 回复

Question

我有几个与 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: 字段，这样我就不必自己一直输入正确的帐户。我正在寻找一种方法来执行此操作，而不必将我的整个配置升级为使用上下文。

Answer 1

我知道这个 blog post 有一个自动选择 FROM 字段的多帐户设置。可能想看看它。 Mu4e 在我的待办事项列表中，所以我不能直接给你答案。

Answer 2

经过大量调整后，我想到了这个：

(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 迷你菜单，询问我每次撰写新消息时使用哪个帐户。

来自正确帐户的 mu4e 回复

mu4e reply from the correct account

email

emacs

mu4e