Re: A RE: AW: "collapser", anyone...?

[Steinar Bang <sb@dod.no>]

[-- Attachment #1: Type: text/plain, Size: 383 bytes --]

>>>>> Maciej Matysiak <phoner.ding@blah.pl>:

> On the 6th of June 2003 at 12:11, lawrence mitchell <s0198183+ding#sms.ed.ac.uk> 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.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Do case insensitive regexp matching in message-strip-subject-re. --]
[-- Type: text/x-patch, Size: 744 bytes --]

*** 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'.
  

[-- Attachment #3: Type: text/plain, Size: 60 bytes --]


Should change the summary use of the regexp as well then.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #4: Do case insensitive regexp matching in gnus-simplify-subject-re --]
[-- Type: text/x-patch, Size: 800 bytes --]

*** 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.