mu4e ответ с правильного аккаунта

У меня есть несколько учетных записей, связанных с 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: поле соответственно, чтобы мне не приходилось вводить правильную учетную запись все время сам. Я ищу способ сделать это без необходимости обновлять всю мою конфигурацию до использования контекстов.

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 это, очевидно, список с моими почтовыми аккаунтами

Это ответит с правильной учетной записью и, более того, откроет мини-меню руля, спрашивая меня, какую учетную запись использовать каждый раз, когда я пишу новое сообщение.

Я знаю, что в этом посте есть настройка для нескольких учетных записей, которая автоматически выбирает поле ОТ. Могу хотеть взглянуть на это. Mu4e в моем списке задач, поэтому я не могу дать вам прямой ответ.

Другие вопросы по тегам