From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/54694
Path: main.gmane.org!not-for-mail
From: Lloyd Zusman <ljz@asfast.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Unable to delete "References:" lines
Date: Wed, 05 Nov 2003 19:50:07 -0500
Organization: FreeBSD/Linux Hippopotamus Preserve
Sender: ding-owner@lists.math.uh.edu
Message-ID: <m3u15ijp6o.fsf@asfast.com>
References: <m365iv537b.fsf@asfast.com> <m3u16fvp4p.fsf@asfast.com>
	<b9ywub8oeul.fsf@jpl.org> <m3r80m6hc2.fsf@asfast.com>
	<b9yad7axw72.fsf@jpl.org>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: sea.gmane.org 1068079860 31151 80.91.224.253 (6 Nov 2003 00:51:00 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Thu, 6 Nov 2003 00:51:00 +0000 (UTC)
Original-X-From: ding-owner+M3235@lists.math.uh.edu Thu Nov 06 01:50:58 2003
Return-path: <ding-owner+M3235@lists.math.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1AHYMU-0002nL-00
	for <ding-account@gmane.org>; Thu, 06 Nov 2003 01:50:58 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by malifon.math.uh.edu with smtp (Exim 3.20 #1)
	id 1AHYLq-0008Rh-00; Wed, 05 Nov 2003 18:50:18 -0600
Original-Received: from justine.libertine.org ([66.139.78.221])
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 1AHYLi-0008RZ-00
	for ding@lists.math.uh.edu; Wed, 05 Nov 2003 18:50:10 -0600
Original-Received: from asfast.net (hippo.asfast.net [216.182.10.250])
	by justine.libertine.org (Postfix) with ESMTP id 5DB653A006D
	for <ding@gnus.org>; Wed,  5 Nov 2003 18:50:09 -0600 (CST)
Original-Received: from localhost (localhost [127.0.0.1])
  (uid 0)
  by asfast.net with local; Wed, 05 Nov 2003 19:50:09 -0500
Original-To: ding@gnus.org
X-Face: "!ga1s|?LNLE3MeeeEYs(%LIl9q[xV9!<nimJxd1qyQRquvu5XTnZ:_5VE-G&4*EAuW"7oJLIXj'DWrJ0z@,FlwvD2PA@qhQ2R#zgsc14Klk;OSE'*;+l8p?0^nK7*X#0zg5wd^!M^2pg,M4Qd^{1viG;fa{}b.s[?g(x$45c]]=@'ZQ&]sPXl!u:hxBAv>j4#xf4!**BFW_ihlOb;:Slb>)vy>CJM<qjGM,/6C6\|{))YWm6}Q#?3om%n8
In-Reply-To: Katsumi Yamaoka's message of "Thu, 06 Nov 2003 07:54:57 +0900"
User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.2 (gnu/linux)
Precedence: bulk
Xref: main.gmane.org gmane.emacs.gnus.general:54694
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:54694

Katsumi Yamaoka <yamaoka@jpl.org> writes:

>>>>>> In <m3r80m6hc2.fsf@asfast.com>
>>>>>>	Lloyd Zusman <ljz@asfast.com> wrote:
>
>> I presume this works because deleting the existing references causes
>> Gnus to assume that there are none to preserve, correct?
>
> Exactly.  You can edit them (for example, delete except the last ID)
> and can also delete the header whole.

I understand.  And I find it interesting that the message ID also has to
be removed, or else this doesn't seem to work.




>>> (add-hook
>>>  'message-setup-hook
>>>  (lambda nil
>>>    ;; Generate the References header and clear the corresponding
>>>    ;; elements in the `message-reply-headers' buffer-local variable.
>>>    (let ((references (message-make-references))
>>> 	 reference)
>>>      (if references
>>> 	 (progn
>>> 	   (mail-header-set-message-id message-reply-headers nil)
>>> 	   (mail-header-set-references message-reply-headers nil)
>>> 	   (setq references (split-string references))
>>> 	   (goto-char (point-min))
>>> 	   (insert "References: ")
>>> 	   (while references
>>> 	     (setq reference (car references)
>>> 		   references (cdr references))
>>> 	     (if (> (+ (current-column) (length reference)) 78)
>>> 		 (progn
>>> 		   (delete-char -1)
>>> 		   (insert "\n ")))
>>> 	     (insert reference (if references
>>> 				   " "
>>> 				 "\n")))
>>> 	   (message-sort-headers))))))
> -- 
> Katsumi Yamaoka <yamaoka@jpl.org>

-- 
 Lloyd Zusman
 ljz@asfast.com