(beg (progn (beginning-of-line) (if (bobp) (point) (1- (point)))))
(eoi (when end
(if (fboundp 'next-single-char-property-change)
- (next-single-char-property-change end 'invisible)
+ ;; Note: XEmacs version of n-s-c-p-c may return nil
+ (or (next-single-char-property-change end 'invisible)
+ (point-max))
(while (progn
(end-of-line 2)
(and (not (eobp))
(gnus-group-decoded-name gnus-newsgroup-name)
(if initial "max" "default")
len)
+ nil nil
(if initial
(cons (number-to-string initial)
0)))))