[Mew-dist 11145] Re: 添付されたファイルのサイズの表示の間違い

[SAKAI Kiyotaka]

>> In article <19991026120637L.kazu at example.com>, Kazu Yamamoto (山本和彦) <kazu at example.com> writes:

> 現在の Mew の仕組みで、Emacs 20 でサイズを正しく計算するのは難しいです。

とりあえず Application/Octet-Stream のときのみですが、以下のパッチでい
けると思います。

Size を表示している他の2箇所にも、同様な修正を行えばいいでしょう。
-- 
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-mime.el,v
retrieving revision 1.1
diff -u -r1.1 mew-mime.el
--- mew-mime.el	1999/11/01 07:28:28	1.1
+++ mew-mime.el	1999/11/01 07:40:44
@@ -313,7 +313,12 @@
 
 (defun mew-mime-application/octet-stream (begin end &optional params ct cte fl)
   (mew-elet
-   (let ((size (- end begin)))
+   (let (size)
+     (if (not (fboundp 'string-bytes))
+	 (setq size (- end begin))
+       (set-buffer (mew-current-get 'cache))
+       (setq size (string-bytes (buffer-substring begin end)))
+       (set-buffer (mew-buffer-message)))
      (insert " ######    ###   #     #    #    ######  #     #\n"
 	     " #     #    #    ##    #   # #   #     #  #   #\n"
 	     " #     #    #    # #   #  #   #  #     #   # #\n"