* gnus-art.el (gnus-mime-print-part): Use mm-handle-media-type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 269b776..e3888a6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -26,6 +26,8 @@
  
 2003-01-16  Jesper Harder  <harder@ifa.au.dk>
 
+       * gnus-art.el (gnus-mime-print-part): Use mm-handle-media-type.
+
        * message.el (message-mode-menu): Use it.
        (message-mode-menu): Deactivate "Yank Original" if there's no
        reply buffer.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e628a56..b966c62 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4020,7 +4020,7 @@ are decompressed."
   (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
         (contents (and handle (mm-get-part handle)))
         (file (mm-make-temp-file (expand-file-name "mm." mm-tmp-directory)))
-        (printer (mailcap-mime-info (mm-handle-type handle) "print")))
+        (printer (mailcap-mime-info (mm-handle-media-type handle) "print")))
     (when contents
        (if printer
            (unwind-protect