Emacs 日期：页眉中的每个新闻组时区

如何配置emacs/gnus以在发布的消息中按新闻组时区使用

---

我想在pl.*新闻组中使用CET时区，在一般新闻组中使用UCT

我将使用

消息头设置钩子

或

消息发送钩子

来实现此功能：

(defvar date-rewrite-rules
  '(("pl" . return-time-string-in-CET)
    ("." . return-time-string-in-UTC)))
(defun rewrite-date-based-on-newsgroup ()
  (save-excursion
    (save-restriction
      (widen)
      (goto-char 0)
      (narrow-to-region 0 (search-forward mail-header-separator))
      (goto-char 0)
      (search-forward-regexp "^Newsgroup: ")
      (let ((date-f nil)
            (tail date-rewrite-rules))
        (while (and (null date-f)
                    tail)
          (let ((rule (pop tail)))
            (when (looking-at (car rule))
              (setq date-f (cdr rule)))))
        (when date-f
          (goto-char 0)
          (search-forward-regexp "^Date: ")
          (delete-region (point) (line-end-position))
          (insert (funcall date-f)))))))

---

注意：代码未经测试，这只是您开发解决方案的起点。

它会产生错误

保存限制：Args超出范围：0498

-其中498等于标头和邮件标头分隔符中的字符/字节数。这只是您开发解决方案的起点