2001-08-03 17:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mm-decode.el (mm-readable-p): Emacs 20 takes one argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e30e9ad..5f98636 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-03 17:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-decode.el (mm-readable-p): Emacs 20 takes one argument.
+
 2001-08-04  Simon Josefsson  <jas@extundo.com>
 
        * smime.el (smime-sign-region, smime-encrypt-region): Fix details

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 614bbae..8d98903 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1300,7 +1300,8 @@ If RECURSIVE, search recursively."
 
 (defun mm-readable-p (handle)
   "Say whether the content of HANDLE is readable."
-  (and (< (buffer-size (mm-handle-buffer handle)) 10000)
+  (and (< (with-current-buffer (mm-handle-buffer handle)
+           (buffer-size)) 10000)
        (mm-with-unibyte-buffer
         (mm-insert-part handle)
         (and (eq (mm-body-7-or-8) '7bit)