Re: message-subject-re

[Michael.Cook@cisco.com]

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

prj@po.cwru.edu (Paul Jarc) writes:

> Michael.Cook@cisco.com wrote:
> > after seeing one too many subject lines that looked like
>> 
>>   Subject: Re: Fwd: FW: [list-name] RE: Fwd: foo
>> 
>> it occurred to me that the Re prefix has no real value.
>
> Well, preserving all that without adding another Re: isn't a big
> improvement.  Maybe it would be best to first strip away all Re:s,

ok, but that's a separate issue -- cleaning up subject lines that
have already been mangled.  sure, it'd be nice if gnus could wash
the subject line for display in the summary buffer (can gnus be
configured to do that already?).  but all i really wanted to do when
i started this thread was to keep gnus from inserting "Re:" into the
subject line in new messages i compose.

ok, here's another patch.  this one adds a boolean
`message-subject-inhibit-re'.

m.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: message-subject-inhibit-re.patch --]
[-- Type: text/x-patch, Size: 1354 bytes --]

--- message.el~	Thu Aug 30 12:26:08 2001
+++ message.el	Thu Aug 30 12:29:43 2001
@@ -228,6 +228,11 @@
   :group 'message-various
   :type 'regexp)
 
+(defcustom message-subject-inhibit-re nil
+  "Non-nil means don't insert Re: in the subject line when replying."
+  :group 'message-various
+  :type 'boolean)
+
 ;;;###autoload
 (defcustom message-signature-separator "^-- *$"
   "Regexp matching the signature separator."
@@ -4181,7 +4186,9 @@
 	    subject (or (message-fetch-field "subject") "none"))
       (when gnus-list-identifiers
 	(setq subject (message-strip-list-identifiers subject)))
-      (setq subject (concat "Re: " (message-strip-subject-re subject)))
+      (setq subject (concat (and (not message-subject-inhibit-re)
+				 "Re: ")
+			    (message-strip-subject-re subject)))
 
       (when (and (setq gnus-warning (message-fetch-field "gnus-warning"))
 		 (string-match "<[^>]+>" gnus-warning))
@@ -4257,7 +4264,9 @@
 	(setq distribution nil))
       (if gnus-list-identifiers
 	  (setq subject (message-strip-list-identifiers subject)))
-      (setq subject (concat "Re: " (message-strip-subject-re subject)))
+      (setq subject (concat (and (not message-subject-inhibit-re)
+				 "Re: ")
+			    (message-strip-subject-re subject)))
       (widen))
 
     (message-pop-to-buffer (message-buffer-name "followup" from newsgroups))