comparison lisp/gnus/gnus-art.el @ 112401:e80422318be4

gnus-art.el (gnus-mime-display-single): Use mm-display-inline rather than mm-insert-inline.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 21 Jan 2011 23:33:46 +0000
parents 0bfcbd0b704b
children 98ad7c9e56a3
comparison
equal deleted inserted replaced
112400:c729a73f3e52 112401:e80422318be4
5895 ((and text not-attachment) 5895 ((and text not-attachment)
5896 (when move 5896 (when move
5897 (forward-line -1) 5897 (forward-line -1)
5898 (setq beg (point))) 5898 (setq beg (point)))
5899 (gnus-article-insert-newline) 5899 (gnus-article-insert-newline)
5900 (mm-insert-inline 5900 (mm-display-inline handle)
5901 handle
5902 (let ((charset (or (mail-content-type-get (mm-handle-type handle)
5903 'charset)
5904 (and (equal type "text/calendar") 'utf-8))))
5905 (cond ((not charset)
5906 (mm-string-as-multibyte (mm-get-part handle)))
5907 ((eq charset 'gnus-decoded)
5908 (with-current-buffer (mm-handle-buffer handle)
5909 (buffer-string)))
5910 (t
5911 (mm-decode-string (mm-get-part handle) charset)))))
5912 (goto-char (point-max)))) 5901 (goto-char (point-max))))
5913 ;; Do highlighting. 5902 ;; Do highlighting.
5914 (save-excursion 5903 (save-excursion
5915 (save-restriction 5904 (save-restriction
5916 (narrow-to-region beg (point)) 5905 (narrow-to-region beg (point))