Re: References Header

[Reiner Steib <4uce.02.r.steib@gmx.net>]

[-- Attachment #1: Type: text/plain, Size: 702 bytes --]

On Mon, Jan 06 2003, Mark Thomas wrote:

> On Sun, 29 Dec 2002, larsi@gnus.org wrote:
>
>> And I've now made References be generated upon sending by default.
>
> Is there any way to get the old behavior?
>
> I know I can set message-generate-headers-first to t (or to
> '("References")) to see the References-header's value, 

Shouldn't it be '(References)?

BTW, here's a patch, allowing to customize the variable as a list:

--8<---------------cut here---------------start------------->8---
2003-01-07  Reiner Steib  <Reiner.Steib@gmx.de>

	* message.el (message-generate-headers-first): Added customization
	if variable is a list.

--8<---------------cut here---------------end--------------->8---


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: message.message-generate-headers-first.patch --]
[-- Type: text/x-patch, Size: 519 bytes --]

--- message.el.~6.283.~	Tue Jan  7 12:20:10 2003
+++ message.el	Tue Jan  7 12:55:33 2003
@@ -690,7 +690,9 @@
 are to be deleted and then re-generated before sending, so this variable
 will not have a visible effect for those headers."
   :group 'message-headers
-  :type 'boolean)
+  :type '(choice (const :tag "None" nil)
+                 (const :tag "All" t)
+                 (repeat (sexp :tag "Header"))))
 
 (defcustom message-setup-hook nil
   "Normal hook, run each time a new outgoing message is initialized.

[-- Attachment #3: Type: text/plain, Size: 116 bytes --]


Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/