From: yamaoka <yamaoka>
Date: Thu, 23 Feb 2006 13:19:35 +0000 (+0000)
Subject: Synch to No Gnus 200602231319.
X-Git-Tag: t-gnus-6_17_4-quimby-~78
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=01b15be0a3d451238a5216a219a105527dbf8bec;p=elisp%2Fgnus.git-

Synch to No Gnus 200602231319.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7565fad..8397857 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gmm-utils.el (gmm-image-load-path): Don't modify image-load-path
+	and load-path.
+
 2006-02-22  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* message.el: Autoload gmm-image-load-path.
diff --git a/lisp/gmm-utils.el b/lisp/gmm-utils.el
index 2d680cd..7384bb9 100644
--- a/lisp/gmm-utils.el
+++ b/lisp/gmm-utils.el
@@ -316,12 +316,14 @@ path to IMAGE.  If PATH is given, it is used instead of
   ;; Return augmented `image-load-path' or `load-path'.
   (cond ((and path (symbolp path))
 	 (nconc (list gmm-image-load-path)
-		(delete gmm-image-load-path (if (boundp path)
-						(symbol-value path)
-					      nil))))
+		(delete gmm-image-load-path
+			(if (boundp path)
+			    (copy-sequence (symbol-value path))
+			  nil))))
 	(t
 	 (nconc (list gmm-image-load-path)
-		(delete gmm-image-load-path load-path)))))
+		(delete gmm-image-load-path
+			(copy-sequence load-path))))))
 
 (provide 'gmm-utils)