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
 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)))
       (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)))
        (setq wildcard (cons (cdr (car major)) wildcard))))
       (setq major (cdr major)))
     (nconc exact wildcard)))