[mew-dist 28898] 特定フォルダ以下をauto-refileの対象から外すには？

[Tatsuo Ishii]

$***@P0f$H?=$7$^$9!#(B


$BFCDj%U%)%k%@0J2<$r(Bauto-refile(M-o)$B$G!"FCDj$N%U%)%k%@0J2<$rM}%U%!%$%k$N(B
$BBP>]$+$i30$9J}K!$O$J$$$G$7$g$&$+!)(B

$B;d$OG/$,JQ$o$k$H!":#$^$G$N%a!<%k$r$4$C$=$j(B"Mail-2008"$B$N$h$&$J%U%)%k%@(B
$B$K0\F0$7$F!"6u$N%U%)%k%@$+$i?7G/$r%9%?!<%H$9$k1?MQ$r$7$F$$$^$9!#$3$&$7(B
$B$J$$$H!"%a%b%j$r;H$$$9$.$F%9%l%C%II=<($,$G$-$J$/$J$C$?$j$9$k$3$H$b$"$k(B
$B$N$G!#(B
($B$^$?(Bsylph-searcher$B$H$$$&%a!<%k$NA4J88!:w%=%U%H$G%a!<%k$r<h$j9~$`$H$-(B
$B$K!"(BMail-2008$B0J2<$OL5;k$9$k$h$&$K$9$k$H!"<h$j9~$_$,Aa$/$J$k!"$H$$$&%a(B
$B%j%C%H$b$"$j$^$9(B)

$B$H$j$"$($:!"(B.mew-folder-alist$B$+$i(BMail-2008$B0J2<$r:o=|$9$k$H$3$NL\E*$OC#(B
$***@.$G$-$k$3$H$OJ,$+$C$?$N$G$9$,!"$=$l$r$7$F$7$^$&$H!"$?$^$K(BMail-2008$B0J(B
$B2<$r8+$?$$$H$-$K%U%)%k%@L>$NJd40$,$5$l$J$/$J$C$F$7$^$&$N$G!"$A$g$C$HIT(B
$BJX$G$9!#(B

$B$?$V$s$b$C$H%9%^!<%H$JJ}K!$,$"$k$H;W$&$N$G$9$,(B...
--
Tatsuo Ishii
SRA OSS, Inc. Japan

[Hideyuki SHIRAI (白井秀行)]

$B$3$s$K$A$O!"Gr0f$G$9!#(B

From: Tatsuo Ishii <***@sraoss.co.jp> $B$5$s[)$/(B
Subject: [mew-dist 28898] $BFCDj%U%)%k%@0J2<$r(Bauto-refile$B$NBP>]$+$i30$9$K$O!)(B
Message-ID: <20090308.172222.26505782.t-***@sraoss.co.jp>
Date: Sun, 08 Mar 2009 17:22:22 +0900 (JST)

Post by Tatsuo Ishii
$BBP>]$+$i30$9J}K!$O$J$$$G$7$g$&$+!)(B

$BDL>o$NJ}K!$G$OB8:_$7$J$$$N$G!"$J$s$i$+$N8DJLBP1~$r$7$J$$$H$@$a$@(B
$B$H;W$$$^$9!#(B

Post by Tatsuo Ishii
$B$J$$$H!"%a%b%j$r;H$$$9$.$F%9%l%C%II=<($,$G$-$J$/$J$C$?$j$9$k$3$H$b$"$k(B
$B$N$G!#(B
($B$^$?(Bsylph-searcher$B$H$$$&%a!<%k$NA4J88!:w%=%U%H$G%a!<%k$r<h$j9~$`$H$-(B
$B$K!"(BMail-2008$B0J2<$OL5;k$9$k$h$&$K$9$k$H!"<h$j9~$_$,Aa$/$J$k!"$H$$$&%a(B
$B%j%C%H$b$"$j$^$9(B)
$B$H$j$"$($:!"(B.mew-folder-alist$B$+$i(BMail-2008$B0J2<$r:o=|$9$k$H$3$NL\E*$OC#(B
$BJX$G$9!#(B
$B$?$V$s$b$C$H%9%^!<%H$JJ}K!$,$"$k$H;W$&$N$G$9$,(B...

auto-refile $B$N$H$-$K!"$I$N%j%U%#%k%k!<%k$,(B "Mail-2008" $B$r=P$9$N(B
$B$+$rD4$Y$k$N$,NI$$$H;W$$$^$9!#%j%U%#%***@h$,(B "Mail-2008" $B$K$J$C$F(B
$B$7$^$C$F7y$J%a%C%;!<%8>e$G(B "C-uo" $B$r$7$F$_$F$/$@$5$$!#$=$&$9$k$H!"(B
$B0J2<$N$h$&$K!"$I$&$d$C$F$=$N%a!<%k$N%j%U%#!<%***@h$r7hDj$7$F$$$k$+(B
$B$,=P$F$-$^$9!#$\$/$N>l9g!"@P0f$5$s$N%a!<%k$G(B "C-o" $B$9$k$H(B

** Guess result: (+ml/mew-dist)

** Current Configurations:

mew-refile-ctrl-multi : nil
mew-refile-guess-key-list : (Resent-To: Resent-Cc: Resent-Bcc: Resent-Dcc: To: Cc: Dcc: Bcc: Apparently-To:)
mew-refile-guess-strip-domainpart : t
mew-refile-guess-from-me-is-special : t

** Each function's opinion:

mew-refile-guess-by-alist return: +ml/mew-dist
mew-refile-guess-by-thread return:
mew-refile-guess-by-folder return: +ml/mew-dist/
mew-refile-ctrl-throw return: stop
mew-refile-ctrl-auto-boundary return:
mew-refile-guess-by-newsgroups return:
mew-refile-guess-by-from return:
mew-refile-ctrl-throw return: stop
mew-refile-guess-by-from-folder return:
mew-refile-guess-by-default return: +from/ishii

$B$H$J$j$^$9!#FbMF$O(B info $B$K=q$$$F$"$k$N$G;29M$K$7$F$/$@$5$$!#(B

$B$3$N$H$-(B auto-refile $B$@$C$?$i!"(Bmew-refile-ctrl-auto-boundary $B$h(B
$B$j>e$N%k!<%k(B($B4X?t(B)$B$N7k2L$,;H$o$l$^$9!#$J$N$G!"(B"Mail-2008" $B$J$I$r(B
$B=P$7$F$$$k4X?t$rFM$-;_$a$F!"$=$$$D(B *$B$[$K$c$i$i(B* $B$9$k$N$,NI$$$H;W(B
$B$$$^$9!#(B

*$B$[$K$c$i$i(B* $B$NFbMF$O%1!<%9%P%$%1!<%9$G$9$,!"Nc$r5s$2$F$b$i$($l(B
$B$P:n$C$A$c$&$+$b!#(B

# $B$*$=$i$/(B mew-refile-guess-by-folder $B$@$H;W$$$^$9!#(B

[Tatsuo Ishii]

Post by Hideyuki SHIRAI (白井秀行)
auto-refile $B$N$H$-$K!"$I$N%j%U%#%k%k!<%k$,(B "Mail-2008" $B$r=P$9$N(B
** Guess result: (+ml/mew-dist)
mew-refile-ctrl-multi : nil
mew-refile-guess-key-list : (Resent-To: Resent-Cc: Resent-Bcc: Resent-Dcc: To: Cc: Dcc: Bcc: Apparently-To:)
mew-refile-guess-strip-domainpart : t
mew-refile-guess-from-me-is-special : t
mew-refile-guess-by-alist return: +ml/mew-dist
mew-refile-guess-by-folder return: +ml/mew-dist/
mew-refile-ctrl-throw return: stop
mew-refile-ctrl-throw return: stop
mew-refile-guess-by-default return: +from/ishii
$B$j>e$N%k!<%k(B($B4X?t(B)$B$N7k2L$,;H$o$l$^$9!#$J$N$G!"(B"Mail-2008" $B$J$I$r(B
$B=P$7$F$$$k4X?t$rFM$-;_$a$F!"$=$$$D(B *$B$[$K$c$i$i(B* $B$9$k$N$,NI$$$H;W(B
$B$$$^$9!#(B
*$B$[$K$c$i$i(B* $B$NFbMF$O%1!<%9%P%$%1!<%9$G$9$,!"Nc$r5s$2$F$b$i$($l(B
$B$P:n$C$A$c$&$+$b!#(B

$B$*;!$7$NDL$j!"(Bmew-refile-guess-by-folder $B$N$h$&$G$9!#$3$N4X?t$r$$$8$C(B
$B$F!"(B"Mail-2008"$B$NJ}$K9T$-$=$&$@$C$?$i$=$&$J$i$J$$$h$&$K$9$k$3$H$K$J$k(B
$B$N$G$7$g$&$+!)(B

** Guess result: (+Mail-2008/PostgreSQL/jpug-kyushu)

** Current Configurations:

mew-refile-ctrl-multi : t
mew-refile-guess-key-list : (Resent-To: Resent-Cc: Resent-Bcc: Resent-Dcc: To: Cc: Dcc: Bcc: Apparently-To:)
mew-refile-guess-strip-domainpart : t
mew-refile-guess-from-me-is-special : nil

** Each function's opinion:

mew-refile-guess-by-alist return:
mew-refile-ctrl-throw return:
mew-refile-guess-by-newsgroups return:
mew-refile-guess-by-folder return: +Mail-2008/PostgreSQL/jpug-kyushu
mew-refile-ctrl-throw return: stop
mew-refile-ctrl-auto-boundary return:
mew-refile-guess-by-thread return:
mew-refile-ctrl-throw return: stop
mew-refile-guess-by-from-folder return:
mew-refile-ctrl-throw return: stop
mew-refile-guess-by-from return: +PostgreSQL/JPUG
mew-refile-ctrl-throw return: stop
mew-refile-guess-by-default return: +from/etoh
--
Tatsuo Ishii
SRA OSS, Inc. Japan

[Hideyuki SHIRAI (白井秀行)]

$BGr0f$G$9!#(B

From: Tatsuo Ishii <***@sraoss.co.jp> $B$5$s[)$/(B
Subject: [mew-dist 28903] Re: $BFCDj%U%)%k%@0J2<$r(Bauto-refile$B$NBP>]$+$i30$9$K$O!)(B
Message-ID: <20090309.124539.82127671.t-***@sraoss.co.jp>
Date: Mon, 09 Mar 2009 12:45:39 +0900 (JST)

Post by Tatsuo Ishii
$B$*;!$7$NDL$j!"(Bmew-refile-guess-by-folder $B$N$h$&$G$9!#$3$N4X?t$r$$$8$C(B
$B$N$G$7$g$&$+!)(B
mew-refile-guess-by-folder return: +Mail-2008/PostgreSQL/jpug-kyushu

$B$=$&$J$j$^$9!#$7$+$7!"(Bmew-refile-guess-by-folder $B<+BN$r2~B$$9$k(B
$B$N$O$h$m$7$/$J$$$N$G!"N.MQ$7$FB>$N4X?t$rDj5A$9$kJ}$,NI$$$H;W$$$^$9!#(B

$BNc$($P!"0J2<$N$h$&$K(B mew-refile-guess-by-folder-not-old() $B$rDj5A(B
$B$7$F!"(Bmew-refile-guess-control $B$KDI2C$9$l$P(B OK $B$G$7$g$&!#(B

(defvar mew-refile-guess-by-folder-not-old-alist nil)

(defun mew-refile-guess-by-folder-not-old ()
(let ((to-cc (mew-header-parse-address-list mew-refile-guess-key-list))
(proto mew-inherit-refile-proto)
(case mew-inherit-refile-case)
alist tmp sep ent ret ml-addr ml-name)
(when (mew-folder-localp proto)
(setq sep mew-path-separator)
(if mew-refile-guess-by-folder-not-old-alist
(setq alist mew-refile-guess-by-folder-not-old-alist)
(setq alist (mew-proto-folder-alist proto case))
(while alist
(unless (string-match "^\\+Mail-[12][0-9][0-9][0-9]" (car (car alist)))
(setq tmp (cons (car alist) tmp)))
(setq alist (cdr alist)))
(setq alist (nreverse tmp))
(setq mew-refile-guess-by-folder-not-old-alist alist))
(dolist (tc to-cc)
(setq ml-addr (mew-addrstr-parse-address (or tc "")))
(when ml-addr
(setq ml-name (mew-addrstr-extract-user ml-addr))
(setq ent (or (funcall mew-assoc-folder ml-addr alist sep)
(funcall mew-assoc-folder ml-name alist sep)))
(mew-addq ret (nth 0 ent))))
(nreverse ret))))

(setq mew-refile-guess-control
'(mew-refile-guess-by-alist
mew-refile-ctrl-throw
mew-refile-guess-by-newsgroups
mew-refile-guess-by-folder-not-old ;; $BDI2C(B
mew-refile-ctrl-throw
mew-refile-ctrl-auto-boundary
mew-refile-guess-by-folder ;; $BE,Ev$J0LCV$KF0$+$9(B($B>C$9$N$b$"$j(B)
mew-refile-guess-by-thread
mew-refile-ctrl-throw
mew-refile-guess-by-from-folder
mew-refile-ctrl-throw
mew-refile-guess-by-from
mew-refile-ctrl-throw
mew-refile-guess-by-default))

$B$3$l$G!"(BM-o $B$N$H$-$K(B +Mail-2008/... $B$,=P$F$/$k$3$H$O$J$/$J$k$H;W(B
$B$$$^$9!#(B

$B$J$*!"(B

(1) $BFs2sL\0J9_$O(B +Mail-XXXX $B$r=|$$$?(B alist $B$r;H$$$^$o$7$F$$$k$?(B
$B$a!"8e$+$i%U%)%k%@$rDI2C$7$?$j!":o=|$7$?$j$7$?$i!"(BEmacs $B$rN)(B
$B$A>e$2D>$9$+!"(B
(setq mew-refile-guess-by-folder-not-old-alist nil)
$B$H$7$J$$$H%@%a$G$9!#(B

(2) $B%m!<%+%k%U%)%k%@8BDj$G$9!#(BIMAP $B$K$bBP1~=PMh$^$9$,!">/!9LLE](B
$B$/$5$/$J$k$N$G!"$b$7I,MW$J$i$^$?:#EY!#(B

$B$H$$$C$?46$8$G$9!#(B

[Tatsuo Ishii]

Post by Hideyuki SHIRAI (白井秀行)
$BNc$($P!"0J2<$N$h$&$K(B mew-refile-guess-by-folder-not-old() $B$rDj5A(B
$B$7$F!"(Bmew-refile-guess-control $B$KDI2C$9$l$P(B OK $B$G$7$g$&!#(B
(defvar mew-refile-guess-by-folder-not-old-alist nil)
(defun mew-refile-guess-by-folder-not-old ()
(let ((to-cc (mew-header-parse-address-list mew-refile-guess-key-list))
(proto mew-inherit-refile-proto)
(case mew-inherit-refile-case)
alist tmp sep ent ret ml-addr ml-name)
(when (mew-folder-localp proto)
(setq sep mew-path-separator)
(if mew-refile-guess-by-folder-not-old-alist
(setq alist mew-refile-guess-by-folder-not-old-alist)
(setq alist (mew-proto-folder-alist proto case))
(while alist
(unless (string-match "^\\+Mail-[12][0-9][0-9][0-9]" (car (car alist)))
(setq tmp (cons (car alist) tmp)))
(setq alist (cdr alist)))
(setq alist (nreverse tmp))
(setq mew-refile-guess-by-folder-not-old-alist alist))
(dolist (tc to-cc)
(setq ml-addr (mew-addrstr-parse-address (or tc "")))
(when ml-addr
(setq ml-name (mew-addrstr-extract-user ml-addr))
(setq ent (or (funcall mew-assoc-folder ml-addr alist sep)
(funcall mew-assoc-folder ml-name alist sep)))
(mew-addq ret (nth 0 ent))))
(nreverse ret))))
(setq mew-refile-guess-control
'(mew-refile-guess-by-alist
mew-refile-ctrl-throw
mew-refile-guess-by-newsgroups
mew-refile-guess-by-folder-not-old ;; $BDI2C(B
mew-refile-ctrl-throw
mew-refile-ctrl-auto-boundary
mew-refile-guess-by-folder ;; $BE,Ev$J0LCV$KF0$+$9(B($B>C$9$N$b$"$j(B)
mew-refile-guess-by-thread
mew-refile-ctrl-throw
mew-refile-guess-by-from-folder
mew-refile-ctrl-throw
mew-refile-guess-by-from
mew-refile-ctrl-throw
mew-refile-guess-by-default))
$B$3$l$G!"(BM-o $B$N$H$-$K(B +Mail-2008/... $B$,=P$F$/$k$3$H$O$J$/$J$k$H;W(B
$B$$$^$9!#(B

$B;n$7$F$_$^$7$?!#(Bmew-refile-guess-by-folder$B$r%3%a%s%H%"%&%H$9$k$3$H$K$h(B
$B$j!"(B+Mail-2008/... $B$,=P$F$3$J$/$J$j$^$7$?!#$"$j$,$H$&$4$6$$$^$7$?!*(B

Post by Hideyuki SHIRAI (白井秀行)
$B$J$*!"(B
(1) $BFs2sL\0J9_$O(B +Mail-XXXX $B$r=|$$$?(B alist $B$r;H$$$^$o$7$F$$$k$?(B
$B$A>e$2D>$9$+!"(B
(setq mew-refile-guess-by-folder-not-old-alist nil)
$B$/$5$/$J$k$N$G!"$b$7I,MW$J$i$^$?:#EY!#(B

$BN;2r$G$9!#(B
--
Tatsuo Ishii
SRA OSS, Inc. Japan