Fügen Sie Datum und Uhrzeit der ursprünglichen Nachricht in zitierte Antwort Emacs und Gnus mit

Question

Wenn ich eine der *-with-original Funktionen verwenden, um eine Nachricht zu beantworten mit gnus (message) in Emacs, ich ein Angebot ähnlich wie diese:

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

ich würde Gnu gerne wie andere MUAs verhalten, die das Datum und die Uhrzeit der ursprünglichen Nachricht enthält, so etwas wie:

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. 

gibt es eine Möglichkeit, den Stil des Zitats zu ändern, um dies zu erreichen?

---

Update 2: Ich bin jetzt eine noch einfachere Lösung, aus kindahero Antwort:

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

---

Update 1: I mit folgenden Lösung beendet, bezogen auf perh's Antwort:

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

Das Endergebnis sieht wie folgt aus:

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

Answer 1

eigentlich gnus bietet formatierte Funktion für Sie.

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

Änderung der varible nach Ihrem Geschmack .. `Format-Zeit-String‘ hat Liste Optionen

Weniger Linien in .emacs :)

Answer 2

Sie die Nachricht-Zitat-line-Funktion auf eine geeignete Funktion der Header eingefügt einstellen:

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

Als Beispiel diese Funktion gibt den Namen und ein unnormalisiertes Datum:

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