From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/10406
Path: main.gmane.org!not-for-mail
From: "Dewey M. Sasser" <dewey@newvision.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: cc:Mail messed up Re[2]: subjects
Date: 28 Mar 1997 12:39:14 -0800
Sender: dewey@newvision.com
Message-ID: <deweywwqrzr7x.fsf@aerosmith.newvision.com>
References: <ybb7c1mc.fsf@mindspring.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035150283 24248 80.91.224.250 (20 Oct 2002 21:44:43 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:44:43 +0000 (UTC)
Cc: ding@ifi.uio.no
Return-Path: <ding-request@ifi.uio.no>
Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by deanna.miranova.com (8.8.5/8.8.5) with SMTP id MAA17946
	for <steve@miranova.com>; Fri, 28 Mar 1997 12:54:42 -0800
Original-Received: from mercury.hypersurf.com (mercury.hypersurf.com [206.40.40.1]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <VAA27547@ifi.uio.no> for <ding@ifi.uio.no> ; Fri, 28 Mar 1997 21:40:40 +0100
Original-Received: from aerosmith.newvision.com (dynamic3.hypersurf.com [206.40.41.20])
          by mercury.hypersurf.com (8.8.4/8.8.4) with SMTP
	  id MAA03655; Fri, 28 Mar 1997 12:46:59 -0800 (PST)
Original-Received: by aerosmith.newvision.com (IBM OS/2 SENDMAIL VERSION 1.3.14/2.12um) id AA1887; Fri, 28 Mar 97 12:39:17 -0800
Original-To: Joe Hildebrand <hildjj@mindspring.com>
In-Reply-To: Joe Hildebrand's message of 28 Mar 1997 12:28:27 -0600
Original-Lines: 41
X-Mailer: Gnus v5.4.37/Emacs 19.33
Xref: main.gmane.org gmane.emacs.gnus.general:10406
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:10406

>>>>> "Joe" == Joe Hildebrand <hildjj@mindspring.com> writes:

    Joe> Can message.el be changed so that whenever it is stripping
    Joe> out Re:'s, it does this:

    Joe> [Rr][Ee]\\(\\[[0-9]+\\]\\)?:

    Joe> so that my replys don't look like "Subject: Re: Re[2]: foo"?

See (gnus)Washing Mail.

What I've done is this:

(defun auto-split-correct-re ()
  "Correct re: headers"
  (let ((case-fold-search t))
    (goto-char (point-min))
    (if (re-search-forward
	 "subject:[ \t]*\\(\\(re\\(>\\|:\\)+\\)+\\)[ \t]*" nil 't)
	(progn
	  (goto-char (match-beginning 1))
	  (delete-region (point) (match-end 1))
	  (insert "Re: ")))))

(add-hook 'nnmail-prepare-incoming-header-hook 'auto-split-correct-re)

I haven't run into your particular problem, but you can modify that
regexp to handle it.  If you do so, pleased modify the function name
to avoid conflict with my auto-split package (which I'm releasing in
the near future).


-- 
Dewey M. Sasser 			voice: (617) 494-6000 
dewey@newvision.com                     PGP Key from public servers  
                                        PGP mail preferred.
|-------------------------------------------------------------------------|
| Anything worth doing is worth doing right, unless doing it right makes  |
| it no longer worth doing, in which case it is only worth doing it       |
| "good enough".                                                          |
|-------------------------------------------------------------------------|