Merge flim-1_13_2_1.

[elisp/flim.git] / mailcap.el

diff --git a/mailcap.el b/mailcap.el
index b3b7d90..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 ?\\)
             )
@@ -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