email - 使用带有 EMAIL 和 Message 包的 Emacs 的多个电子邮件帐户

Question

我正在尝试准备 RMAIL 和 Emacs 以支持多个电子邮件帐户。我已经有了一个解决方案，可以根据电子邮件的 From 字段使用不同的 SMTP 服务器(基于 EmacsWiki 中的信息)，但我目前必须手动设置 From 字段。

我想要的是在回复 RMAIL 中的某人时自动设置发件人字段(即回复发送到 account1@example.net 的电子邮件时，将撰写消息缓冲区中的发件人设置为 account1@example.net)。我使用 Message 包作为 mail-user-agent . Gnus 有一个类似的功能叫做 gnus-posting-styles .

我需要的，正是，如下所示:

当按 r或 M-x rmail-reply在 RMAIL 摘要中，在字段 To 中查找 account1@example.net 或 account2@example.net , Cc , Envelope-To , X-Origintal-To或 Delivered-To回复消息并存储在某个变量中找到的第一个消息；

已经在消息缓冲区撰写电子邮件，自动将发件人字段设置为先前存储的值。

有没有办法执行1？

谢谢!

Answer 1

是的，有一种方法可以做到这一点。

您需要通知函数 rmail-reply .

下面是一个例子:

(defadvice rmail-reply (围绕 rmail-grab-to-field)
“获取收件人字段并将回复输入为'发件人'。”
(let ((origin-to (mail-fetch-field "to")))
(程序
广告做它)
(节省游览
(goto-char (point-min))
(执行替换
“^发件人:\\(.*\\)$”
(concat "From: "origin-to)
nil t nil 1 nil (point-min) (point-max)))))

(ad-activate 'rmail-reply)

您可以找到有关 advice 的所有信息在 EmacsLisp 手册中。

上面的建议并不是完全通用的，它在一定程度上取决于您用于发送邮件的模式(我使用消息模式，因此上面的代码有效)。

更好的版本还可以界定 perform-replace 的范围。这样它只能更改邮件标题中的某些内容。