From: morioka <morioka>
Date: Thu, 28 May 1998 17:11:32 +0000 (+0000)
Subject: (mime-parse-multipart): Use 'mime-content-type-parameter.
X-Git-Tag: remi-1_4_0_91~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=09034c3d6f16a1ff420b7c6db2315bd4fe106d7a;p=elisp%2Fsemi.git

(mime-parse-multipart): Use 'mime-content-type-parameter.
---

diff --git a/mime-parse.el b/mime-parse.el
index 3a6ac0a..3eb5a8f 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -210,8 +210,7 @@ If is is not found, return DEFAULT-ENCODING."
   (let* ((dash-boundary
 	  (concat "--"
 		  (std11-strip-quoted-string
-		   (cdr (assoc "boundary"
-			       (mime-content-type-parameters content-type))))))
+		   (mime-content-type-parameter content-type "boundary"))))
 	 (delimiter       (concat "\n" (regexp-quote dash-boundary)))
 	 (close-delimiter (concat delimiter "--[ \t]*$"))
 	 (beg (point-min))