[Mew-dist 03877] im-86's patch

[Hideyuki SHIRAI]

白井@松下電送です。

2種類ほど簡単な修理をしました。

1. imjoin
1.1. 動かなかった。
 my $VERSION ってしなければいけないと思うのですが……
1.2. configureで "chmod 555" していなかった。

2. imhist
 "--add" のときの "--subfolders" を有効にした。

# refileが速くなってとても嬉しいです。
## だけど、MsgDBに書いてもらえなくなったので、imhist --add で対
## 抗しようかと…… だけど、subfolderも見てしまうので遅くて。

-------------- next part --------------
*** imjoin.in.orig	Wed Feb 11 11:44:51 1998
--- imjoin.in	Fri Feb 20 21:13:40 1998
***************
*** 1,4 ****
! #!/usr/local/bin/perl
  ################################################################
  ###
  ###				 imjoin
--- 1,4 ----
! #! @im_path_perl@
  ################################################################
  ###
  ###				 imjoin
***************
*** 14,20 ****
  ### Revised: @im_revised@
  ###
  
! $VERSION = "imput @im_version@";
  
  $Prog = 'imjoin';
  
--- 14,20 ----
  ### Revised: @im_revised@
  ###
  
! my $VERSION = "imput @im_version@";
  
  $Prog = 'imjoin';
  
-------------- next part --------------
*** configure.in.orig	Fri Feb 20 21:15:46 1998
--- configure.in	Fri Feb 20 21:16:27 1998
***************
*** 88,92 ****
  	IM/Smtp.pm:IM.in/Smtp.pm.in \
  	IM/TcpTransaction.pm:IM.in/TcpTransaction.pm.in \
  	IM/Util.pm:IM.in/Util.pm.in \
! 	, chmod 555 imali imcat imcd imclean imget imgrep imhist \
  	imls immv impack impath imput impwagent imrm imsetup imsort imstore)
--- 88,92 ----
  	IM/Smtp.pm:IM.in/Smtp.pm.in \
  	IM/TcpTransaction.pm:IM.in/TcpTransaction.pm.in \
  	IM/Util.pm:IM.in/Util.pm.in \
! 	, chmod 555 imali imcat imcd imclean imget imgrep imhist imjoin\
  	imls immv impack impath imput impwagent imrm imsetup imsort imstore)
-------------- next part --------------
*** imhist.in.orig	Mon Jan 19 12:44:19 1998
--- imhist.in	Fri Feb 20 21:13:37 1998
***************
*** 187,198 ****
  	}
      }
      closedir(FOLDER);
!     my $l;
!     foreach $l (@lower) {
! 	if ($folder eq '+') {
! 	    add_folder_info("$dir/$l", "+$l");
! 	} else {
! 	    add_folder_info("$dir/$l", "$folder/$l");
  	}
      }
  }
--- 187,200 ----
  	}
      }
      closedir(FOLDER);
!     if($opt_subfolders eq '1'){
! 	my $l;
! 	foreach $l (@lower) {
! 	    if ($folder eq '+') {
! 		add_folder_info("$dir/$l", "+$l");
! 	    } else {
! 		add_folder_info("$dir/$l", "$folder/$l");
! 	    }
  	}
      }
  }