From af36c345318f0ab76008abbbe396234498eca845 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 20 Sep 1999 07:08:23 +0000
Subject: [PATCH] (mailcap-look-at-schar): Protect against unexpected eof. 
 [cf. <tm-ja:5177>]

---
 mailcap.el |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mailcap.el b/mailcap.el
index eb1c093..25595f0 100644
--- 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 ?\\)
 	     )
-- 
1.7.10.4