From: Jesper Harder <harder@ifa.au.dk>
Date: Thu, 16 Jan 2003 03:56:45 +0000 (+0000)
Subject: * gnus-art.el (gnus-mime-print-part): Use mm-handle-media-type.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=d8a1dc4140a5ab65ca0daaa1ca60f79f49ad18f2

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 269b776b5..e3888a670 100644
--- 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 e628a5636..b966c62ed 100644
--- 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