X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-int.el;h=ef15a479892dfe34e6e38fec8898968d22b2f872;hp=a67063bb970fc7831f238d7c32395c3bac5b80eb;hb=36b02a9b3e82b7a6e5553dc78ba6851e3427630d;hpb=ad107b21a527a47b0e192df1518116b2749cef20

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index a67063bb9..ef15a4798 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -270,7 +270,9 @@ If it is down, start it up (again)."
 			       server (error-message-string err))
 		 nil)
 		(quit
-		 (gnus-message 1 "Quit trying to open server %s" server)
+		 (if debug-on-quit
+		     (debug "Quit")
+		   (gnus-message 1 "Quit trying to open server %s" server))
 		 nil)))
 	     open-offline)
 	;; If this hasn't been opened before, we add it to the list.