(gnus-group-expire-articles-1): Make sure server is open.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24d50c3..79e665e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-08  Simon Josefsson  <jas@pdc.kth.se>
+
+       * gnus-group.el (gnus-group-expire-articles-1): Make sure server
+       is open.
+
 2000-05-24  Dave Love  <fx@gnu.org>
 
        * mml.el (mml-parse-file-name): Fix ange-ftp part.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 00179ae..b4d425c 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2770,6 +2770,7 @@ or nil if no action could be taken."
            (or (gnus-group-find-parameter group 'expiry-target)
                nnmail-expiry-target)))
       (when expirable
+       (gnus-check-group group)
        (setcdr
         expirable
         (gnus-compress-sequence