(mm-inline-text): Fix previous commit.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 6f6df66..8ca1e10 100644 (file)
--- 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."