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

[SAKAI Kiyotaka]

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

> ごめんなさい、確認不足の点がありました。
> local => imap に immv したときに local の msg が消えないようです。

このパッチで直ると思います。

> # 仕様かしら？

仕様ではないです…。
-- 
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
Index: immv.in
===================================================================
RCS file: /home/ksakai/cvsroot/im-125/immv.in,v
retrieving revision 1.1.1.1
diff -u -c -r1.1.1.1 immv.in
*** immv.in	1999/08/24 02:16:46	1.1.1.1
--- immv.in	1999/08/25 02:54:12
***************
*** 213,219 ****
  
      foreach $msg (@$msgs) {
  	my $src_path = get_impath($src, ($msg));
! 	imap_put_file($src, $dsts, $src_path) if (-f $src_path);
      }
  }
  
--- 213,222 ----
  
      foreach $msg (@$msgs) {
  	my $src_path = get_impath($src, ($msg));
! 	if (-f $src_path) {
! 	    imap_put_file($src, $dsts, $src_path);
! 	    im_unlink($src_path);
! 	}
      }
  }
  
-------------- next part --------------
Index: imrm.in
===================================================================
RCS file: /home/ksakai/cvsroot/im-125/imrm.in,v
retrieving revision 1.1.1.1
diff -u -c -r1.1.1.1 imrm.in
*** imrm.in	1999/08/24 02:16:46	1.1.1.1
--- imrm.in	1999/08/25 02:59:27
***************
*** 206,212 ****
  
      foreach $msg (@$msgs) {
  	my $src_path = get_impath($src, ($msg));
! 	imap_put_file($src, $dsts, $src_path) if -f ($src_path);
      }
  }
  
--- 206,215 ----
  
      foreach $msg (@$msgs) {
  	my $src_path = get_impath($src, ($msg));
! 	if (-f $src_path) {
! 	    imap_put_file($src, $dsts, $src_path);
! 	    im_unlink($src_path);
! 	}
      }
  }