help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: message-citation-line-function


From: G Anna
Subject: Re: message-citation-line-function
Date: 03 Apr 2002 22:17:28 +0530
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1

> Date: 03 Apr 2002 16:37:09 +0400
> From: Alexander Koptelov <address@hidden>
> Subject: Re: message-citation-line-function
> 

[snip]

> You should redefine `message-citation-line-function' variable in
> appropriate manner (i.e. it should fetch from original article all
> headers you need and `insert's it). May be anybody already did it? I
> didn't =)

This is working!

(defun anna-message-insert-citation-line ()
  "Insert custom citation line."
  (when message-reply-headers
    (insert "\n" message-yank-prefix "Date: ")
    (insert (mail-header-date message-reply-headers) "\n")
    (insert message-yank-prefix "From: ")
    (insert (mail-header-from message-reply-headers) "\n")
    (insert message-yank-prefix "Subject: ")
    (insert (mail-header-subject message-reply-headers) "\n")
    (insert message-yank-prefix "\n")))

(setq message-citation-line-function 'anna-message-insert-citation-line)


Cheers,
anna


-- 

Get your free e-mail account at http://www.linuxmail.org




reply via email to

[Prev in Thread] Current Thread [Next in Thread]