From: morioka <morioka>
Date: Wed, 6 May 1998 01:50:35 +0000 (+0000)
Subject: (mailcap-look-at-mtext): Don't strip quoted character again.
X-Git-Tag: flim-1_2_0~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=95d4aba4224d3360bffa09b7379b69d46ecbe227;p=elisp%2Fflim.git

(mailcap-look-at-mtext): Don't strip quoted character again.
---

diff --git a/mailcap.el b/mailcap.el
index a27be3e..416b977 100644
--- a/mailcap.el
+++ b/mailcap.el
@@ -99,19 +99,10 @@
       )))
 
 (defsubst mailcap-look-at-mtext ()
-  (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)))
+  (let ((beg (point)))
+    (while (or (mailcap-look-at-qchar)
+	       (mailcap-look-at-schar)))
+    (buffer-substring beg (point))
     ))