Re: Unable to delete "References:" lines

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> 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.

>> (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>