Re: over quota

[Simon Josefsson <jas@pdc.kth.se>]

Mark Moll <mmoll@cs.cmu.edu> writes:

> I just noticed that if I try to move or copy articles when the quota limit
> has been reached, gnus/nnimap doesn't really give any useful error message.
> It just says "Couldn't [Move|Copy] article". It would be nice if this error
> message was a bit more informative. It took me a while before figuring out
> why this happened.

This patch works for me, I've sent the gnus part to Larsi.

--- lisp/gnus-sum.el~   Fri Jul 30 20:38:23 1999
+++ lisp/gnus-sum.el    Tue Aug 17 16:39:31 1999
@@ -7298,8 +7298,9 @@
               art-group))))))
       (cond
        ((not art-group)
-       (gnus-message 1 "Couldn't %s article %s"
-                     (cadr (assq action names)) article))
+       (gnus-message 1 "Couldn't %s article %s: %s"
+                     (cadr (assq action names)) article
+                     (nnheader-get-report (car to-method))))
        ((and (eq art-group 'junk)
             (eq action 'move))
        (gnus-summary-mark-article article gnus-canceled-mark)
--- /afs/pdc.kth.se/home/j/jas/.Oldfiles/elisp/nnimap/nnimap.el Sat Aug 14 22:39:15 1999
+++ nnimap.el   Tue Aug 17 16:42:33 1999
@@ -1028,7 +1028,7 @@
 (deffoo nnimap-request-accept-article (group &optional server last)
   (when (nnimap-possibly-change-server server)
     (let (uid)
-      (and (setq uid
+      (if (setq uid
                 (if (string= nnimap-current-server nnimap-current-move-server)
                     ;; moving article within same server, speed it up...
                     (and (nnimap-possibly-change-group
@@ -1045,7 +1045,8 @@
                   (imap-mailbox-unselect nnimap-server-buffer)
                   (imap-message-append group (current-buffer)
                                        nnimap-server-buffer)))
-          (cons group (nth 1 uid))))))
+         (cons group (nth 1 uid))
+       (nnheader-report 'nnimap (imap-error-text nnimap-server-buffer))))))
 
 (deffoo nnimap-request-delete-group (group force &optional server)
   (when (nnimap-possibly-change-server server)