diff options
| author | Richard M. Stallman | 1997-08-23 22:36:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-23 22:36:43 +0000 |
| commit | 0337829499faa8816ede34eed8259b47b6a319bf (patch) | |
| tree | 63a4cad08b1be19aa49cf875454399cbdc301fec | |
| parent | 349f4e97b5cfb680969b497737048b8666a3999e (diff) | |
| download | emacs-0337829499faa8816ede34eed8259b47b6a319bf.tar.gz emacs-0337829499faa8816ede34eed8259b47b6a319bf.zip | |
(nnfolder-generate-active-file): Don't use remove.
| -rw-r--r-- | lisp/gnus/nnfolder.el | 4 |
1 files changed, 3 insertions, 1 deletions
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.") | |||
| 740 | (if oldgroup | 740 | (if oldgroup |
| 741 | (nnheader-message 5 "Refreshing group %s..." file) | 741 | (nnheader-message 5 "Refreshing group %s..." file) |
| 742 | (nnheader-message 5 "Adding group %s..." file)) | 742 | (nnheader-message 5 "Adding group %s..." file)) |
| 743 | (setq nnfolder-group-alist (remove oldgroup nnfolder-group-alist)) | 743 | (if oldgroup |
| 744 | (setq nnfolder-group-alist | ||
| 745 | (delq oldgroup (copy-sequence nnfolder-group-alist)))) | ||
| 744 | (push (list file (cons 1 0)) nnfolder-group-alist) | 746 | (push (list file (cons 1 0)) nnfolder-group-alist) |
| 745 | (nnfolder-possibly-change-folder file) | 747 | (nnfolder-possibly-change-folder file) |
| 746 | (nnfolder-possibly-change-group file) | 748 | (nnfolder-possibly-change-group file) |