From: keiichi <keiichi>
Date: Wed, 24 Nov 1999 07:52:58 +0000 (+0000)
Subject: (mime-parameter-set-raw-values): New inline function.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0164420fe28bd7fa2dc762ba82d2e3096e6b462d;p=elisp%2Fflim.git

(mime-parameter-set-raw-values): New inline function.
(mime-parameter-value): Don't break original `raw values'.
---

diff --git a/mime-def.el b/mime-def.el
index eec2772..2f9034b 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -185,6 +185,10 @@
   (aref (cdr parm) 1)
   )
 
+(defsubst mime-parameter-set-raw-values (parm raw-values)
+  (aset (cdr parm) 2 raw-values)
+  )
+
 (defsubst mime-parameter-raw-values (parm)
   (aref (cdr parm) 2)
   )
@@ -198,9 +202,12 @@
   (when parm
     (or (aref (cdr parm) 3)
 	(let* ((mcs (mime-parameter-charset parm))
-	       (sorted-raw (sort (mime-parameter-raw-values parm)
-				 (function (lambda (a b)
-					     (< (car a) (car b))))))
+	       (sorted-raw 
+		(mime-parameter-set-raw-values
+		 parm
+		 (sort (mime-parameter-raw-values parm)
+		       (function (lambda (a b)
+				   (< (car a) (car b)))))))
 	       (val
 		(if mcs
 		    (with-temp-buffer