にemacsでEmacsとヌー

Question

を使用して引用し、返信に元のメッセージの日付と時刻を含め、私は次のように二重引用符を取得する：

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

Answer 1

実際にgnusはあなたのためにフォーマットされた関数を提供します。

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

変更お好みに応じてvaribleは... `フォーマット時-string」はオプションリスト

の.emacsではあまり行:)

Answer 2

あなたがヘッダを挿入する適切な機能へのメッセージ引用ライン機能を設定することができる：例として

(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")))