2000-10-03 20:37:42 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-mime-inline-part): Support prefix argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2483e4..71231bc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-03 20:37:42  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (gnus-mime-inline-part): Support prefix argument.
+
 2000-10-03  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * lpath.el: "." is in the load-path because dgnushack.el.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 60d38c0..4c1b155 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3012,14 +3012,26 @@ If ALL-HEADERS is non-nil, no headers are hidden."
   (interactive)
   (gnus-article-check-buffer)
   (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
-        contents
+        contents charset
         (b (point))
         buffer-read-only)
     (if (mm-handle-undisplayer handle)
        (mm-remove-part handle)
       (setq contents (mm-get-part handle))
+      (cond
+       ((not current-prefix-arg)
+       (setq charset (or (mail-content-type-get
+                          (mm-handle-type handle) 'charset)
+                         gnus-newsgroup-charset)))
+       ((numberp current-prefix-arg)
+       (setq charset
+             (or (cdr (assq current-prefix-arg 
+                            gnus-summary-show-article-charset-alist))
+                 (read-coding-system "Charset: ")))))
       (forward-line 2)
-      (mm-insert-inline handle contents)
+      (mm-insert-inline handle (if charset 
+                                  (mm-decode-coding-string contents charset)
+                                contents))
       (goto-char b))))
 
 (defun gnus-mime-externalize-part (&optional handle)