From fe43a4640929b89f7517f423090f710568c87fc0 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 24 Feb 2006 20:49:02 +0000 Subject: [PATCH] 2006-02-20 Lars Magne Ingebrigtsen * gnus-int.el (gnus-open-server): Respect gnus-batch-mode. 2005-12-20 Lars Magne Ingebrigtsen * dns.el (query-dns): Protect more against buggy tcp output. --- lisp/ChangeLog | 8 ++++++++ lisp/dns.el | 2 +- lisp/gnus-int.el | 10 ++++++---- 3 files changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1ee9098a7..5f0543e28 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2006-02-20 Lars Magne Ingebrigtsen + + * gnus-int.el (gnus-open-server): Respect gnus-batch-mode. + +2005-12-20 Lars Magne Ingebrigtsen + + * dns.el (query-dns): Protect more against buggy tcp output. + 2006-02-24 Reiner Steib * nnweb.el (nnweb-type-definition, nnweb-gmane-search): Use new diff --git a/lisp/dns.el b/lisp/dns.el index efd9a7dca..05b2f7329 100644 --- a/lisp/dns.el +++ b/lisp/dns.el @@ -408,7 +408,7 @@ If REVERSEP, look up an IP address." (>= (buffer-size) 2)) (goto-char (point-min)) (delete-region (point) (+ (point) 2))) - (unless (zerop (buffer-size)) + (when (>= (buffer-size) 2) (let ((result (dns-read (buffer-string)))) (if fullp result diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 6e5963401..586b00551 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -250,10 +250,12 @@ If it is down, start it up (again)." ;; recurse to open the agent's backend. (setq open-offline (eq gnus-server-unopen-status 'offline)) gnus-server-unopen-status) - ((gnus-y-or-n-p - (format "Unable to open %s:%s, go offline? " - (car gnus-command-method) - (cadr gnus-command-method))) + ((and + (not gnus-batch-mode) + (gnus-y-or-n-p + (format "Unable to open %s:%s, go offline? " + (car gnus-command-method) + (cadr gnus-command-method)))) (setq open-offline t) 'offline) (t -- 2.25.1