From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Sat, 24 Feb 2001 03:47:06 +0000 (+0000)
Subject: 2001-02-23 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=8775d76e884b78c91d6c2bbc40666d6a58fc9771

2001-02-23 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* nnml.el (nnml-generate-active-info): Fix the case when there is
	no file.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e94b5b4fa..787ada24f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-02-23 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+	* nnml.el (nnml-generate-active-info): Fix the case when there is
+	no file.
+
 	* gnus-sum.el (gnus-summary-import-article): Display it. Enable edit. 
 	(gnus-summary-create-article): New.
 
diff --git a/lisp/nnml.el b/lisp/nnml.el
index e36340cc8..004c4622d 100644
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -753,15 +753,18 @@ all.  This may very well take some time.")
 (eval-when-compile (defvar files))
 (defun nnml-generate-active-info (dir)
   ;; Update the active info for this group.
-  (let ((group (nnheader-file-to-group
-		(directory-file-name dir) nnml-directory)))
-    (setq nnml-group-alist
-	  (delq (assoc group nnml-group-alist) nnml-group-alist))
+  (let* ((group (nnheader-file-to-group
+		 (directory-file-name dir) nnml-directory))
+	 (entry (assoc group nnml-group-alist))
+	 (last (or (caadr entry) 0)))
+    (setq nnml-group-alist (delq entry nnml-group-alist))
     (push (list group
-		(cons (caar files)
-		      (let ((f files))
-			(while (cdr f) (setq f (cdr f)))
-			(caar f))))
+		(cons (or (caar files) (1+ last))
+		      (max last
+			   (or (let ((f files))
+				 (while (cdr f) (setq f (cdr f)))
+				 (caar f))
+			       0))))
 	  nnml-group-alist)))
 
 (defun nnml-generate-nov-file (dir files)