+
+ ;; The last page will be provided with new bug ids.
+ ;; TODO: Do it also for the other pages.
+ (when (and debbugs-widgets
+ (eq debbugs-current-widget (car (last debbugs-widgets))))
+ (let ((debbugs-port "gnu.org")
+ (first-id (car (widget-get debbugs-current-widget :bug-ids)))
+ (last-id (car (last (widget-get debbugs-current-widget :bug-ids))))
+ ids)
+ (dolist (severity debbugs-severities)
+ (setq ids (nconc ids
+ (debbugs-get-bugs :package debbugs-package
+ :severity severity
+ :archive debbugs-archive))))
+ (setq ids (sort ids '<))
+
+ (while (and (<= first-id last-id) (not (memq first-id ids)))
+ (setq first-id (1+ first-id)))
+
+ (when (<= first-id last-id)
+ (widget-put debbugs-current-widget :bug-ids (memq first-id ids)))))
+
+ ;; Refresh the buffer. `save-excursion' does not work, so we
+ ;; remember the position.
+ (let ((pos (point)))
+ (debbugs-show-reports debbugs-current-widget)
+ (goto-char pos)))