From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/38417
Path: main.gmane.org!not-for-mail
From: Michael.Cook@cisco.com
Newsgroups: gmane.emacs.gnus.general
Subject: message-subject-re
Date: Wed, 29 Aug 2001 14:25:54 -0400
Sender: zzz@cisco.com
Message-ID: <g08snea90zx.fsf@zzz.cisco.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: main.gmane.org 1035174283 22288 80.91.224.250 (21 Oct 2002 04:24:43 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 04:24:43 +0000 (UTC)
Return-Path: <zzz@cisco.com>
Return-Path: <zzz@cisco.com>
Original-Received: (qmail 7631 invoked from network); 29 Aug 2001 18:26:22 -0000
Original-Received: from frampton.cisco.com (161.44.253.15)
  by gnus.org with SMTP; 29 Aug 2001 18:26:22 -0000
Original-Received: from zzz.cisco.com (zzz.cisco.com [10.89.5.93])
	by frampton.cisco.com (8.8.8/2.6/Cisco List Logging/8.8.8) with ESMTP id OAA22426
	for <ding@gnus.org>; Wed, 29 Aug 2001 14:25:55 -0400 (EDT)
Original-Received: (from zzz@localhost)
	by zzz.cisco.com (8.9.3/8.9.3) id OAA16027;
	Wed, 29 Aug 2001 14:25:54 -0400
X-Authentication-Warning: zzz.cisco.com: zzz set sender to zzz@zzz.cisco.com using -f
Original-To: ding@gnus.org
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/20.7
Original-Lines: 6
Xref: main.gmane.org gmane.emacs.gnus.general:38417
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:38417

--=-=-=

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.

--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment; filename=message-subject-re.patch
Content-Description: Add message-subject-re

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

--=-=-=--