Synch to Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2140e3..45d4e76 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * mail-source.el (mail-source-fetch): Reverse the return value of
+       the continuation question.
+
 2003-02-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nndraft.el (nndraft-request-move-article): Bind

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index b1e7abd..dfc2e5e 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -484,15 +484,16 @@ Return the number of files that were found."
                     (funcall function source callback)
                   (error
                    (if (and (not mail-source-ignore-errors)
-                            (yes-or-no-p
-                             (format "Mail source %s error (%s).  Continue? "
-                                     (if (memq ':password source)
-                                         (let ((s (copy-sequence source)))
-                                           (setcar (cdr (memq ':password s)) 
-                                                   "********")
-                                           s)
-                                       source)
-                                     (cadr err))))
+                            (not
+                             (yes-or-no-p
+                              (format "Mail source %s error (%s).  Continue? "
+                                      (if (memq ':password source)
+                                          (let ((s (copy-sequence source)))
+                                            (setcar (cdr (memq ':password s)) 
+                                                    "********")
+                                            s)
+                                        source)
+                                      (cadr err)))))
                      (error "Cannot get new mail"))
                    0)))))))))