Synch to No Gnus 200406291153.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 45642ad..bf208cc 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -277,8 +277,9 @@ with Mule charsets.  It is completely useless for Emacs."
     (condition-case nil
        (let ((val (delq
                    'ascii
-                   (symbol-value
-                    'unicode-basic-translation-charset-order-list)))
+                   (copy-sequence
+                    (symbol-value
+                     'unicode-basic-translation-charset-order-list))))
              (elem (assq 'utf-8 mm-mime-mule-charset-alist)))
          (if elem
              (setcdr elem val)