使用emacs和gnus在引用的回复中包含原始消息的日期和时间

当我在emacs中使用带有原始功能的其中一个

*-来使用
gnus
（
message
）回复消息时，我会得到一个类似以下的报价：

"Doe, John" <johndoe@example.com> writes:

> Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
> Consectetuer adipiscing elit. Lorem ipsum dolor sit
> amet, consectetuer adipiscing elit.


更新1:根据perh的回答，我最终得到了以下解决方案：

(setq message-citation-line-function 'message-insert-formatted-citation-line)
(setq message-citation-line-format "On %a, %b %d %Y at %r, %f wrote:")

(defun my-citation-line ()
  "Inserts name, email, and date"
  (when message-reply-headers
    (insert "On "
        (format-time-string "%a, %b %e, %Y at %r"
                (date-to-time (mail-header-date message-reply-headers)))
        ", "
        (or (gnus-extract-address-component-name (mail-header-from message-reply-headers))
        "Somebody")
        (format " <%s>"
            (or (gnus-extract-address-component-email (mail-header-from message-reply-headers))
            "somebody@example.com"))
        " wrote:\n")))

(setq message-citation-line-function 'my-citation-line)

（取消我的引用行（）
插入姓名、电子邮件和日期
（当邮件回复标题
（插入“On”
（格式化时间字符串“%a，%b%e，%Y，位于%r”
（日期到时间（邮件标题日期邮件回复标题）））
", "
（或（gnus提取地址组件名称（邮件回复头中的邮件头））
“某人”）
（格式“”
（或（gnus提取地址组件电子邮件（邮件回复头中的邮件头））
"somebody@example.com"))
“已写入：\n”））
（setq消息引用行功能“我的引用行”）

最终结果如下所示：

On Fri, Oct 12, 2012 at 03:11:48 PM, John Doe <johndoe@example.com> wrote:

2012年10月12日星期五下午3:11:48，John Doe写道：
您可以将消息引用行功能设置为插入标题的适当功能：

(setq message-citation-line-function 'my-citation-line)

例如，此函数提供名称和非规范化日期：

(defun my-citation-line ()
   "Inserts name and date"
   (when message-reply-headers
     (insert 
        (or (gnus-extract-address-component-name
         (mail-header-from message-reply-headers))
            "Somebody")
       ", "
       (mail-header-date message-reply-headers)))
       "\n")))

实际上gnus为您提供了格式化函数

(setq message-citation-line-function 'message-insert-formatted-citation-line)
(setq message-citation-line-format "On %a, %b %d %Y, %f wrote:\n")

根据你的口味改变品种`“格式化时间字符串”具有选项列表

.emacs:）中的行数减少。
更简单的赢家。这太完美了。
(setq message-citation-line-function 'message-insert-formatted-citation-line)
(setq message-citation-line-format "On %a, %b %d %Y, %f wrote:\n")