[Mew-dist 10392] Re: imap環境でimmvできない

[SAKAI Kiyotaka]

>> In article <19990824162158A.shirai at example.com>, Hideyuki SHIRAI (白井秀行) <shirai at example.com> writes:

> しかし、以下の様に //AUTH を書くと ImapAccount の有り無しにかか
> わらず、

> % immv --verbose=on --src=+tmp --dst=%#mh/ml/hoge//AUTH:shirai at example.com 39
> immv: folder=#mh/ml/hoge auth=AUTH user=shirai host=sugar.rdmg.mgcs.mei.co.jp
>   <<snip>>
> immv: >>> im100 OK AUTHENTICATE completed
> immv: select mbox #mh/ml/hoge//AUTH and getting number of message.
> immv: <<< im101 SELECT #mh/ml/hoge//AUTH
> immv: >>> im101 NO SELECT failed: Can't open mailbox #mh/ml/hoge//AUTH: no such mailbox
> immv: creating folder #mh/ml/hoge//AUTH.
> immv: <<< im102 CREATE #mh/ml/hoge//AUTH
> immv: >>> im102 OK CREATE completed
> immv: folder=#mh/ml/hoge auth=AUTH user=shirai host=sugar.rdmg.mgcs.mei.co.jp
> immv: appending a new message to #mh/ml/hoge//AUTH.
> immv: <<< im103 APPEND #mh/ml/hoge//AUTH (\Seen) {597}
> immv: >>> + Ready for argument

このパッチもお願いします。先のパッチの後に当てて下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
Index: IM/Imap.pm
===================================================================
RCS file: /home/ksakai/cvsroot/im-125/IM/Imap.pm,v
retrieving revision 1.2
diff -u -c -r1.2 Imap.pm
*** Imap.pm	1999/08/24 07:30:28	1.2
--- Imap.pm	1999/08/24 07:45:35
***************
*** 733,749 ****
      my $folder = shift;
  
      if ($folder =~ /^%([^:\@]+)/) {
! 	return $1;		# folder without '%'
      }
      return '';
  }
  
  sub imap_folder_acct ($) {
!     my $folder = shift;
  
!     $folder = imap_folder_regname($folder);
!     if ($folder =~ /^%([^:]+):([^\/]+)\/([^\@]+)\@([^\/]+).*$/) {
! 	return "$2\@$4";	# user at example.com
      }
      return '';
  }
--- 733,755 ----
      my $folder = shift;
  
      if ($folder =~ /^%([^:\@]+)/) {
! 	$folder = $1;
! 	if ($folder =~ /(.*)\/\//) {
! 	    $folder = $1;
! 	}
! 	return $folder;		# folder without '%'
      }
      return '';
  }
  
  sub imap_folder_acct ($) {
!     my $folder = shift;		# %...
!     my ($auth, $user, $host);
  
!     ($folder, $auth, $user, $host) = imap_spec($folder);
! 
!     if ($user && $host) {
! 	return "$user\@$host";
      }
      return '';
  }