[Top][All Lists]

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

Re: Changing the first line of the answers

From: issdr
Subject: Re: Changing the first line of the answers
Date: 2 Jul 2006 08:19:05 GMT
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 Hamster-Pg/

leandro noferini wrote:

> I would  like to change  the first line  of the answers not  writing the
> email address  of the original poster  but only the  names (because it's
> not good  writing email addresses in  the body of messages)  but I can't
> understand how.

many ways to get there. i customized `message-insert-citation-line', ymmv:

--8<---------------cut here---------------start------------->8---
(defun message-insert-citation-line ()
  "A replacement of the original `message-insert-citation-line'."
  (insert (if (message-news-p)
              (let ((author (replace-regexp-in-string 
                             "[()]\\| ?[^ ]*?@[^ ]* ?" ""
                             (mail-header-from message-reply-headers))))
                (if (string= author "")
                    "John R. Doe"
          " wrote:\n\n"))
--8<---------------cut here---------------end--------------->8---

  np: no song

reply via email to

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