[Mew-dist 1159] IM official patch 2

[Kazu Yamamoto ( 山本和彦 )]

A patch to fix minor bug. Apply in the im-40 directory.

--Kazu

*** imput.in.orig	Tue Jul  1 09:50:01 1997
--- imput.in	Wed Jul  2 12:44:18 1997
***************
*** 199,209 ****
  	=> "do not generate Date header line",
      'NewsGMTdate;b;;NewsGMTdate'
  	=> "generate date field in GMT for posting news",
!     'MailAliases;s;;Mail_aliases'	# XXX
  	=> "list of files for mail address aliasing",
      'HostAliases;s;;Host_aliases'	# XXX
  	=> "list of files for domain part completion",
!     'MailFolders;s;Mail;Default_msg_folders_dir'
      	=> "path of directory for message folders",
      'FccDir;b;1;Fcc_save_dir'
  	=> "save to folder with directory style",
--- 199,209 ----
  	=> "do not generate Date header line",
      'NewsGMTdate;b;;NewsGMTdate'
  	=> "generate date field in GMT for posting news",
!     'AliasesFile;s;;Mail_aliases'	# XXX
  	=> "list of files for mail address aliasing",
      'HostAliases;s;;Host_aliases'	# XXX
  	=> "list of files for domain part completion",
!     'MailDir;s;Mail;Default_msg_folders_dir'
      	=> "path of directory for message folders",
      'FccDir;b;1;Fcc_save_dir'
  	=> "save to folder with directory style",
*** IM.in/Imap.pm.in.orig	Fri Jun 27 14:47:52 1997
--- IM.in/Imap.pm.in	Wed Jul  2 11:26:29 1997
***************
*** 334,340 ****
  			$user = $`;
  			$host = $';
  		} else {
! 			$user = $src;
  		}
  	}
    
--- 334,340 ----
  			$user = $`;
  			$host = $';
  		} else {
! 			$host = $src;
  		}
  	}
    
*** IM.in/Pop.pm.in.orig	Mon Jun 30 20:32:14 1997
--- IM.in/Pop.pm.in	Wed Jul  2 11:26:29 1997
***************
*** 399,405 ****
  			$user = $`;
  			$host = $';
  		} else {
! 			$user = $src;
  		}
  	}
    
--- 399,405 ----
  			$user = $`;
  			$host = $';
  		} else {
! 			$host = $src;
  		}
  	}