From: keiichi <keiichi>
Date: Sat, 27 Nov 1999 05:37:14 +0000 (+0000)
Subject: (mime-parse-parameters): Strip `quoted-pair'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=54060f400b2acd0bd8026203aa0b0d4f87162845;p=elisp%2Fflim.git

(mime-parse-parameters): Strip `quoted-pair'.
---

diff --git a/mime-parse.el b/mime-parse.el
index 9d330e0..2cf2c0b 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -101,7 +101,10 @@ be the result."
 	       (setq lrl (mime-parse-parameters-skip-to-next-token
 			  (cdr lrl)
 			  ))
-	       (setq val (cdar lrl)))
+	       (setq val (if (eq (caar lrl) 'quoted-string)
+			     (std11-strip-quoted-pair (cdar lrl))
+			   (cdar lrl)
+			   )))
 	  (setq lrl (mime-parse-parameters-skip-to-next-token (cdr lrl))
 		token (car lrl)
 		rest (cons val rest)