[Mew-dist 2096] Re: multi-refile in mew-mark.el

[Fumitoshi UKAI]

From: Yoshinari NOMURA <nom at example.com>
Subject: [Mew-dist 2095] Re: multi-refile in mew-mark.el
Date: Wed, 17 Sep 1997 23:12:47 +0900

> 約束では、@F とかすると、+xxx と --dst=+xxx は、equevalent で、
> 
> % immv --src=+inbox --dst=+foo,+bar と
> % immv --src=+inbox +foo +bar       は equivalent
> 
> の筈でしたよね。それがいつのまにか後者を許さなくなっている。どの
> 時点からだったんだろう。。身に覚えのある人いませんか?

ごめんなさい。犯人はたぶん私です(_o_)
これで直りますか?

-- 
鵜飼文敏
-------------- next part --------------
--- IM.in/Config.pm.in.orig	Tue Sep 16 11:33:44 1997
+++ IM.in/Config.pm.in	Thu Sep 18 00:37:21 1997
@@ -62,6 +62,7 @@
 	    $OS @CfgConfig
 	    @O_IORD %O_DESC %O_VNAM %O_FULL %O_ABBR %O_HELP
 	    $O_FOPT %C_DESC %C_VNAM
+	    %WHO_SET
 	    @SELECTORS $SavedMsg %Debug);
 
 $CURRENT_DIR = $ENV{'PWD'} || eval { use Cwd; fastcwd(); } ||
@@ -333,10 +334,10 @@
     foreach $profile (@profiles) {
 	my $fh;
 	if ($profile eq '<DATA>') {
-	    $fh = *DATA{IO};
+	    $fh = \*DATA;
 	}
 	elsif (open(PROFILE, "<$profile")) {
-	    $fh = *PROFILE{IO};
+	    $fh = \*PROFILE;
 	}
 	else {
 	    next;
@@ -585,7 +586,7 @@
 sub set_value ($$$$)
 {
     my ($desc, $vnam, $val, $who) = @_;  # b, $main::opt_help, yes
-    my (%WHO_SET);
+    # my (%WHO_SET);
 
     # require numeric but not numeric, return undef
     return undef if ($desc =~ /i/ && $val !~ /\d+/);