From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: G Anna <drguruolai@eth.net>
Newsgroups: gmane.emacs.help
Subject: Re: message-citation-line-function
Date: 03 Apr 2002 22:17:28 +0530
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <m3wuvovie7.fsf@wobble.eth.net>
References: <m34riuyuag.fsf@wobble.eth.net>
	<scpk7rpj6ve.fsf@pegas.kazbek.ispras.ru>
Reply-To: help-gnu-emacs@gnu.org
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1017855257 634 127.0.0.1 (3 Apr 2002 17:34:17 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 3 Apr 2002 17:34:17 +0000 (UTC)
Original-Received: from fencepost.gnu.org ([199.232.76.164])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 16soeH-0000A7-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Wed, 03 Apr 2002 19:34:17 +0200
Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 16soah-00063e-00; Wed, 03 Apr 2002 12:30:35 -0500
Original-Received: from [202.9.145.41] (helo=ethfrvs)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 16soZF-0005qT-00
	for <help-gnu-emacs@gnu.org>; Wed, 03 Apr 2002 12:29:06 -0500
Original-Received: from smtp1.eth.net ([202.9.178.22]) by ethfrvs with Microsoft SMTPSVC(5.0.2195.2966);
	 Wed, 3 Apr 2002 10:57:40 -0800
Original-Received: from 202.9.171.171 by smtp1.eth.net (InterScan E-Mail VirusWall NT); Wed, 03 Apr 2002 22:59:49 +0530
Original-To: help-gnu-emacs@gnu.org 
In-Reply-To: <scpk7rpj6ve.fsf@pegas.kazbek.ispras.ru>
Original-Lines: 36
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1
X-OriginalArrivalTime: 03 Apr 2002 18:57:40.0703 (UTC) FILETIME=[6DF22EF0:01C1DB41]
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.8
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:41
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:41


> 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