From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 23 Aug 1997 22:36:43 +0000 (+0000)
Subject: (nnfolder-generate-active-file): Don't use remove.
X-Git-Tag: emacs-20.1~453
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0337829499faa8816ede34eed8259b47b6a319bf;p=emacs.git

(nnfolder-generate-active-file): Don't use remove.
---

diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el
index 7394994452b..3eb3ff14b20 100644
--- a/lisp/gnus/nnfolder.el
+++ b/lisp/gnus/nnfolder.el
@@ -740,7 +740,9 @@ time saver for large mailboxes.")
           (if oldgroup
               (nnheader-message 5 "Refreshing group %s..." file)
             (nnheader-message 5 "Adding group %s..." file))
-          (setq nnfolder-group-alist (remove oldgroup nnfolder-group-alist))
+	  (if oldgroup
+	      (setq nnfolder-group-alist
+		    (delq oldgroup (copy-sequence nnfolder-group-alist))))
           (push (list file (cons 1 0)) nnfolder-group-alist)
           (nnfolder-possibly-change-folder file)
           (nnfolder-possibly-change-group file)