2001-11-01 13:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-msg.el (gnus-copy-article-buffer): Copy sequence.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e879eb7..50c42f8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-01 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-copy-article-buffer): Copy sequence.
+
 2001-11-01 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * dgnushack.el (dgnushack-make-load): A workaround for

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0ea6b38..7b51379 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -582,7 +582,8 @@ header line with the old Message-ID."
            (insert-buffer-substring gnus-original-article-buffer beg end)
            ;; Decode charsets.
            (let ((gnus-article-decode-hook
-                  (delq 'article-decode-charset gnus-article-decode-hook)))
+                  (delq 'article-decode-charset 
+                        (copy-sequence gnus-article-decode-hook))))
              (run-hooks 'gnus-article-decode-hook)))))
       gnus-article-copy)))