X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=mailcap.el;h=25595f06b872539ad6c6b0224222c34e5695d6f9;hb=09986cc02a99ec95288aef3f2e890426ae252b54;hp=b3b7d90c78fad2428be87f0b0aea571cebc328e9;hpb=e8b4d182275a38437111e94a864f568dece6ef28;p=elisp%2Fflim.git

diff --git a/mailcap.el b/mailcap.el
index b3b7d90..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 ?\\)
 	     )
@@ -105,7 +106,8 @@
   (let ((beg (point)))
     (while (or (mailcap-look-at-qchar)
 	       (mailcap-look-at-schar)))
-    (buffer-substring beg (point))))
+    (buffer-substring beg (point))
+    ))
 
 
 ;;; @ field