(gnus-summary-delete-article): Check server.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 20dd617..4166317 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-03  Simon Josefsson  <simon@josefsson.org>
+
+       * gnus-sum.el (gnus-summary-delete-article): Check server.
+
 2000-09-01  Simon Josefsson  <simon@josefsson.org>
 
        * imap.el (imap-parse-flag-list): Rewrite.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 4321b41..01ae3c1 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7740,6 +7740,8 @@ delete these instead."
   (unless (gnus-check-backend-function 'request-expire-articles
                                       gnus-newsgroup-name)
     (error "The current newsgroup does not support article deletion"))
+  (unless (gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name))
+    (error "Couldn't open server"))
   ;; Compute the list of articles to delete.
   (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) '<))
        not-deleted)