2000-11-14 10:32:42 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mailcap.el (mailcap-possible-viewers): Match the entire string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6dad96e..a4e9403 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-14 10:32:42  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mailcap.el (mailcap-possible-viewers): Match the entire string.
+
 2000-11-14 10:20:56  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mml2015.el (mml2015-mailcrypt-verify): replace-match is

diff --git a/lisp/mailcap.el b/lisp/mailcap.el
index 60e1c1d..1012907 100644 (file)
--- a/lisp/mailcap.el
+++ b/lisp/mailcap.el
@@ -526,7 +526,7 @@ MAILCAPS if set; otherwise (on Unix) use the path from RFC 1524, plus
       (cond
        ((equal (car (car major)) minor)
        (setq exact (cons (cdr (car major)) exact)))
-       ((and minor (string-match (car (car major)) minor))
+       ((and minor (string-match (concat "^" (car (car major)) "$") minor))
        (setq wildcard (cons (cdr (car major)) wildcard))))
       (setq major (cdr major)))
     (nconc exact wildcard)))