- (funcall (gnus-get-function gnus-command-method 'request-update-info)
- (gnus-group-real-name (gnus-info-group info))
- info (nth 1 gnus-command-method))))
+ (let* ((group (gnus-info-group info))
+ (result (funcall (gnus-get-function gnus-command-method
+ 'request-update-info)
+ (gnus-group-real-name group)
+ info (nth 1 gnus-command-method))))
+ (when result ;; artificially add nonexistent articles to the read range
+ (let* ((active (gnus-active group))
+ (min (car active)))
+ (when (> min 1) ;; otherwise, there are no known nonexistent articles
+ (let* ((range (if (= min 2) 1 (cons 1 (1- min))))
+ (read (gnus-info-read result))
+ (new-read (gnus-range-add read (list range))))
+ (gnus-info-set-read result new-read)))))
+ result)))