(setcar (nthcdr 5 entry) mapping)
(setcar (nthcdr 6 entry) old-total)))))
(setcar (nthcdr 7 entry) current-time)
- (setcar (nthcdr 1 entry) old-total)
+ (setcar (nthcdr 1 entry) (1- old-total))
(nnultimate-write-groups)
mapping))
(when (and server
(not (nnultimate-server-opened server)))
(nnultimate-open-server server))
-; (unless nnultimate-groups-alist
+ (unless nnultimate-groups-alist
(nnultimate-read-groups)
(setq nnultimate-groups (cdr (assoc nnultimate-address
- nnultimate-groups-alist))))
+ nnultimate-groups-alist)))))
(deffoo nnultimate-open-server (server &optional defs connectionless)
(nnheader-init-server-buffer)