Mercurial > emacs
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)) |