From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/38434 Path: main.gmane.org!not-for-mail From: Steve Youngs Newsgroups: gmane.emacs.gnus.general Subject: Re: message-subject-re Date: Thu, 30 Aug 2001 12:16:49 +1000 Organization: The XEmacs Development Team Sender: steve@dingoblue.net.au Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035174297 22356 80.91.224.250 (21 Oct 2002 04:24:57 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:24:57 +0000 (UTC) Return-Path: Return-Path: Original-Received: (qmail 13441 invoked from network); 30 Aug 2001 02:26:25 -0000 Original-Received: from mail011.syd.optusnet.com.au (203.2.75.173) by gnus.org with SMTP; 30 Aug 2001 02:26:25 -0000 Original-Received: from slackware.mynet.pc (wdcax13-068.dialup.optusnet.com.au [198.142.220.68]) by mail011.syd.optusnet.com.au (8.11.1/8.11.1) with ESMTP id f7U2Q5i05734 for ; Thu, 30 Aug 2001 12:26:07 +1000 Original-Received: (from steve@localhost) by slackware.mynet.pc (8.12.0.Beta7/8.12.0.Beta7) id f7U2GnbZ002986; Thu, 30 Aug 2001 12:16:49 +1000 Mail-Copies-To: never Original-To: Gnus List X-Attribution: SY X-URL: X-Face: %@A&y\ef)A6pi|q43;M>uyhO)~NP*fpdo0XrUuutf0|nku\O5JV(7EG%odc'n6}G@tYRl+B #[n,%B`.sHZ5>3MZvrm%,rWE7)c}ZXjH\>=p@AL\y\gyu|.lJ8B`F++86 In-Reply-To: (prj@po.cwru.edu's message of "Wed, 29 Aug 2001 14:29:20 -0400") User-Agent: Gnus/5.090004 (Oort Gnus v0.04) XEmacs/21.5 (artichoke) Original-Lines: 28 Xref: main.gmane.org gmane.emacs.gnus.general:38434 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:38434 |--==> "PJ" == Paul Jarc writes: PJ> I'd like to see something more general. In particular, I'd like PJ> "(was:.*" to be removed from the Subject: in responses. Maybe a hook PJ> is in order? I use: (defconst steve-obsolete-subject " (?was: .*" "*Regexp matching obsolete subjects.") (defun steve-clear-subject () "Remove steve-obsolete-subject from subject-header." (interactive) (let ((case-fold-search nil)) (save-excursion (goto-line 0) (re-search-forward "^Subject: ") (if (re-search-forward steve-obsolete-subject nil t) (replace-match ""))))) (define-key message-mode-map '"\M-o" 'steve-clear-subject) -- |---------------------| | XEmacs - It's not just an editor. | | It's a way of life. | |---------------------------------------|