gnus-group.el (gnus-group-make-group): Report errors.

nnimap.el (nnimap-request-create-group): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 999b04e..f3e080c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2003-01-25  Simon Josefsson  <jas@extundo.com>
 
+       * gnus-group.el (gnus-group-make-group): Report errors.
+
+       * nnimap.el (nnimap-request-create-group): Ditto.
+
        * sieve-manage.el (sieve-manage-is-okno): Parse literal strings.
 
        * sieve.el (sieve-upload): Fix error printing.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 2cca870..3c0b6cd 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2221,7 +2221,9 @@ ADDRESS."
       (require backend))
     (gnus-check-server meth)
     (when (gnus-check-backend-function 'request-create-group nname)
-      (gnus-request-create-group nname nil args))
+      (unless (gnus-request-create-group nname nil args)
+       (error "Could not create group on server: %s"
+              (nnheader-get-report backend))))
     t))
 
 (defun gnus-group-delete-groups (&optional arg)

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index f6c3705..3be9481 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1327,7 +1327,9 @@ function is generally only called when Gnus is shutting down."
 (deffoo nnimap-request-create-group (group &optional server args)
   (when (nnimap-possibly-change-server server)
     (or (imap-mailbox-status group 'uidvalidity nnimap-server-buffer)
-       (imap-mailbox-create group nnimap-server-buffer))))
+       (imap-mailbox-create group nnimap-server-buffer)
+       (nnheader-report 'nnimap "%S"
+                        (imap-error-text nnimap-server-buffer)))))
 
 (defun nnimap-time-substract (time1 time2)
   "Return TIME for TIME1 - TIME2."