From: morioka <morioka>
Date: Sun, 3 May 1998 15:45:44 +0000 (+0000)
Subject: (mailcap-look-at-mtext): Strip quoted character.
X-Git-Tag: flim-1_1_0~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b21ceabe456aede7895ec414a5c93d6e6ab7d10c;p=elisp%2Fflim.git

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

diff --git a/mailcap.el b/mailcap.el
index 416b977..a27be3e 100644
--- 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)))
     ))