- (let ((group (completing-read "Group: " gnus-active-hashtb
- nil (gnus-read-active-file-p)
- gnus-newsgroup-name 'gnus-group-history))
- article summary buffers)
+ (let* ((group (completing-read "Group: " gnus-active-hashtb
+ nil (gnus-read-active-file-p)
+ gnus-newsgroup-name 'gnus-group-history))
+ (old (cdr (gnus-active group)))
+ article summary buffers)