message-citation-line-function

message-citation-line-function

[G Anna]

Dear All,

I would like to have a custom message-citation-line-function.  Instead
of having a single line like,

Hallvard B Furuseth <h.b.furuseth@usit.uio.no> writes:
> yanked message follows...

I'd like to have 

> Date: ....
> From: ....
> Subject: ....
>
> yanked message follows...

Where "> " is the message-yank-prefix.

Can anybody help?  Or any pointers?

Thank you all for the time.

Cheers,
anna
 
-- 

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

Re: message-citation-line-function

[Alexander Koptelov]

>>>>> "GA" == G Anna <drguruolai@eth.net> writes:

    GA> Dear All, I would like to have a custom message-citation-line-function.
    GA> Instead of having a single line like,

    GA> Hallvard B Furuseth <h.b.furuseth@usit.uio.no> writes:
    >> yanked message follows...

    GA> I'd like to have

    >> Date: ....  From: ....  Subject: ....
    >> 
    >> yanked message follows...

    GA> Where "> " is the message-yank-prefix.

    GA> Can anybody help?  Or any pointers?

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

    GA> Thank you all for the time.

    GA> Cheers, anna
 
    GA> --

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


    GA> _______________________________________________ Help-gnu-emacs mailing
    GA> list Help-gnu-emacs@gnu.org
    GA> http://mail.gnu.org/mailman/listinfo/help-gnu-emacs


-- 
Alexander Koptelov
Institute for System Programming, Russian Academy of Sciences
e-mail: steve@ispras.ru
icq:    36208499

Re: message-citation-line-function

[G Anna]

> 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