From: yamaoka <yamaoka>
Date: Mon, 17 Feb 2003 09:26:32 +0000 (+0000)
Subject: Synch to Oort Gnus.
X-Git-Tag: t-gnus-6_15_17-00-quimby~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2c1d2b37544177f7016a6ed61fc6d12ed2b16031;p=elisp%2Fgnus.git-

Synch to Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2140e3..45d4e76 100644
--- 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
--- 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)))))))))