From 0337829499faa8816ede34eed8259b47b6a319bf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 23 Aug 1997 22:36:43 +0000 Subject: [PATCH] (nnfolder-generate-active-file): Don't use remove. --- lisp/gnus/nnfolder.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.2