(mail-source-fetch): Reverse the return value of

[gnus] / lisp / mail-source.el

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 726c12a..e2033ef 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -1,5 +1,5 @@
 ;;; mail-source.el --- functions for fetching mail
-;; Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news, mail
@@ -482,15 +482,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)))))))))