diff options
| -rw-r--r-- | lisp/gnus/nnselect.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el index fc2d98bca21..7d57ddc9a56 100644 --- a/lisp/gnus/nnselect.el +++ b/lisp/gnus/nnselect.el | |||
| @@ -328,12 +328,11 @@ If this variable is nil, or if the provided function returns nil, | |||
| 328 | (_ (error "Unknown header type %s while requesting articles \ | 328 | (_ (error "Unknown header type %s while requesting articles \ |
| 329 | of group %s" gnus-headers-retrieved-by artgroup))))) | 329 | of group %s" gnus-headers-retrieved-by artgroup))))) |
| 330 | (setq headers | 330 | (setq headers |
| 331 | (sort headers | 331 | (sort |
| 332 | (lambda (x y) | 332 | headers |
| 333 | (< (mail-header-number x) (mail-header-number y))))) | 333 | (lambda (x y) |
| 334 | (erase-buffer) | 334 | (< (mail-header-number x) (mail-header-number y)))))))))) |
| 335 | (mapc 'nnheader-insert-nov headers) | 335 | |
| 336 | 'nov))))) | ||
| 337 | 336 | ||
| 338 | (deffoo nnselect-request-article (article &optional _group server to-buffer) | 337 | (deffoo nnselect-request-article (article &optional _group server to-buffer) |
| 339 | (let* ((gnus-override-method nil) | 338 | (let* ((gnus-override-method nil) |