incluir la fecha y hora del mensaje original en la respuesta citada usando emacs y ñus

Question

Cuando uso una de las *-with-original funciones para responder a un mensaje usando gnus (message) en emacs, consigo una cita similar a esto:

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

me gustaría ñus a comportarse como otros MUA que incluyen la fecha y la hora del mensaje original, algo así como:

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. 

¿hay alguna forma de cambiar el estilo de citación para lograr esto?

---

Actualización 2: Ahora estoy usando una solución aún más simple, de la respuesta de 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:") 

---

Actualización 1: que terminó con la siguiente solución, basada en la respuesta de 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) 

el resultado final es el siguiente:

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

Answer 1

En realidad, gnus brinda funciones formateadas para usted.

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

cambio de la varible de acuerdo a su gusto .. `formato en tiempo-cadena' tiene lista de opciones

Menos líneas en .emacs :)

Answer 2

Puede establecer la línea-función de mensaje-citación a una función adecuada inserción de la cabecera:

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

A modo de ejemplo, esta función da el nombre y una fecha no normalizada:

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