[Emacs-diffs] /srv/bzr/emacs/trunk r102929: gnus-art.el (gnus-mime-display-single): Use mm-display-inline rather than mm-insert-inline.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102929
author: Julien Danjou <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2011-01-21 23:33:46 +0000
message:
  gnus-art.el (gnus-mime-display-single): Use mm-display-inline rather than 
mm-insert-inline.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-01-21 17:38:33 +0000
+++ b/lisp/gnus/ChangeLog       2011-01-21 23:33:46 +0000
@@ -3,6 +3,11 @@
        * gnus-art.el (gnus-button-alist, gnus-button-handle-info-keystrokes):
        Don't confuse the "ret" of "retrograde" with RET.
 
+2011-01-21  Julien Danjou  <address@hidden>
+
+       * gnus-art.el (gnus-mime-display-single): Use mm-display-inline rather
+       than mm-insert-inline.
+
 2011-01-21  Katsumi Yamaoka  <address@hidden>
 
        * gnus-art.el (gnus-article-remove-images, gnus-article-show-images):

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2011-01-21 17:38:33 +0000
+++ b/lisp/gnus/gnus-art.el     2011-01-21 23:33:46 +0000
@@ -5897,18 +5897,7 @@
              (forward-line -1)
              (setq beg (point)))
            (gnus-article-insert-newline)
-           (mm-insert-inline
-            handle
-            (let ((charset (or (mail-content-type-get (mm-handle-type handle)
-                                                      'charset)
-                               (and (equal type "text/calendar") 'utf-8))))
-              (cond ((not charset)
-                     (mm-string-as-multibyte (mm-get-part handle)))
-                    ((eq charset 'gnus-decoded)
-                     (with-current-buffer (mm-handle-buffer handle)
-                       (buffer-string)))
-                    (t
-                     (mm-decode-string (mm-get-part handle) charset)))))
+           (mm-display-inline handle)
            (goto-char (point-max))))
          ;; Do highlighting.
          (save-excursion