[Mew-dist 06779] imsetup behavior (Aliasfile:)

[Noda Takashi]

のだ＠阪大です。

MH において .mh_profile で Aliasfile: の引数を Fullpath 
で書いてもきちんと動作しますが、そのような .mh_profile 
の場合は imsetup を実行したときにうまくエイリアスファイル
をコピーしてくれません。
 
うちにはそのようなユーザーが沢山いるのでimsetup
をすこし変更してみました。

また、 古い MH では 
ali: -alias <aliasfile>
となっているものもあるだろうからということも考えながら 
パッチを書いてみたのですが、自信がないので誰か採点してください。


▼△  のだたかし  (Noda Takashi)
▽▲ mailto:noda at example.com


--- imsetup.org	Thu Oct 22 18:02:50 1998
+++ imsetup	Thu Oct 22 18:53:31 1998
@@ -163,6 +163,9 @@
 	    if (/^Aliasfile:\s*/i) {
 		$mhalias = $';
 	    }
+	    elsif (/^ali:[ 	]*-alias\s*/i) {
+		$mhalias = $';
+	    }
 	    if (/^Alternate-Mailboxes:\s*/i) {
 		$address = $';
 	    }
@@ -209,12 +212,19 @@
 
 sub copy_alias_file () {
     my $im_alias = "$home/$imdir/$alias";
+    my $mh_alias2 = "$mhalias";
     my $mh_alias = "$home/$mhdir/$mhalias";
 
     if ( -f $mh_alias && ! -f $im_alias ) {
 	print "Copy $mh_alias to $im_alias.\n";
 	if (!$opt_noharm) {
 	    copy($mh_alias, $im_alias);
+	}
+    }
+    elsif ( -f $mh_alias2 && ! -f $im_alias ) {
+	print "Copy $mh_alias2 to $im_alias.\n";
+	if (!$opt_noharm) {
+	    copy($mh_alias2, $im_alias);
 	}
     }
 }