[Mew-dist 08255] Re: mew-1.94b15.tar.gz and im-111.tar.gz

[YAMAGUCHI, Shuhei]

>>>>> In [Mew-dist : No.08237] mew-1.94b15.tar.gz and im-111.tar.gz
>>>>>	Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

Kazu> IM は、Addrbook の alias 部分をサポートしていません。Mew の Draft モー
Kazu> ドで展開して下さいね。(Addrbook があっても、Aliases は一応有効です。)

IM側はとりあえずのサポートであるということだと思いますが、im-111におけ
るAddrbookのnicknameで、省略記号である `*' が使えなかったので、パッチ
をつくってみました。

ところで、Addrbookの解析中、`:'で終わる文字列ならスキップする、という
処理があったのですが、これの意図は、
  alias: addr1,addr2,...
をスキップするためですよね?
そうに違いないと(勝手に)信じて、これも修正しました。
#ついでに、コメント行をスキップするようにも。 :-)

以下、感想です。

alias addr1,addr2 nickname [name] の形式はとても便利ですね。
さらに欲を言えば、refile先にaliasが使えるとうれしいかも。
refile先フォルダは+from/aliasのみで、対象となるalias形式も
  alias addr1,addr2 nickname [name]
のみ。From: がaddr1やaddr2の場合、+from/aliasにrefileされる。
refileとaliasの分離が行われたばかりなのに、(方向性は違うとはいえ)逆行
してます?

でわでわ
-- 
yamagus at example.com / 山口 修平
  yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
PGP-Fingerprint: 25 0F 6F E1 57 AD 56 08  3A BC D0 9B 48 AF 31 7A
(会社より)
-------------- next part --------------
--- Scan.pm.orig	Tue Mar 23 09:13:05 1999
+++ Scan.pm	Wed Mar 24 05:36:59 1999
@@ -855,7 +855,7 @@
 	    if (/^(\S+)\s+/) {
 		$key = $1;
 		$_ = $';
-		next if (/:$/);
+		next if ($key =~ /(^#)|(:$)/);
 	    }
 	    if (/^"([^"]+)"\s+/) {
 	        $addr = $1;
@@ -870,7 +870,11 @@
 	    } elsif (/^(\S+)\s+/) {
 	        $petname = $1;
 		$_ = $';
+	    } else {
+	        $petname = "";
+	        $_ = $';
 	    }
+	    next if ($petname =~ /^(\*)?\s*$/);
 	    @addrs = split(/,\s*/, $addr);
 	    while ($addr = shift(@addrs)) {
 	        $petnames{lc($addr)} = $petname;