lisp/gnus-agent.el: Bug fix.

diff --git a/ChangeLog b/ChangeLog
index dc16c45..c362c05 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-09-22  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+       * lisp/gnus-agent.el (gnus-agent-expire): Bug fix when variable
+       expired is nil.
+
 1998-09-18  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
 
        * lisp/gnus-draft.el: (gnus-draft-edit-message): Fix typo.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 1d7fd45..4a7ca17 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1433,12 +1433,13 @@ The following commands are available:
               ;; Maybe everything has been expired from `gnus-article-alist'
               ;; and so the above marking as read could not be conducted,
               ;; or there are expired article within the range of the alist.
-              (when (or (not (caar gnus-agent-article-alist))
-                        (> (car expired) (caar gnus-agent-article-alist)))  
-              (setcar (nthcdr 2 info)
-                      (gnus-add-to-range
-                       (nth 2 info)
-                       (nreverse expired))))
+              (if expired
+                  (when (or (not (caar gnus-agent-article-alist))
+                            (> (car expired) (caar gnus-agent-article-alist)))  
+                    (setcar (nthcdr 2 info)
+                            (gnus-add-to-range
+                             (nth 2 info)
+                             (nreverse expired)))))
               (gnus-dribble-enter
                (concat "(gnus-group-set-info '"
                        (gnus-prin1-to-string info)