From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/53074 Path: main.gmane.org!not-for-mail From: Steinar Bang Newsgroups: gmane.emacs.gnus.general Subject: Re: A RE: AW: "collapser", anyone...? Date: Mon, 09 Jun 2003 22:47:21 +0200 Organization: Probably a good idea Sender: ding-owner@lists.math.uh.edu Message-ID: <878ysbvuzq.fsf@doohan.bang.priv.no> References: <877k86lmz4.fsf@doohan.bang.priv.no> <87fzmtiirn.fsf@doohan.bang.priv.no> <87n0gx6pfc.fsf@doohan.bang.priv.no> <87vfvjwm6h.fsf@yam.vegetable.demon.co.uk> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1055191521 31015 80.91.224.249 (9 Jun 2003 20:45:21 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 9 Jun 2003 20:45:21 +0000 (UTC) Original-X-From: ding-owner+M1618@lists.math.uh.edu Mon Jun 09 22:45:19 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19PTW2-000840-00 for ; Mon, 09 Jun 2003 22:45:19 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19PTYB-0004yC-00; Mon, 09 Jun 2003 15:47:31 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19PTY3-0004y6-00 for ding@lists.math.uh.edu; Mon, 09 Jun 2003 15:47:23 -0500 Original-Received: (qmail 36744 invoked by alias); 9 Jun 2003 20:47:23 -0000 Original-Received: (qmail 36739 invoked from network); 9 Jun 2003 20:47:23 -0000 Original-Received: from quimby.gnus.org (80.91.224.244) by sclp3.sclp.com with SMTP; 9 Jun 2003 20:47:23 -0000 Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian)) id 19PTpl-0002Uw-00 for ; Mon, 09 Jun 2003 23:05:41 +0200 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 81 Original-NNTP-Posting-Host: lj6t81.cm.chello.no Original-X-Trace: quimby.gnus.org 1055192741 9605 80.111.29.5 (9 Jun 2003 21:05:41 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 9 Jun 2003 21:05:41 GMT Mail-Copies-To: never User-Agent: Gnus/5.1002 (Gnus v5.10.2) XEmacs/21.4 (Common Lisp, linux) Cancel-Lock: sha1:nGaentPMq2D7lHOdGXvDB8UPonk= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:53074 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:53074 --=-=-= >>>>> Maciej Matysiak : > On the 6th of June 2003 at 12:11, lawrence mitchell wrote: >> You (let ((case-fold-search t)) ...) in `message-strip-subject-re'. Will this affect the global setting of case-fold-search? > oh, nice :) just i need to know how to do that. is that what 'lambda' is for? It requires a Gnus patch, I think. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=message-patch Content-Description: Do case insensitive regexp matching in message-strip-subject-re. *** message.el 7 May 2003 19:29:01 -0000 6.339 --- message.el 9 Jun 2003 20:55:50 -0000 *************** *** 1612,1620 **** (defun message-strip-subject-re (subject) "Remove \"Re:\" from subject lines in string SUBJECT." ! (if (string-match message-subject-re-regexp subject) ! (substring subject (match-end 0)) ! subject)) ;;; Start of functions adopted from `message-utils.el'. --- 1612,1621 ---- (defun message-strip-subject-re (subject) "Remove \"Re:\" from subject lines in string SUBJECT." ! (let ((case-fold-search t)) ! (if (string-match message-subject-re-regexp subject) ! (substring subject (match-end 0)) ! subject))) ;;; Start of functions adopted from `message-utils.el'. --=-=-= Should change the summary use of the regexp as well then. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=summary-patch Content-Description: Do case insensitive regexp matching in gnus-simplify-subject-re *** gnus-sum.el 6 May 2003 00:43:56 -0000 6.343 --- gnus-sum.el 9 Jun 2003 21:01:08 -0000 *************** *** 1463,1471 **** (defsubst gnus-simplify-subject-re (subject) "Remove \"Re:\" from subject lines." ! (if (string-match message-subject-re-regexp subject) ! (substring subject (match-end 0)) ! subject)) (defun gnus-simplify-subject (subject &optional re-only) "Remove `Re:' and words in parentheses. --- 1463,1472 ---- (defsubst gnus-simplify-subject-re (subject) "Remove \"Re:\" from subject lines." ! (let ((case-fold-search t)) ! (if (string-match message-subject-re-regexp subject) ! (substring subject (match-end 0)) ! subject))) (defun gnus-simplify-subject (subject &optional re-only) "Remove `Re:' and words in parentheses. --=-=-=--