[Mew-dist 13592] Re: b45

[Shun-ichi GOTO]

>>>>> at Mon, 10 Jul 2000 22:33:33 +0900
>>>>> 新岡 == Kenichi Niioka (新岡賢一) <ken at example.com> said,
新岡> ただ、1.5MB のファイルを受け取ると、60% 程度まではカウントアップさ
新岡> れるのですが、それを過ぎますと逆にカウントが戻ります。
新岡> 実害がないのでこのままでも問題ありません。

あれま。(^^;

それはきっと数値の桁溢れですね。emacs って符号つき 28bit だったと思うの
で多分それを越えてしまったのでしょう。計算の仕方を替えてみました。これで
そういう事はなくなるでしょう。

先のパッチ(mew-pop.el-progres.diff)の後に当てて下さい。

## まだ、current size を (buffer-size)で代用しているという
## インチキは残る (^^;

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN
-------------- next part --------------
Index: mew-pop.el
===================================================================
RCS file: /Master/mew-1.95/mew-pop.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- mew-pop.el	2000/07/10 13:01:17	1.4
+++ mew-pop.el	2000/07/10 13:54:11	1.5
@@ -292,9 +292,11 @@
      ;; report (for debug)
      (if (not (< cnt total))
 	 (setq progress nil)
+       (setq size (string-to-number size))
        (setq progress (format "%d/%d:%02d%%" (1+ cnt) total
-			      (/ (* (buffer-size) 100) 
-				 (string-to-number size)))))
+			      (if (< 10000 size)
+				  (/ (buffer-size) (/ size 100))
+				(/ (* (buffer-size) 100) size)))))
      (mew-set-summary-buffer-process-status inbox progress)
      ;; process's buffer
      (goto-char (point-max))