message-subject-re

[Michael.Cook@cisco.com]

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

i wanted to inhibit gnus from inserting "Re:" at the beginning of
subject lines.  but it seems that that behavior is hard-coded into
message.el.  here's a patch to unharden that code.

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

--- message.el~	Wed Aug 29 14:21:17 2001
+++ message.el	Wed Aug 29 14:20:52 2001
@@ -228,6 +228,11 @@
   :group 'message-various
   :type 'regexp)
 
+(defcustom message-subject-re "Re: "
+  "*The string to insert at the beginning of subject lines when replying."
+  :group 'message-various
+  :type 'string)
+
 ;;;###autoload
 (defcustom message-signature-separator "^-- *$"
   "Regexp matching the signature separator."
@@ -4181,7 +4186,8 @@
 	    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 message-subject-re
+			    (message-strip-subject-re subject)))
 
       (when (and (setq gnus-warning (message-fetch-field "gnus-warning"))
 		 (string-match "<[^>]+>" gnus-warning))
@@ -4257,7 +4263,8 @@
 	(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 message-subject-re
+			    (message-strip-subject-re subject)))
       (widen))
 
     (message-pop-to-buffer (message-buffer-name "followup" from newsgroups))