From: ichikawa <ichikawa>
Date: Tue, 22 Sep 1998 13:04:52 +0000 (+0000)
Subject: lisp/gnus-agent.el: Bug fix.
X-Git-Tag: pgnus-ichikawa-199811302358~210
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d71666adf0d54425efbeb1e8bdcb0981fedca99d;p=elisp%2Fgnus.git-

lisp/gnus-agent.el: Bug fix.
---

diff --git a/ChangeLog b/ChangeLog
index dc16c45..c362c05 100644
--- 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
--- 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)