[Mew-dist 2140] Re: im* が止まる (win95)

[YAMAGUCHI, Shuhei]

やまぐち＠ねっとらぴゅたの住人、です。

>>> In article <19970919101102J.shirai at example.com>,
>>>    "H.Shirai/白井秀行" <Shirai at example.com> writes:

  Kazu> では、このパッチを当てて見て下さい。UNIX では現状維持です。Win95 では幸
  Kazu> せですか？
  Shirai> 
  Shirai> (個人的には)幸せです。(^^;
  Shirai> mew-summary-pack と mew-summary-search を実験してみました。

私は、(確かに速くは感じるのですが)なんだかカクカクしていて、違和感を感
じました。
＃P5-120, 32MB RAM, NT4.0Jで試しました。


  Shirai> 皆さんマシンも違うし、負荷も違うことですし、./im/Config で 
  Shirai> Option指定できれば、もっと幸せになる人がふえるのではないかと思う
  Shirai> のですが……

そうですね、私もこれに賛成です。
オリジナルへのdiffを作ってみました。
UseBufferをonにすると、かずさんのパッチと同じ動作になると思います。

でわでわ
-- 
yamagus at example.com / 山口 修平
  yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
(会社より)
-------------- next part --------------
--- imls.in.orig	Wed Sep 17 18:33:29 1997
+++ imls.in	Fri Sep 19 12:49:35 1997
@@ -356,7 +356,7 @@
 		$Head{'pnum'} = $Head{'number'};
 		$Head{'number'} = $num;
 		disp_msg(\%Head, $opt_grep);
-	        flush('STDOUT');
+ 	        flush('STDOUT') unless &usebuffer();
   		$num++;
 	    }
 	}
--- imgrep.in.orig	Tue Sep 09 14:29:47 1997
+++ imgrep.in	Fri Sep 19 12:50:33 1997
@@ -182,7 +182,7 @@
 		    print "$folder:" if ($opt_format eq 'folder');
 		    print "$folder_dir/" if ($opt_format eq 'path');
 		    print "$m\n";
-		    flush('STDOUT');
+		    flush('STDOUT') unless &usebuffer();
 		}
 	    } else {
 		im_warn("message $m not exists: $!\n");
--- IM.in/Config.pm.in.orig	Thu Sep 18 09:51:39 1997
+++ IM.in/Config.pm.in	Fri Sep 19 12:46:57 1997
@@ -48,6 +48,7 @@
     nntpservers nntphistoryfile
     popaccount pophistoryfile imapaccount httpproxy noproxy usepwagent
     usepwfiles pwfiles
+    usebuffer
     unixp win95p wntp os2p
     im_msg im_info im_debug im_notice im_warn im_err im_die im_die2
     im_save_error im_saved_errors
@@ -169,6 +170,7 @@
     'usepwagent;b;;UsePwAgent'		=> 'Use password agent',
     'usepwfiles;b;;UsePwFiles'		=> 'Use password files',
     'pwfiles;s;;PwFiles'		=> 'Password files',
+    'usebuffer;b;;UseBuffer'            => 'Scan with buffering',
     );
 
     # these vars should be in current package?
@@ -813,6 +815,10 @@
 
 sub pwfiles () {
     return $PwFiles;
+}
+
+sub usebuffer () {
+    return $UseBuffer;
 }
 
 ###
--- IM.in/Scan.pm.in.orig	Wed Sep 17 10:25:13 1997
+++ IM.in/Scan.pm.in	Fri Sep 19 12:51:57 1997
@@ -520,7 +520,7 @@
 
     if (defined &my_get_msg) {
 	print &my_get_msg($href), "\n";
-	flush('STDOUT');
+	flush('STDOUT') unless &usebuffer();
 	return;
     } elsif (defined(&scan_form)) {
 	my $content = &scan_form($href);
@@ -531,7 +531,7 @@
 	} else {
 	    print &substr_safe($content, $WIDTH - 1), "\n";
 	}
-	flush('STDOUT');
+	flush('STDOUT') unless &usebuffer();
 	return;
     } else {
 	im_err("no scan_form specified.\n");