/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.93 by miles, Mon Sep 5 23:58:08 2005 UTC revision 1.94 by miles, Fri Sep 9 01:47:33 2005 UTC
# Line 4862  If displaying \"text/html\" is discourag Line 4862  If displaying \"text/html\" is discourag
4862                (forward-line -1)                (forward-line -1)
4863                (setq beg (point)))                (setq beg (point)))
4864              (gnus-article-insert-newline)              (gnus-article-insert-newline)
4865              (mm-insert-inline handle (mm-get-part handle))              (mm-insert-inline handle
4866                                  (let ((charset
4867                                         (mail-content-type-get
4868                                          (mm-handle-type handle) 'charset)))
4869                                    (if (eq charset 'gnus-decoded)
4870                                        (mm-get-part handle)
4871                                      (mm-decode-string (mm-get-part handle)
4872                                                        charset))))
4873              (goto-char (point-max))))              (goto-char (point-max))))
4874            ;; Do highlighting.            ;; Do highlighting.
4875            (save-excursion            (save-excursion

Legend:
Removed from v.1.93  
changed lines
  Added in v.1.94

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26