(mailcap-look-at-schar): Protect against unexpected eof. [cf. <tm-ja:5177>]

diff --git a/mailcap.el b/mailcap.el
index eb1c093..25595f0 100644 (file)
--- a/mailcap.el
+++ b/mailcap.el
@@ -86,7 +86,8 @@
 
 (defsubst mailcap-look-at-schar ()
   (let ((chr (char-after (point))))
-    (if (and (>= chr ? )
+    (if (and chr
+            (>= chr ? )
             (/= chr ?\;)
             (/= chr ?\\)
             )