Fix bug in viewer-lessp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce51cd2..04092d0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-11-03 15:27:38  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mailcap.el (mailcap-viewer-lessp): Fix bug.
+
 1999-11-02 17:28:33  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-sum.el (gnus-summary-search-article): Fix loop search bug.

diff --git a/lisp/mailcap.el b/lisp/mailcap.el
index 7a1c05b..74d2771 100644 (file)
--- a/lisp/mailcap.el
+++ b/lisp/mailcap.el
@@ -623,12 +623,12 @@ If TEST is not given, it defaults to t."
        (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))))
 
 (defun mailcap-mime-info (string &optional request)