9

関数の1つを使用してemacsで（ ）*-with-originalを使用してメッセージに返信すると、次のような引用符が表示されます。gnusmessage

"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.

gnusは、元のメッセージの日付と時刻を含む他のMUAのように動作するようにしたいと思います。たとえば、次のようになります。

On Thu 11 October 2012 09:20:12 "Doe, John" <johndoe@example.com> wrote:

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

これを達成するために引用のスタイルを変更する方法はありますか？

更新2：私は今、kindaheroの答えから、さらに単純なソリューションを使用しています：

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

更新1： perhの回答に基づいて、次の解決策に行き着きました。

(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 Fri, Oct 12, 2012 at 03:11:48 PM, John Doe <johndoe@example.com> wrote:
4

2 に答える 2

8

実際、gnus はフォーマットされた関数を提供しています。

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

好みに応じて変数を変更してください.. `format-time-string'にはオプションリストがあります

.emacs の少ない行:)

于 2012-10-14T10:19:04.753 に答える
2

message-citation-line-function を、ヘッダーを挿入する適切な関数に設定できます。

(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")))
于 2012-10-12T20:20:32.137 に答える