From: Simon Josefsson <jas@extundo.com>
Date: Sun, 24 Sep 2000 19:36:25 +0000 (+0000)
Subject: (gnus-group-nnimap-edit-acl): Check if server support ACL's.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=d1e7d4a3f71e26794e885eb468ddc5ea3caf4aed;hp=80e5e1da04b01f28a3ebd61fbe019f0bb3422a35;p=gnus

(gnus-group-nnimap-edit-acl): Check if server support ACL's.
---

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 7f973fd88..3d580d9e2 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2423,8 +2423,9 @@ score file entries for articles to include in the group."
       (error "Killed group; can't be edited"))
     (unless (eq (car (setq method (gnus-find-method-for-group group))) 'nnimap)
       (error "%s is not an nnimap group" group))
-    (gnus-edit-form (setq acl (nnimap-acl-get mailbox (cadr method)))
-		    (format "Editing the access control list for `%s'.
+    (unless (setq acl (nnimap-acl-get mailbox (cadr method)))
+      (error "Server does not support ACL's"))
+    (gnus-edit-form acl (format "Editing the access control list for `%s'.
 
    An access control list is a list of (identifier . rights) elements.