From 0164420fe28bd7fa2dc762ba82d2e3096e6b462d Mon Sep 17 00:00:00 2001 From: keiichi Date: Wed, 24 Nov 1999 07:52:58 +0000 Subject: [PATCH] (mime-parameter-set-raw-values): New inline function. (mime-parameter-value): Don't break original `raw values'. --- mime-def.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) 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 -- 1.7.10.4