[Mew-dist 12889] Re: mew-1.95b33.tar.gz

[Shun-ichi GOTO]

>>>>> at Wed, 19 Apr 2000 19:26:55 +0900
>>>>> $B$K$s(B == Ninomiya Hideyuki <nin at example.com> said,

$B$K$s(B> $B:#$N$^$^$@$H at example.com$9$k$N$,$d$j$K$/$$$_$?$$!"!"!"!"(B
$B$K$s(B> (setq mew-reply-replace-strig-list '("Re" "RE" "$B#R#e(B" "$B#R#E(B"))
$B$K$s(B> $B$_$?$$$K=q$/$@$1$GNI$$$h$&$K$J$C$F$k$H$$$$$J$C(B

$B$"$s$^$7N}$i$J$$$&$A$K<h$j9~$^$l$A$c$C$?$N$G!"$40U8+$OJg=8$7$^$9!#(B
$B$^$?%j%9%H$K$9$k$N$O2DG=$G$9!#(B


$BDL>o(B(eq case-fold-search t) $B$J$N$G!"(B[Rr]e $B$H$+$7$J$/$F$b(B
Re $B$G(B "re" $B$b(B "Re" $B$b(B "RE" $B$b(BOK$B$G$9!#(B"$B#R#e(B" $B$O%@%a$@$1$I!#!#!#(B

$B$"!"(Bmew-subject-simplify<f> $B$G(B case-fold-search $B$NB+G{$rK:$l$F$k(B(^^;
$B0J2<$N%Q%C%A$rEv$F$F$?J}$,$$$$$N$+$J!#(B

--- mew-summary.el.orig Tue Apr 18 12:33:05 2000
+++ mew-summary.el      Wed Apr 19 10:59:01 2000
@@ -1117,7 +1117,8 @@

 (defun mew-subject-simplify (str &optional action-list)
   "XXX"
-  (let (regexp replace)
+  (let ((case-fold-search t)
+       regexp replace)
     (if (null action-list)
        (setq action-list mew-subject-simplify-replace-alist))
     (while action-list



$B$K$s(B> default $B$,$3$s$J(B
$B$K$s(B> (defvar mew-reply-regex "[rR$B#r#R(B][eE$B#e#E(B]......[:$B!'(B][ $B#@(B]*")
$B$K$s(B> # $BB/$K8@$&!VA43Q%9%Z!<%9!W$C$F(B code $B2?HV$@$C$1(B ?
$B$K$s(B> $B46$8$G$bNI$$$+$bCN$s$J$$(B.....

$B$3$N7o$K4X$7$F$O!"%G%U%)%k%H$K(Bnon-ASCII$B$rF~$l$k$o$1$K$O$$$+$J$$$H;W$C$F(B
$B$^$9!#$"$k$$$O!"(Bmew-mule-p $B$K1~$8$F=i4|@_DjCM$rBX$($k$H$$$&J}K!$b$"$k$1(B
$B$I!#(B


$B<+J,$G%Q%?!<%s$rDI2C$7$?$$$N$G$"$l$P!"(Bmew-init-hook $B$J$I$G(B

(setq mew-subject-simplify-replace-alist
      (cons (cons your-re-pattern mew-reply-string)
	    mew-subject-simplify-replace-alist))

$B$H$+$9$k$N$,!"8=>u8~$-$N%+%9%?%^%$%:J}K!$G$9$M!#(B
alist $B$N3FMWAG$rF,$+$i(B1$BEY$:$D=hM}$7$F$$$/F0:n$J$N$G$9!#(B
$B$J$N$G$b$A$m$s=EJ#$7$?$h$&$J=hM}FbMF$G$bDI2C$7$F7k9=$G$9!#(B

##$B$d$j$d$9$$%+%9%?%^%$%:J}K!$@$H$O;W$C$F$$$^$;$s$,!#(B


$B$K$s(B> $B$3$C$A$N(B default $B$O(B
$B$K$s(B> (defvar mew-subject-simplify-replace-alist
$B$K$s(B>   (list
$B$K$s(B>    (cons (concat "^" ;; regexp
$B$K$s(B>                  "^.*"
$B$K$s(B> $B$_$?$$$JJ}$,NI$$$+$b$C(B
$B$K$s(B> # Mailing List $BBP:v(B

Mailing-List $B$N(Bprefix $BBP:v$OBgDq$N>l9g$OITMW$@$H;W$$$^$9!#(B
$B$^$?!">e5-$NJ}K!$O4m81$G$9$M!#(BSubject: $BCf$K(B Re: $B$H$$$&J8;zNs$,$"$l$PLdEz(B
$BL5MQ$K:o=|$7$A$c$&$3$H$K$J$k$N$G!#(B

$B$d$k$J$i$P%G%U%)%k%H$G$O$J$/!"3F<+$N at example.com$K$7$?$$$H;W$C$F$$$^$9!#(B
$B$3$N(Bprefix $B$N%Q%?!<%s$O7h$^$C$?%k!<%k$,$"$k$o$1$G$b$J$$$7!"(B
ML $B$N(Bprefix $B$J$N$+$=$&$G$J$$$N$+6hJL$7$K$/$$$N$G!#(B
$BNc$($P0J2<$N$h$&$J%Q%?!<%s$J$I$G$7$g$&$+!#(B

(setq mew-subject-simplify-replace-alist
      (nconc '(("\\[[-a-z]+[: ][0-9]+\\] *" . nil)
	       ("\\([-a-z]+[: ][0-9]+\\) *" . nil))
             mew-subject-simplify-replace-alist))

## $B$"$^$j$$$$$d$j$+$?$G$O$J$$$J(B...

P.S.
$B$H$$$&$+!"$3$N(B Re: / Fw: $B$N(Bsimplify $B$O$"$^$j6E$C$F$b$7$g$&$,$J$$$H(B
$B;W$C$F$k(B(^^;

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN