[Mew-dist 06638] Re: (IM) set config

[Motonori Nakamura]

>>>>> On Mon, 5 Oct 1998 21:17:02 +0900, TAKAHASHI Kaoru <nil at example.com> said:

nil> これを case default,foo とすっきり書けるか試してみただけです。

これでどうでしょう?

--- IM/Config.pm.in-	Mon Oct  5 23:00:19 1998
+++ IM/Config.pm.in	Mon Oct  5 23:01:42 1998
@@ -552,10 +552,10 @@
 	$vnam = $C_VNAM{$name};
     }
     if ($vnam && $desc) {
-	if ($case eq 'default') {
+        foreach (split(',', $case)) {
+	    if ($_ eq 'default') {
 		set_value($desc, $vnam, $val, 'cfg');
-	} else {
-	    foreach (split(',', $case)) {
+	    } else {
 		set_value_case($desc, $vnam, $val, $_);
 	    }
 	}

- motonori