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