[Mew-dist 10105] Re: Mew 1.94b49 + IM 120

[Kazu Yamamoto ( 山本和彦 )]

From: OHARA Shigeki <os at example.com>
Subject: [Mew-dist 10102] Re: Mew 1.94b49 + IM 120
Date: Mon, 16 Aug 1999 18:20:18 +0900

> これですが、--scaninboxonly=yes は Mew から imget に
> 渡ってないような気がします。
> 
> ~/.im/Config の ScanInboxOnly オプションの設定も
> 効かなくなってしまっているようです。

すいません。これらのパッチを当てて試して下さい。

--かず
-------------- next part --------------
Index: mew-scan.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-scan.el,v
retrieving revision 1.60
retrieving revision 1.62
diff -c -r1.60 -r1.62
*** mew-scan.el	1999/08/16 06:56:20	1.60
--- mew-scan.el	1999/08/16 10:12:02	1.62
***************
*** 138,144 ****
  				   ((string-match mew-prog-imget prog)
  				    (append
  				     (list (concat "--config="
! 						   mew-summary-buffer-config))
  				     mew-prog-imget-arg-list))
  				   ((string-match mew-prog-imls prog)
  				    (cond
--- 138,145 ----
  				   ((string-match mew-prog-imget prog)
  				    (append
  				     (list (concat "--config="
! 						   mew-summary-buffer-config)
! 					   "--scaninboxonly=yes")
  				     mew-prog-imget-arg-list))
  				   ((string-match mew-prog-imls prog)
  				    (cond
***************
*** 182,191 ****
        (mew-input-passwd prompt))))
  
  (defmacro mew-summary-scan-filter-skip ()
!   (setq mew-summary-buffer-string
! 	(concat
! 	 (substring mew-summary-buffer-string 0 (match-beginning 0))
! 	 (substring mew-summary-buffer-string (match-end 0)))))
  
  (defun mew-summary-scan-filter (process string)
    (let* ((after-change-function nil)
--- 183,192 ----
        (mew-input-passwd prompt))))
  
  (defmacro mew-summary-scan-filter-skip ()
!   '(setq mew-summary-buffer-string
! 	 (concat
! 	  (substring mew-summary-buffer-string 0 (match-beginning 0))
! 	  (substring mew-summary-buffer-string (match-end 0)))))
  
  (defun mew-summary-scan-filter (process string)
    (let* ((after-change-function nil)
-------------- next part --------------
Index: imget.in
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/im/imget.in,v
retrieving revision 1.44
retrieving revision 1.45
diff -c -r1.44 -r1.45
*** imget.in	1999/08/16 07:59:48	1.44
--- imget.in	1999/08/16 10:08:31	1.45
***************
*** 124,130 ****
  read_env(\@EnvConfig);
  read_cfg();
  set_selector($selector) == 0 or exit 1 if defined($selector);
! $opt_dst = inbox_folder($selector) if ($opt_dst eq '');
  my $cnf_src = $opt_src; $opt_src = '';
  my $cnf_dst = $opt_dst; $opt_dst = '';
  my $cnf_assoc = $opt_assoc; $opt_assoc = '';
--- 124,131 ----
  read_env(\@EnvConfig);
  read_cfg();
  set_selector($selector) == 0 or exit 1 if defined($selector);
! my $myinbox = inbox_folder($selector);
! $opt_dst = $myinbox if ($opt_dst eq '');
  my $cnf_src = $opt_src; $opt_src = '';
  my $cnf_dst = $opt_dst; $opt_dst = '';
  my $cnf_assoc = $opt_assoc; $opt_assoc = '';
***************
*** 157,170 ****
      foreach $assoc (split(';', $opt_assoc)) {
  	if ($assoc =~ /(.+)=(.+)/) {
  	    my ($dst, $src) = ($1, $2);
! 	    my $m = &get_sub($src, $dst, $opt_mode);
  	    $msgs = $m if ($m > $msgs);
  	} else {
  	    im_warn("invalid parameter for --assoc: $assoc.\n");
  	}
      }
  } else {
!     $msgs = &get_sub($opt_src, $opt_dst, $opt_mode);
  }
  
  &nntp_close if ($NNTP_processed);
--- 158,171 ----
      foreach $assoc (split(';', $opt_assoc)) {
  	if ($assoc =~ /(.+)=(.+)/) {
  	    my ($dst, $src) = ($1, $2);
! 	    my $m = &get_sub($src, $dst, $opt_mode, $myinbox);
  	    $msgs = $m if ($m > $msgs);
  	} else {
  	    im_warn("invalid parameter for --assoc: $assoc.\n");
  	}
      }
  } else {
!     $msgs = &get_sub($opt_src, $opt_dst, $opt_mode, $myinbox);
  }
  
  &nntp_close if ($NNTP_processed);
***************
*** 180,186 ****
  ##
  
  sub get_sub {
!     my ($src, $dst, $mode) = @_;
      my ($msgs);
  
      if ($mode ne "get" && $mode ne "check" && $mode ne "from"
--- 181,187 ----
  ##
  
  sub get_sub {
!     my ($src, $dst, $mode, $myinbox) = @_;
      my ($msgs);
  
      if ($mode ne "get" && $mode ne "check" && $mode ne "from"
***************
*** 189,195 ****
      }
  
      my $noscan = $opt_noscan ||
! 	($opt_scaninboxonly && (inbox_folder() ne $opt_dst));
  
      if ($src =~ /^local/i) {
  	require IM::LocalMbox && import IM::LocalMbox;
--- 190,196 ----
      }
  
      my $noscan = $opt_noscan ||
! 	($opt_scaninboxonly && ($myinbox ne $opt_dst));
  
      if ($src =~ /^local/i) {
  	require IM::LocalMbox && import IM::LocalMbox;