如何根据“Message-ID:”生成动态“Reply-To:”？ [+详细]

Question

如何根据创建的消息的 Message-ID 在 emacs/gnus 中生成动态的“Reply-To:”（和“From:”）标头？我想使用外部（perl）脚本根据“Messaged-ID:”标头生成动态+detail 部分。

user+detail@example.net

我已经成功地创建了一个标题，其中包含由我的外部脚本生成的内容。该脚本获取 usenet 组名称作为命令行参数。我也想将 message-id 值传递给它。

我当前的代码
~/.emacs :

'(gnus-posting-styles ("^pl\\.test$" ("Reply-To" message-make-reply-to)))

~/.gnus

(defun message-make-reply-to()
  (my-script ".../reply-to.pl" (message-fetch-field "Message-Id")))

(defun my-script(path &optional param) ....

问题：脚本没有接收到 message-id 作为其参数（my-script 得到正确的显式设置参数）

Answer 1

;; Make sure the Message-ID header is present in newly created messages
(setq message-generate-headers-first '(Message-ID))

;; Prevent emacs from resetting the Message-ID before the message is sent.
(setq message-deletable-headers
      (remove 'Message-ID message-deletable-headers))

(setq gnus-posting-styles
      '(("^pl\\.test$"
         ("Reply-To" '(message-make-reply-to)))))

注意message-make-reply-to 周围的附加引号和括号。对此的解释是该函数在不同的时间运行，具体取决于它是作为符号给出还是作为带引号的 s 表达式给出。

• 如果以符号形式给出，则在将 lambda 函数添​​加到 message-setup-hook 时运行。这发生在message-mode-hook 中，即在新缓冲区创建并切换到message-mode 之后。造成这种情况的原因是在创建 lambda 函数期间对值进行了一些疯狂的引用/取消引用。
• 如果作为引用的 sexpr 给出，则评估会延迟到缓冲区充满初始值之后。它接近在消息设置中运行的最后一个代码。

替代解决方案（不带gnus-posting-styles）

如果应将新标头添加到每条新消息，Reply-To 标头也可以使用message-header-setup-hook 设置。需要定义一个自定义挂钩来为每条新消息添加标头。

(defun reply-to-message-header-setup-hook ()
  (let* ((msg-id (message-fetch-field "Message-ID"))
         (reply-to (my-script ".../reply-to-pl" msg-id)))
    (message-add-header (concat "Reply-To: " reply-to))))

;; Call the hook every time a new message is created
(add-hook 'message-header-setup-hook 'reply-to-message-header-setup-hook)

;; Make sure the Message-ID header is present in newly created messages
(setq message-generate-headers-first '(Message-ID))