[Mew-dist 09761] Re: addrbook & imls

[SAKAI Kiyotaka]

>> In article <19990719164358T.takahiko at example.com>, Takahiko Horiuchi (堀内 孝彦) <takahiko at example.com> writes:

> mew では addrbook の一つのエントリを複数行で書けるようになっている
> ようですが，im では認識してくれません．

>   hoge   hoge at example.com, hoge at example.com  hoge  hogehoge
>         -> これは mew, imls ともに OK

>   hoge   hoge at example.com,
>          hoge at example.com  hoge  hogehoge
>         -> mew の draft mode では address の補完，展開をしてくれるが
>         imls の nickname はダメ

> 実は仕様外なのでしょうか？ 長いエントリでも，複数行で記述できると
> すっきりするので，対応してくださると嬉しいです．

Mew では、行末が ',' か '\' で終わっているときに、('\' のときはこれを
削除して) 次の行を継続行としてみなして処理しています。

どの位置で改行をいれてもいいわけではありません。

IM で同じような仕様にするには、以下のような変更をすればいいかと思いま
す。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
Index: IM/Scan.pm
===================================================================
RCS file: /home/ksakai/cvsroot/im-117/IM/Scan.pm,v
retrieving revision 1.1.1.1
diff -u -c -r1.1.1.1 Scan.pm
*** Scan.pm	1999/07/09 07:13:40	1.1.1.1
--- Scan.pm	1999/07/19 08:53:59
***************
*** 859,873 ****
  	my $code;
  
  	while(<ADDRBOOK>) {
! 	    chomp;
! 	    next if (/^[#;]/);
!             $code = code_check($_, 0);
!             if ($code eq 'sjis') {
! 		$_ = conv_euc_from_sjis($_);
!             } elsif ($code eq 'jis') {
! 		$_ = conv_euc_from_jis($_);
!             }
!             s/#.*$//g;
  	    s/"([^"]+)"/w2n($1)/geo;
              s/,\s+/,/g;
  	    if (/^(\S+)\s+(\S+)\s+(\S+)/) {
--- 859,879 ----
  	my $code;
  
  	while(<ADDRBOOK>) {
! 	    my $line = '';
! 	    do {
! 		chomp;
! 		next if (/^[\#;]/);
! 		$code = code_check($_, 0);
! 		if ($code eq 'sjis') {
! 		    $_ = conv_euc_from_sjis($_);
! 		} elsif ($code eq 'jis') {
! 		    $_ = conv_euc_from_jis($_);
! 		}
! 		s/#.*$//g;
! 		$line =~ s/\\$//;
! 		$line .= $_;
! 	    } while (/[,\\]$/ && defined($_ = <ADDRBOOK>));
! 	    $_ = $line;
  	    s/"([^"]+)"/w2n($1)/geo;
              s/,\s+/,/g;
  	    if (/^(\S+)\s+(\S+)\s+(\S+)/) {