From c6b3bbada37947d4160706ec0d9bfdc55db7270f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 27 Sep 2005 05:36:50 +0000 Subject: [PATCH] Synch to No Gnus 200509270536. --- lisp/mm-decode.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index bc75be5..0fc4f4b 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -1051,16 +1051,16 @@ external if displayed external." (defun mm-insert-part (handle) "Insert the contents of HANDLE in the current buffer." - (let ((charset (mail-content-type-get (mm-handle-type handle) 'charset))) - (save-excursion - (insert - (cond ((eq charset 'gnus-decoded) - (with-current-buffer (mm-handle-buffer handle) - (buffer-string))) - ((mm-multibyte-p) - (mm-string-as-multibyte (mm-get-part handle))) - (t - (mm-get-part handle))))))) + (save-excursion + (insert + (cond ((eq (mail-content-type-get (mm-handle-type handle) 'charset) + 'gnus-decoded) + (with-current-buffer (mm-handle-buffer handle) + (buffer-string))) + ((mm-multibyte-p) + (mm-string-as-multibyte (mm-get-part handle))) + (t + (mm-get-part handle)))))) (defun mm-file-name-delete-whitespace (file-name) "Remove all whitespace characters from FILE-NAME." -- 1.7.10.4