From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/16222 Path: main.gmane.org!not-for-mail From: (Jari Aalto+list.ding) Newsgroups: gmane.emacs.gnus.general Subject: Re: 5.6.38 Can't read drafts server? Date: 24 Aug 1998 00:20:11 +0300 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035155124 26471 80.91.224.250 (20 Oct 2002 23:05:24 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:05:24 +0000 (UTC) Return-Path: Original-Received: from gwyn.tux.org (gwyn.tux.org [207.96.122.8]) by altair.xemacs.org (8.9.1/8.9.1) with ESMTP id OAA01443 for ; Sun, 23 Aug 1998 14:21:53 -0700 Original-Received: from sina.hpc.uh.edu (Sina.HPC.UH.EDU [129.7.3.5]) by gwyn.tux.org (8.8.8/8.8.8) with ESMTP id RAA00753 for ; Sun, 23 Aug 1998 17:23:10 -0400 Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id QAK05835; Sun, 23 Aug 1998 16:23:02 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 23 Aug 1998 16:20:34 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id QAA05822 for ; Sun, 23 Aug 1998 16:20:25 -0500 (CDT) Original-Received: from axl01it.ntc.nokia.com (axl01it.ntc.nokia.com [131.228.118.232]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id RAA26942 for ; Sun, 23 Aug 1998 17:20:16 -0400 (EDT) Original-Received: from zeus.tele.nokia.fi (zeus.tele.nokia.fi [131.228.134.50]) by axl01it.ntc.nokia.com (8.8.5/8.6.9) with SMTP id AAA00672 for ; Mon, 24 Aug 1998 00:19:59 +0300 (EET DST) Original-Received: from creator.tele.nokia.fi (creator.tele.nokia.fi [131.228.48.178]) by zeus.tele.nokia.fi (8.6.4/8.6.4) with ESMTP id AAA10010 for ; Mon, 24 Aug 1998 00:23:53 +0300 Original-Received: (from jaalto@localhost) by creator.tele.nokia.fi (8.7.5/8.7.1) id AAA26739; Mon, 24 Aug 1998 00:20:12 +0300 (EETDST) Original-To: Ding mailing list X-info: Emacs tiny tools: ftp://cs.uta.fi/pub/ssjaaa/ File server: Send subject 'send help' to In-Reply-To: Lars Magne Ingebrigtsen's message of "21 Aug 1998 21:09:36 +0200" Original-Lines: 55 X-Mailer: Gnus v5.6.38/Emacs 19.34 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:16222 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:16222 | 1998-08-21 Lars Magne Ingebrigtsen list.ding | (Jari Aalto+list.ding) writes: | | > Next day (when I reported the problem) I tried to access draft group | > and was suprised that I could get inside. | > | > Is there some function you want me to edebug? | | nnmh-request-group, for instance. I didn't reach that far, I was able to go to point gnus-request-group, but then it called function nndraft-request-group which I couldn't find anywhere to instrument it for Edebug. How do I continue tracing? jari (defun gnus-activate-group (group &optional scan dont-check method) ;; Check whether a group has been activated or not. ;; If SCAN, request a scan of that group as well. (let ((method (or method (inline (gnus-find-method-for-group group)))) active) (and (inline (gnus-check-server method)) ;; We escape all bugs and quit here to make it possible to ;; continue if a group is so out-there that it reports bugs ;; and stuff. (progn (and scan (gnus-check-backend-function 'request-scan (car method)) (gnus-request-scan group method)) t) (condition-case () ==> (inline (gnus-request-group group dont-check method)) (error nil) (quit nil)) (setq active (gnus-parse-active)) (defun gnus-request-group (group &optional dont-check gnus-command-method) "Request GROUP. If DONT-CHECK, no information is required." (let ((gnus-command-method (or gnus-command-method (inline (gnus-find-method-for-group group))))) (when (stringp gnus-command-method) (setq gnus-command-method (inline (gnus-server-to-method gnus-command-method)))) --> nndraft-request-group (funcall (inline (gnus-get-function gnus-command-method 'request-group)) (gnus-group-real-name group) (nth 1 gnus-command-method) dont-check)))