From 2c1d2b37544177f7016a6ed61fc6d12ed2b16031 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 17 Feb 2003 09:26:32 +0000 Subject: [PATCH] Synch to Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/mail-source.el | 19 ++++++++++--------- 2 files changed, 15 insertions(+), 9 deletions(-) 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 + + * mail-source.el (mail-source-fetch): Reverse the return value of + the continuation question. + 2003-02-16 Lars Magne Ingebrigtsen * 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))))))))) -- 1.7.10.4