X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnmaildir.el;h=dff0443067065e191ba18f4d10c342a4b0988e33;hb=2613594384a4802dad671c098477fee25b13e180;hp=050010bce6f7176f04316e02143eac1cdc2f1fe6;hpb=9260c9f0b35f12c3eb6943d0a5a52d19f5b9da01;p=gnus

diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el
index 050010bce..dff044306 100644
--- a/lisp/nnmaildir.el
+++ b/lisp/nnmaildir.el
@@ -462,7 +462,7 @@ by nnmaildir-request-article.")
 	  (setq nlist (cons (cons num article) nlist))
 	(setq insert-nlist t
 	      nlist-cdr (cdr nlist))
-	(while (< num (caar nlist-cdr))
+	(while (and nlist-cdr (< num (caar nlist-cdr)))
 	  (setq nlist nlist-cdr
 		nlist-cdr (cdr nlist))))
       (let ((inhibit-quit t))