[Mew-dist 09277] Re: Stripping slash (Re: +fromへのrefile)

[Shun-ichi TAHARA ( 田原 俊一 )]

From: Shun-ichi TAHARA (田原 俊一) <jado at example.com>
Message-Id: <19990609090828S.shunichi_tahara at example.com>

> > > Scanするときも / から後を消すようにすればいいのかな、ということで、次の
> > > パッチ
> > > で行けそうな気がするのですが、いかがなものでしょうか?
> > 
> > この Address.pm 中の fetch_addr() という関数は、IM では様々な場面に使
> > われていますので、ここに変更をかけるのは危険なように思います。

> > このような修正を行いたいのであれば、Scan.pm 中で fetch_addr() の戻り値
> > に対して実行した方が安全なように思うのですが…。
> 
> もうちょっと練り直してみます。ありがとうございました。

ということで、早速出直してきました。[Mew-dist 09211]のパッチは取り下げて、
こちらで再提案します。

imgetやimlsでフォルダをscanする時、Addrbook等でのpetnameheへの置換に限り、
Notesのドメインにあたるスラッシュ以降を無視します。

  ex) foo/NDOM at example.com は、foo at example.com のエントリにマッチする

Configで無効にできるようにした方がいいのかもしれないですが、refileの先の
推測時には必ず切るようになっているようですので、今のところConfigへの細工
はしていません。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田 原  俊 一   jado at example.com, shunichi_tahara at example.com
      株式会社ゼンリン 研究部 情報システム課 イントラネットGr.
FingerPrint: 16 9E 70 3B 05 86 5D 08 - B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

--- Scan.pm.orig	Fri Jun  4 17:27:30 1999
+++ Scan.pm	Wed Jun  9 09:47:25 1999
@@ -596,8 +596,10 @@
     my $friendly = '';
     my ($a, $f, $p);
     while (($a, $addr, $f) = &fetch_addr($addr, 1), $a ne '') {
-	if (defined(%petnames) && $petnames{lc($a)}) {
-	    $p = $petnames{lc($a)};
+	my $sa = $a;
+	$sa =~ s/\/[^@]*//;
+	if (defined(%petnames) && $petnames{lc($sa)}) {
+	    $p = $petnames{lc($sa)};
 	} elsif (!$need_addr && $f) {
 	    $p = &mime_decode_string($f);
 	} else {