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 e94b5b4..787ada2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-02-23 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 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.
 
        * 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 e36340c..004c462 100644 (file)
--- 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.
 (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
     (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)
          nnml-group-alist)))
 
 (defun nnml-generate-nov-file (dir files)