From b21ceabe456aede7895ec414a5c93d6e6ab7d10c Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 3 May 1998 15:45:44 +0000 Subject: [PATCH] (mailcap-look-at-mtext): Strip quoted character. --- mailcap.el | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) 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))) )) -- 1.7.10.4