(nnimap-acl-get): Check capability.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2f7d74c..15e0d10 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2000-09-24  Simon Josefsson  <simon@josefsson.org>
 
+       * gnus-group.el (gnus-group-nnimap-edit-acl): Check if server support ACL's.
+
+       * nnimap.el (nnimap-acl-get): Check capability.
+
        * mail-source.el (mail-source-imap-file-coding-system): New variable.
        (mail-source-fetch-imap): Use it.
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index f5a8091..e9fb3d7 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1150,7 +1150,8 @@ function is generally only called when Gnus is shutting down."
 
 (defun nnimap-acl-get (mailbox server)
   (when (nnimap-possibly-change-server server)
-    (imap-mailbox-acl-get mailbox nnimap-server-buffer)))
+    (and (imap-capability 'ACL nnimap-server-buffer)
+        (imap-mailbox-acl-get mailbox nnimap-server-buffer))))
 
 (defun nnimap-acl-edit (mailbox method old-acls new-acls)
   (when (nnimap-possibly-change-server (cadr method))