projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
nnimap.el: Handle nil arg to nnimap-request-group
[gnus]
/
lisp
/
nnimap.el
diff --git
a/lisp/nnimap.el
b/lisp/nnimap.el
index
20ba0a3
..
ac228f9
100644
(file)
--- a/
lisp/nnimap.el
+++ b/
lisp/nnimap.el
@@
-807,6
+807,7
@@
textual parts.")
nil
group)
server))
nil
group)
server))
+ (info (when info (list info)))
active)
(with-current-buffer nntp-server-buffer
(when result
active)
(with-current-buffer nntp-server-buffer
(when result
@@
-814,10
+815,11
@@
textual parts.")
(not (setq active
(nth 2 (assoc group nnimap-current-infos)))))
(let ((sequences (nnimap-retrieve-group-data-early
(not (setq active
(nth 2 (assoc group nnimap-current-infos)))))
(let ((sequences (nnimap-retrieve-group-data-early
- server
(list info)
)))
- (nnimap-finish-retrieve-group-infos server
(list info)
sequences
+ server
info
)))
+ (nnimap-finish-retrieve-group-infos server
info
sequences
t)
(setq active (nth 2 (assoc group nnimap-current-infos)))))
t)
(setq active (nth 2 (assoc group nnimap-current-infos)))))
+ (setq active (or active '(0 . 1)))
(erase-buffer)
(insert (format "211 %d %d %d %S\n"
(- (cdr active) (car active))
(erase-buffer)
(insert (format "211 %d %d %d %S\n"
(- (cdr active) (car active))