From 95d4aba4224d3360bffa09b7379b69d46ecbe227 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 6 May 1998 01:50:35 +0000 Subject: [PATCH] (mailcap-look-at-mtext): Don't strip quoted character again. --- mailcap.el | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) 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)) )) -- 1.7.10.4