2000-10-04 11:45:04 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-mime-inline-part): Use prefix argument only
	when it is called interactively.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 047f997..3dbe788 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-04 11:45:04  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (gnus-mime-inline-part): Use prefix argument only
+       when it is called interactively.
+
 2000-10-03 21:20:31  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-mime-action-alist): New variable.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 805cd78..af5a053 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3022,9 +3022,9 @@ If ALL-HEADERS is non-nil, no headers are hidden."
       (setq buffer-file-name nil))
     (goto-char (point-min))))
 
-(defun gnus-mime-inline-part (&optional handle)
+(defun gnus-mime-inline-part (&optional handle arg)
   "Insert the MIME part under point into the current buffer."
-  (interactive)
+  (interactive (list nil current-prefix-arg))
   (gnus-article-check-buffer)
   (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
         contents charset
@@ -3034,13 +3034,13 @@ If ALL-HEADERS is non-nil, no headers are hidden."
        (mm-remove-part handle)
       (setq contents (mm-get-part handle))
       (cond
-       ((not current-prefix-arg)
+       ((not arg)
        (setq charset (or (mail-content-type-get
                           (mm-handle-type handle) 'charset)
                          gnus-newsgroup-charset)))
-       ((numberp current-prefix-arg)
+       ((numberp arg)
        (setq charset
-             (or (cdr (assq current-prefix-arg 
+             (or (cdr (assq arg 
                             gnus-summary-show-article-charset-alist))
                  (read-coding-system "Charset: ")))))
       (forward-line 2)