[Mew-dist 03407] Re: im-82.tar.gz

[Hajimu UMEMOTO]

  梅本＠日立です。

  IMAP で immv および imrm が動かなくなっています。

>>> Wed, 14 Jan 1998 23:59:50 +0900 の刻に「ksakai」、すなわち
>>> SAKAI Kiyotaka <ksakai at example.com> 氏曰く

ksakai> # 話は変わりますが、immv や imrm 等に記述されている IMAP 関連の関数は、
ksakai> # なるべく Imap.pm にまとめまれていると嬉しいと思いますが、いかかでしょ
ksakai> # うか？

  同感です。

Index: immv.in
===================================================================
RCS file: /usr/home/ume/ncvs/src/im/immv.in,v
retrieving revision 1.1.1.3
diff -u -r1.1.1.3 immv.in
--- immv.in	1998/01/14 06:57:57	1.1.1.3
+++ immv.in	1998/01/14 17:05:29
@@ -92,6 +92,10 @@
     my ($src, $dsts, $msgs) = @_;
     my @msg_paths;
 
+    if ($src =~ /^%/o) {
+	require IM::Imap && import IM::Imap;
+    }
+
     chk_folder_existance($src, @{$dsts}); # ignore IMAP folders
     open_imap_folders(0, $src);
     open_imap_folders(1, @{$dsts});
@@ -99,8 +103,6 @@
     if ($src !~ /^%/) {
 	chk_msg_existance($src, @{$msgs});
     } else {
-	require IM::Imap && import IM::Imap;
-
 	my ($HANDLE, $srcacct, $srcset);
 	my ($getbox, $link) = ('+inbox', 0);
 	my $link_1st;
Index: imrm.in
===================================================================
RCS file: /usr/home/ume/ncvs/src/im/imrm.in,v
retrieving revision 1.1.1.3
diff -u -r1.1.1.3 imrm.in
--- imrm.in	1998/01/14 06:58:02	1.1.1.3
+++ imrm.in	1998/01/14 17:06:17
@@ -90,6 +90,10 @@
     my ($src, $dsts, $msgs) = @_;
     my @msg_paths;
 
+    if ($src =~ /^%/o) {
+	require IM::Imap && import IM::Imap;
+    }
+
     chk_folder_existance($src, @{$dsts}); # ignore IMAP folders
     open_imap_folders(0, $src);
     open_imap_folders(1, @{$dsts});
@@ -97,8 +101,6 @@
     if ($src !~ /^%/) {
 	chk_msg_existance($src, @{$msgs});
     } else {
-	require IM::Imap && import IM::Imap;
-
 	my ($HANDLE, $srcacct, $srcset);
 	my ($getbox, $link) = ('+inbox', 0);
 	my $link_1st;

--
梅本 肇 ＠ インターネット互助会横浜
ume at example.com  ume at example.com  http://www.imasy.or.jp/~ume/
プログラムは書いた人の意図ではなく書かれた通り動く