[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 <steve@ispras.ru>
> 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