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

Question

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

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

我真正需要的是如下所示：

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

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

有没有办法执行1？

谢谢！

Answer 1

是的，有办法做到这一点。

您需要告知函数rmail-reply。

这是一个例子：

（defadvice rmail-reply（围绕 rmail-grab-to-field） “抓住收件人字段并将回复输入为'发件人'。” (let ((origin-to (mail-fetch-field "to")))) （预测 做它） （保存游览 (goto-char (point-min)) （执行替换 “^来自：\\(.*\\)$” （连接“发件人：”始发地） nil t nil 1 nil (point-min) (point-max))))) (ad-activate 'rmail-reply)

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

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

更好的版本也将界定perform-replace 的范围，以便它只能更改邮件标题中的某些内容。