Includere la data e l'ora del messaggio originale in risposta citato utilizzando emacs e gnu

Question

Quando uso una delle *-with-original funzioni per rispondere a un messaggio utilizzando gnus (message) in emacs, ottengo una citazione simile a questo:

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

Vorrei gnu a comportarsi come gli altri programmi di posta elettronica che includono la data e l'ora del messaggio originale, qualcosa di simile:

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. 

c'è un modo per cambiare lo stile di quotazione per raggiungere questo obiettivo?

---

Update 2: Ora sto utilizzando una soluzione ancora più semplice, dalla risposta di 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:") 

---

Update 1: ho finito con la seguente soluzione, basata sulla risposta di 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) 

il risultato finale è simile al seguente:

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

Answer 1

attualmente gnus fornisce una funzione formattata per te.

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

cambiamento del varible secondo il vostro gusto .. `formato-tempo-string' ha lista delle opzioni

Meno linee in .emacs :)

Answer 2

È possibile impostare la linea-funzione di messaggio-citazione ad una opportuna funzione inserendo l'intestazione:

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

A titolo di esempio, questa funzione dà il nome e una data non normalizzata:

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