From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Daiki Ueno Newsgroups: gmane.emacs.bugs Subject: bug#8963: 24.0.50; gnus-no-server tries to connect to IMAP server Date: Sat, 02 Jul 2011 14:42:05 +0900 Message-ID: <87fwmpck7m.fsf-ueno@unixuser.org> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1309585413 982 80.91.229.12 (2 Jul 2011 05:43:33 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sat, 2 Jul 2011 05:43:33 +0000 (UTC) Cc: 8963@debbugs.gnu.org To: Lars Magne Ingebrigtsen Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Jul 02 07:43:28 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QcszI-000175-Gb for geb-bug-gnu-emacs@m.gmane.org; Sat, 02 Jul 2011 07:43:28 +0200 Original-Received: from localhost ([::1]:34583 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QcszG-00077a-Gx for geb-bug-gnu-emacs@m.gmane.org; Sat, 02 Jul 2011 01:43:26 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:34181) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qcsz0-00077N-Jz for bug-gnu-emacs@gnu.org; Sat, 02 Jul 2011 01:43:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Qcsyw-0000az-20 for bug-gnu-emacs@gnu.org; Sat, 02 Jul 2011 01:43:10 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:44060) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qcsyv-0000av-UB for bug-gnu-emacs@gnu.org; Sat, 02 Jul 2011 01:43:06 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1Qcsys-0006q6-KV; Sat, 02 Jul 2011 01:43:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Daiki Ueno Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org, bugs@gnus.org Resent-Date: Sat, 02 Jul 2011 05:43:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8963 X-GNU-PR-Package: emacs,gnus X-GNU-PR-Keywords: Original-Received: via spool by 8963-submit@debbugs.gnu.org id=B8963.130958534226237 (code B ref 8963); Sat, 02 Jul 2011 05:43:02 +0000 Original-Received: (at 8963) by debbugs.gnu.org; 2 Jul 2011 05:42:22 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QcsyD-0006p8-FW for submit@debbugs.gnu.org; Sat, 02 Jul 2011 01:42:21 -0400 Original-Received: from ivory4.scn-net.ne.jp ([219.117.176.192]) by debbugs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1Qcsy9-0006oq-DS for 8963@debbugs.gnu.org; Sat, 02 Jul 2011 01:42:19 -0400 Original-Received: from ([192.168.0.187]) (envelope sender: ) by ivory4.scn-net.ne.jp with Active!Hunter esmtp server; Sat, 2 Jul 2011 14:42:08 +0900 Original-Received: Received: from well-done.deisui.org (g187018.scn-net.ne.jp [202.83.187.18]) (authenticated) by blue17.scn-net.ne.jp (unknown) with ESMTP id p625g7EB013891; Sat, 2 Jul 2011 14:42:07 +0900 In-Reply-To: (Lars Magne Ingebrigtsen's message of "Fri, 01 Jul 2011 12:07:15 +0200") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.3 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Sat, 02 Jul 2011 01:43:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:47732 Archived-At: --=-=-= Lars Magne Ingebrigtsen writes: >> My understanding is that levels are per-group and not per-server, and >> all groups defined in ~/.newsrc.eld have level 3. So I'm wondering >> which group Gnus is trying to open. > > Could you try to `M-x debug-on-entry RET nntp-open-server RET'? The > backtrace should then possibly tell you what group is triggering this. Sure, please find below the backtrace. I did (1) load gnus-int.el and nnimap.el, (2) M-x debug-on-entry RET nnimap-open-server RET, and M-x gnus-no-server. There seems no specific group appeared in the log. --=-=-= Content-Disposition: inline; filename=nnimap-open-server.txt Content-Transfer-Encoding: quoted-printable Debugger entered--entering a function: nnimap-open-server("a" ((nnimap-address "a.example.org"))) * funcall(nnimap-open-server "a" ((nnimap-address "a.example.org"))) (condition-case err (funcall open-server-function (nth 1 gnus-command-met= hod) (nthcdr 2 gnus-command-method)) (error (gnus-message 1 "Unable to open= server %s due to: %s" server (error-message-string err)) nil) (quit (if de= bug-on-quit (debug "Quit") (gnus-message 1 "Quit trying to open server %s" = server)) nil)) (let* ((open-server-function (gnus-get-function gnus-command-method (quot= e open-server))) (result (condition-case err (funcall open-server-function = (nth 1 gnus-command-method) (nthcdr 2 gnus-command-method)) (error (gnus-me= ssage 1 "Unable to open server %s due to: %s" server (error-message-string = err)) nil) (quit (if debug-on-quit (debug "Quit") (gnus-message 1 "Quit try= ing to open server %s" server)) nil))) open-offline) (unless elem (setq ele= m (list gnus-command-method nil) gnus-opened-servers (cons elem gnus-opened= -servers))) (setcar (cdr elem) (cond (result (if (eq open-server-function (= function nnagent-open-server)) (quote offline) (quote ok))) ((and gnus-agen= t (gnus-agent-method-p gnus-command-method)) (cond (gnus-server-unopen-stat= us (setq open-offline (eq gnus-server-unopen-status ...)) gnus-server-unope= n-status) ((not gnus-batch-mode) (setq open-offline t) (quote offline)) (t = (quote denied)))) (t (quote denied)))) (if open-offline (let ((gnus-server-= unopen-status (quote denied))) (gnus-open-server gnus-command-method)) (whe= n (and (eq (cadr elem) (quote ok)) gnus-agent (gnus-agent-method-p gnus-com= mand-method)) (save-excursion (gnus-agent-possibly-synchronize-flags-server= gnus-command-method))) result)) (if (eq (nth 1 elem) (quote denied)) (progn (gnus-message 1 "Denied serve= r %s" server) nil) (let* ((open-server-function (gnus-get-function gnus-com= mand-method (quote open-server))) (result (condition-case err (funcall open= -server-function (nth 1 gnus-command-method) (nthcdr 2 gnus-command-method)= ) (error (gnus-message 1 "Unable to open server %s due to: %s" server (erro= r-message-string err)) nil) (quit (if debug-on-quit (debug "Quit") (gnus-me= ssage 1 "Quit trying to open server %s" server)) nil))) open-offline) (unle= ss elem (setq elem (list gnus-command-method nil) gnus-opened-servers (cons= elem gnus-opened-servers))) (setcar (cdr elem) (cond (result (if (eq open-= server-function (function nnagent-open-server)) (quote offline) (quote ok))= ) ((and gnus-agent (gnus-agent-method-p gnus-command-method)) (cond (gnus-s= erver-unopen-status (setq open-offline ...) gnus-server-unopen-status) ((no= t gnus-batch-mode) (setq open-offline t) (quote offline)) (t (quote denied)= ))) (t (quote denied)))) (if open-offline (let ((gnus-server-unopen-status = (quote denied))) (gnus-open-server gnus-command-method)) (when (and (eq (ca= dr elem) (quote ok)) gnus-agent (gnus-agent-method-p gnus-command-method)) = (save-excursion (gnus-agent-possibly-synchronize-flags-server gnus-command-= method))) result))) (let ((elem (assoc gnus-command-method gnus-opened-servers)) (server (gnu= s-method-to-server-name gnus-command-method))) (if (eq (nth 1 elem) (quote = denied)) (progn (gnus-message 1 "Denied server %s" server) nil) (let* ((ope= n-server-function (gnus-get-function gnus-command-method (quote open-server= ))) (result (condition-case err (funcall open-server-function (nth 1 gnus-c= ommand-method) (nthcdr 2 gnus-command-method)) (error (gnus-message 1 "Unab= le to open server %s due to: %s" server ...) nil) (quit (if debug-on-quit .= .. ...) nil))) open-offline) (unless elem (setq elem (list gnus-command-met= hod nil) gnus-opened-servers (cons elem gnus-opened-servers))) (setcar (cdr= elem) (cond (result (if (eq open-server-function ...) (quote offline) (quo= te ok))) ((and gnus-agent (gnus-agent-method-p gnus-command-method)) (cond = (gnus-server-unopen-status ... gnus-server-unopen-status) (... ... ...) (t = ...))) (t (quote denied)))) (if open-offline (let ((gnus-server-unopen-stat= us (quote denied))) (gnus-open-server gnus-command-method)) (when (and (eq = (cadr elem) (quote ok)) gnus-agent (gnus-agent-method-p gnus-command-method= )) (save-excursion (gnus-agent-possibly-synchronize-flags-server gnus-comma= nd-method))) result)))) gnus-open-server((nnimap "a" (nnimap-address "a.example.org"))) (setq result (gnus-open-server method)) (prog1 (setq result (gnus-open-server method)) (unless silent (gnus-messa= ge (if result 5 3) "Opening %s server%s...%s" (car method) (if (equal (nth = 1 method) "") "" (format " on %s" (nth 1 method))) (if result "done" (forma= t "failed: %s" (nnheader-get-report-string (car method))))))) (if (gnus-server-opened method) t (unless silent (gnus-message 5 "Opening= %s server%s..." (car method) (if (equal (nth 1 method) "") "" (format " on= %s" (nth 1 method))))) (gnus-run-hooks (quote gnus-open-server-hook)) (pro= g1 (setq result (gnus-open-server method)) (unless silent (gnus-message (if= result 5 3) "Opening %s server%s...%s" (car method) (if (equal (nth 1 meth= od) "") "" (format " on %s" (nth 1 method))) (if result "done" (format "fai= led: %s" (nnheader-get-report-string (car method)))))))) (let ((method (or method gnus-select-method)) result) (when (stringp meth= od) (setq method (gnus-server-to-method method))) (if (gnus-server-opened m= ethod) t (unless silent (gnus-message 5 "Opening %s server%s..." (car metho= d) (if (equal (nth 1 method) "") "" (format " on %s" (nth 1 method))))) (gn= us-run-hooks (quote gnus-open-server-hook)) (prog1 (setq result (gnus-open-= server method)) (unless silent (gnus-message (if result 5 3) "Opening %s se= rver%s...%s" (car method) (if (equal (nth 1 method) "") "" (format " on %s"= (nth 1 method))) (if result "done" (format "failed: %s" (nnheader-get-repo= rt-string ...)))))))) gnus-check-server((nnimap "a" (nnimap-address "a.example.org"))) gnus-read-active-file-1((nnimap "a" (nnimap-address "a.example.org")) nil) gnus-get-unread-articles(2) gnus-setup-news(nil 2 t) byte-code("\204=0E=00 \204=0E=00\306 \210\202L=00\307\310!\210\311\n!=13= \f\204=1E=00=0D\203!=00\312 \210\313\314=0E=18#\210\307\315!\210=0E=19\203= 6=00\316\317\320\"\210\321 \210\322=0E=18!\210\323 \210\324\325!\210\326 \2= 10\307\327!\210\314\207" [dont-connect did-connect gnus-startup-file gnus-c= urrent-startup-file gnus-slave gnus-use-dribble-file gnus-group-quit gnus-r= un-hooks gnus-startup-hook gnus-make-newsrc-file gnus-dribble-read-file gnu= s-setup-news nil gnus-setup-news-hook gnus-request-create-group "queue" (nn= draft "") gnus-start-draft-setup gnus-group-list-groups gnus-group-first-un= read-group gnus-configure-windows group gnus-group-set-mode-line gnus-start= ed-hook level gnus-agent] 4) gnus-1(2 t nil) gnus(2 t nil) gnus-no-server-1(nil nil) gnus-no-server(nil) call-interactively(gnus-no-server t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil) --=-=-= Regards, -- Daiki Ueno --=-=-=--