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

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

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Message-Id: <19990525101112L.kazu at example.com>

> > これをmew-refile-guess-by-defaultでrefileしようとすると、デフォルトでは
> > かなり嫌なことになるので、ユーザ名中の / 以降を無視するようにはできない
> > でしょうか?
> 
> これは、2 秒で実装できます。:-) 他にユーザ名の部分に悪さをするシステム
> はありますか？
> 
> 今のところ
> 	* 最後の ":;" は削る (Pooh-Lovers:; → Pooh-Lovers) # refile 用
> 	* "/" から後は削る CCMail 対策

ということで、1.94b30以降、Refileは幸せになりました。

ついでなので、Addrbook。
現在のAddrbookでは、会社の人のエントリは、

foo foo at example.com      Foo
*   foo/NDOM at example.com Foo

などと書かないといけないので面倒です。
Scanするときも / から後を消すようにすればいいのかな、ということで、次の
パッチ

↓ここから
--- Address.pm.orig	Fri Jun  4 17:27:29 1999
+++ Address.pm	Mon Jun  7 17:29:54 1999
@@ -229,6 +229,7 @@
 	$friendly1 =~ s/^\s+//;
 	$friendly1 =~ s/\s+$//;
     }
+    $addrout =~ s/\/[^@]*//;
     return ($addrout, $addrin, $friendly1);
 }
 
↑ここまで

で行けそうな気がするのですが、いかがなものでしょうか?
# もうちょっとマシな正規表現もありそうですが…
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田 原  俊 一   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
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣