X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mailcap.el;fp=mailcap.el;h=b3b7d90c78fad2428be87f0b0aea571cebc328e9;hb=e8b4d182275a38437111e94a864f568dece6ef28;hp=12eee8837929ea0a09ada7a39e4dd3fc9cda2e43;hpb=41fe6bdf8523a73c43e73612b5df85caa5622081;p=elisp%2Fflim.git

diff --git a/mailcap.el b/mailcap.el
index 12eee88..b3b7d90 100644
--- a/mailcap.el
+++ b/mailcap.el
@@ -95,18 +95,17 @@
 	  (forward-char)))))
 
 (defsubst mailcap-look-at-qchar ()
-  (let ((chr (char-after (point))))
-    (when (eq chr ?\\)
-      (forward-char 2)
-      (char-before (point))
-      )))
+  (when (eq (char-after (point)) ?\\)
+    (prog2
+	(forward-char)
+	(char-after (point))
+      (forward-char))))
 
 (defsubst mailcap-look-at-mtext ()
   (let ((beg (point)))
     (while (or (mailcap-look-at-qchar)
 	       (mailcap-look-at-schar)))
-    (buffer-substring beg (point))
-    ))
+    (buffer-substring beg (point))))
 
 
 ;;; @ field