X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fmailcap.el;fp=lisp%2Fmailcap.el;h=8e491d7d312268ab492c193da1859e5ada8752be;hp=bf7ba0817ea1fda558d627a4b770e21a22018285;hb=e9bc9aa0e4e3d31f7f88a23101eb277ba5655101;hpb=f973e1c8e523e6912f3dc7e3db9923739812bf5f

diff --git a/lisp/mailcap.el b/lisp/mailcap.el
index bf7ba0817..8e491d7d3 100644
--- a/lisp/mailcap.el
+++ b/lisp/mailcap.el
@@ -645,7 +645,7 @@ to supply to the test."
 	 (otest test)
 	 (viewer (cdr (assq 'viewer viewer-info)))
 	 (default-directory (expand-file-name "~/"))
-	 status parsed-test cache result)
+	 status cache result)
     (cond ((not (or (stringp viewer) (fboundp viewer)))
 	   nil)				; Non-existent Lisp function
 	  ((setq cache (assoc test mailcap-viewer-test-cache))
@@ -745,10 +745,10 @@ If NO-DECODE is non-nil, don't decode STRING."
 	major				; Major encoding (text, etc)
 	minor				; Minor encoding (html, etc)
 	info				; Other info
-	save-pos			; Misc. position during parse
+	; save-pos			; Misc. position during parse (unused?)
 	major-info			; (assoc major mailcap-mime-data)
-	minor-info			; (assoc minor major-info)
-	test				; current test proc.
+	; minor-info			; (assoc minor major-info) (unused?)
+	; test				; current test proc. (unused?)
 	viewers				; Possible viewers
 	passed				; Viewers that passed the test
 	viewer				; The one and only viewer