From: morioka <morioka>
Date: Tue, 7 Jul 1998 11:21:16 +0000 (+0000)
Subject: (mm-define-backend): Must `copy-alist'.
X-Git-Tag: chao-1_8-199811302358~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=23962d7c8220462b5b2a53b7f7bc020ed0e73c58;p=elisp%2Fflim.git

(mm-define-backend): Must `copy-alist'.
---

diff --git a/mime-def.el b/mime-def.el
index bc9632e..994264c 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -24,7 +24,7 @@
 
 ;;; Code:
 
-(defconst mime-library-version-string "Chao 1.8.0 - \"Shij,Dr(B\"")
+(defconst mime-library-version-string "Chao 1.8.0 - \"Shij.DNr\"")
 
 
 ;;; @ variables
@@ -266,8 +266,9 @@ message/rfc822, `mime-entity' structures of them are included in
 	 (while rest
 	   (set-alist 'mime-entity-implementation-alist
 		      ',type
-		      (cdr (assq (car rest)
-				 mime-entity-implementation-alist)))
+		      (copy-alist
+		       (cdr (assq (car rest)
+				  mime-entity-implementation-alist))))
 	   (setq rest (cdr rest))
 	   ))))