+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.
(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
(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)