'nov)
(deffoo nnrss-request-group (group &optional server dont-check)
+ (nnheader-message 6 (concat "nnrss: Requesting " group "..."))
(setq group (nnrss-decode-group-name group))
(nnrss-possibly-change-group group server)
- (if dont-check
- t
- (nnrss-check-group group server)
- (nnheader-report 'nnrss "Opened group %s" group)
- (nnheader-insert
- "211 %d %d %d %s\n" nnrss-group-max nnrss-group-min nnrss-group-max
- (prin1-to-string group)
- t)))
+ (prog1
+ (if dont-check
+ t
+ (nnrss-check-group group server)
+ (nnheader-report 'nnrss "Opened group %s" group)
+ (nnheader-insert
+ "211 %d %d %d %s\n" nnrss-group-max nnrss-group-min nnrss-group-max
+ (prin1-to-string group)
+ t))
+ (nnheader-message 6 (concat "nnrss: Requesting " group "...done"))))
(deffoo nnrss-close-group (group &optional server)
t)