10

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

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 得到正确的显式设置参数）

4

1 回答 1

4 
;; 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。这发生在 a 中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))
于 2015-06-26T11:43:03.100 回答