Index: mailcap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mailcap.el,v
retrieving revision 5.23
diff -u -r5.23 mailcap.el
--- mailcap.el	1999/07/09 19:28:56	5.23
+++ mailcap.el	1999/11/03 20:29:40
@@ -623,11 +623,11 @@
 	(x-lisp (not (stringp (or (cdr-safe (assq 'viewer x)) ""))))
 	(y-lisp (not (stringp (or (cdr-safe (assq 'viewer y)) "")))))
     (cond
-     ((and x-lisp (not y-lisp))
-      t)
-     ((and (not y-lisp) x-wild (not y-wild))
-      t)
+     ((and x-wild (not y-wild))
+      nil)
      ((and (not x-wild) y-wild)
+      t)
+     ((and (not y-lisp) x-lisp)
       t)
      (t nil))))