(mailcap-look-at-mtext): Strip quoted character.

diff --git a/mailcap.el b/mailcap.el
index 416b977..a27be3e 100644 (file)
--- a/mailcap.el
+++ b/mailcap.el
@@ -99,10 +99,19 @@
       )))
 
 (defsubst mailcap-look-at-mtext ()
-  (let ((beg (point)))
-    (while (or (mailcap-look-at-qchar)
-              (mailcap-look-at-schar)))
-    (buffer-substring beg (point))
+  (let ((p0 (point))
+       dest)
+    (while (cond ((mailcap-look-at-qchar)
+                 (setq dest
+                       (concat dest
+                               (buffer-substring p0 (- (point) 2))
+                               (char-to-string (char-before (point)))
+                               )
+                       p0 (point))
+                 )
+                ((mailcap-look-at-schar)
+                 t)))
+    (concat dest (buffer-substring p0 (point)))
     ))