[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/1.25.2.0 |
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"
author))
"You")
" wrote:\n\n"))
--8<---------------cut here---------------end--------------->8---
--
np: no song