From 58c37f854255b656f04e79913c9fd0bbbef61f8c Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Sat, 4 Aug 2001 00:33:18 +0000 Subject: [PATCH] 2001-08-03 17:00:00 ShengHuo ZHU * mm-decode.el (mm-readable-p): Emacs 20 takes one argument. --- lisp/ChangeLog | 4 ++++ lisp/mm-decode.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e30e9ad78..5f9863623 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-08-03 17:00:00 ShengHuo ZHU + + * mm-decode.el (mm-readable-p): Emacs 20 takes one argument. + 2001-08-04 Simon Josefsson * smime.el (smime-sign-region, smime-encrypt-region): Fix details diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 614bbaea7..8d98903c6 100644 --- 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) -- 2.25.1