X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-sum.el;h=46e246f85b2237a9537b6c3c6944e8ba4e9b4349;hb=5beb390633ce1e32cdf319c6ba19926244bbfdf2;hp=77bbe38d8b54469239a83da45aa7f3dc363ab586;hpb=cc6f03bae1277e4cc0c6d59ef4aa8441d9bffc29;p=gnus

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 77bbe38d8..46e246f85 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -10304,16 +10304,19 @@ This will be the case if the article has both been mailed and posted."
 	      'request-expire-articles gnus-newsgroup-name))
     ;; This backend supports expiry.
     (let* ((total (gnus-group-total-expirable-p gnus-newsgroup-name))
-	   (expirable (if total
-			  (progn
-			    ;; We need to update the info for
-			    ;; this group for `gnus-list-of-read-articles'
-			    ;; to give us the right answer.
-			    (gnus-run-hooks 'gnus-exit-group-hook)
-			    (gnus-summary-update-info)
-			    (gnus-list-of-read-articles gnus-newsgroup-name))
-			(setq gnus-newsgroup-expirable
-			      (sort gnus-newsgroup-expirable '<))))
+	   (expirable
+	    (gnus-list-range-difference
+	     (if total
+		 (progn
+		   ;; We need to update the info for
+		   ;; this group for `gnus-list-of-read-articles'
+		   ;; to give us the right answer.
+		   (gnus-run-hooks 'gnus-exit-group-hook)
+		   (gnus-summary-update-info)
+		   (gnus-list-of-read-articles gnus-newsgroup-name))
+	       (setq gnus-newsgroup-expirable
+		     (sort gnus-newsgroup-expirable '<)))
+	     gnus-newsgroup-unexist))
 	   (expiry-wait (if now 'immediate
 			  (gnus-group-find-parameter
 			   gnus-newsgroup-name 'expiry-wait)))