From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/29101 Path: main.gmane.org!not-for-mail From: posting-list@MailAndNews.com (Jari Aalto+mail.emacs) Newsgroups: gmane.emacs.gnus.general Subject: Re: draft group problem (Gnus 5.8.3) Date: 04 Feb 2000 01:17:45 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1035165829 827 80.91.224.250 (21 Oct 2002 02:03:49 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:03:49 +0000 (UTC) Keywords: nndraft,drafts,group,function,args,nnoo-parent-function,nndraft-request-group,news,ignore,gnus-topic-read-group,orakel,ntnu Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by mailhost.sclp.com (Postfix) with ESMTP id 8EABFD0522 for ; Fri, 4 Feb 2000 15:37:15 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id OAB00927; Fri, 4 Feb 2000 14:36:45 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 04 Feb 2000 14:36:36 -0600 (CST) Original-Received: from epithumia.math.uh.edu (IDENT:root@epithumia.math.uh.edu [129.7.128.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id OAA17292 for ; Fri, 4 Feb 2000 14:36:29 -0600 (CST) Original-Received: (from tibbs@localhost) by epithumia.math.uh.edu (8.9.3/8.9.3) id OAA19827 for ding@hpc.uh.edu; Fri, 4 Feb 2000 14:36:27 -0600 Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id NAA16885 for ; Fri, 4 Feb 2000 13:53:09 -0600 (CST) Original-Received: from pefletti.saunalahti.fi (mail.sci.fi [195.74.0.53]) by mailhost.sclp.com (Postfix) with ESMTP id BEB33D051F for ; Fri, 4 Feb 2000 14:52:54 -0500 (EST) Original-Received: from poboxes.com (MKCCCLXI.hdyn.saunalahti.fi [195.197.166.161]) by pefletti.saunalahti.fi (8.9.1/8.9.1) with ESMTP id VAA14138 for ; Fri, 4 Feb 2000 21:52:54 +0200 (EET) Original-To: ding@gnus.org X-Sender-Info: Emacs tiny tools: http://poboxes.com/jari.aalto/emacs-elisp.html http://home.eu.org/~jari/homepage.html PGP 2.6.x keyid 47141D35 http://www.pgp.net/pgpnet/ In-Reply-To: "Kjetil=?iso-8859-1?q?_=D8degaard?="'s message of "03 Feb 2000 18:10:03 +0100" User-Agent: Gnus/5.0803 (Gnus v5.8.3) Emacs/20.4 (i386-*-windows98.1998) Original-Lines: 128 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:29101 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:29101 * 2000-02-03 Kjetil =D8degaard list.emacs-ding * Message-Id: | * Anders Melchiorsen | [ | | "Kjetil =D8degaard" wrote: | |=20 | | > I just upgraded my Gnus from 5.8.2 to 5.8.3 and now I can't seem = to | | > enter my `drafts' group anymore. Emacs says "Couldn't request gr= oup | | > nndraft:drafts: Opened server using directory ~/News/drafts/". = I've | | > checked, and ~/News/drafts/ contains a `drafts' directory. | |=20 | | Not much help, but I can report that I have the exact same problem | | (also with 5.8.3). I have had that problem since pgnus days and I never understood what wa= s wrong. It turned out that for some unknown reason the nndaft-request-group fun= ction was defined as 'ignore. So I wrote this code and draft has been working since. Could anybody in= vestigate better why it get's that ignore function definition? Or at least make a= =20 double check somewhere that the function definition is not 'ignore whe= n=20 enetring dtarfts. The trace chart where "Can't select group" appears has been appended be= low. jari ;;; -------------------------------------------------------------------= --- ;;; See nnoo.el::nno-import-1 and nndraft.el ;;; (defun my-gnus-nndraft-fix () "Bug in my gnus that prevent accessing nndraft. Define function `nndaft-request-group'." (interactive) (let* ((function 'nndraft-request-group) (call-function 'nnoo-parent-function) (backend 'nndraft) (this-function 'nnmh-request-group) ) ;; nndraft.el ;; (defvoo nndraft-directory (nnheader-concat gnus-directory "draft= s/")) (unless (stringp nndraft-directory) (setq nndraft-directory (nnheader-concat gnus-directory "drafts/"= ))) (eval `(deffoo ,function (&rest args) (,call-function ',backend ',this-function args))) )) ;;; -------------------------------------------------------------------= --- ;;; (defadvice gnus-topic-read-group (before my-gnus-fix-nndraft act) "Fix broken nndraft." (let* ((fid "gnus-topic-read-group") (arg (ad-get-arg 0)) ;; See also (gnus-group-group-name) (groups (gnus-group-process-prefix nil)) (group (car groups)) unread-arts ) (when (and group (string-match "nndraft" group)) (gnus-topic-get-new-news-this-topic) (when (eq 'ignore (symbol-function 'nndraft-request-group)) (my-gnus-nndraft-fix)) ))) ;;; -------------------------------------------------------------------= --- ;;; ;;; (gnus-topic-read-group &optional ALL NO-ARTICLE GROUP) ;;; Disabled, old version ;;; ;;; gnus-topic-read-group ;;; gnus-group-read-group ;;; gnus-summary-read-group ;;; ;;; gnus-summary-read-group-1 ;; ONLY NOW BEGINS TO HAPPEN ;;; ;;; gnus-select-newsgroup (return non-nil if group present) ;;; (gnus-select-newsgroup '("nndraft:drafts") t nil) :: gnus-su= m.el ;;; gnus-activate-group :: gnus-start.el ;;; gnus-request-group :: gnus-int.el ;;; ;;; nnagent-request-group --> nnoo-parent-function --> ;;; nnml-request-group ;;; ;; nnagent-directory"~/News/agent/nntp/uutiset.s= aunalahti.fi/" ;;; ;; nnagent-active-file"~/News/agent/nntp/uutiset= .saunalahti.fi/agent.lib/active" ;;; (lambda (&rest args) ;;; (nnoo-parent-function 'nnagent ;;; 'nnml-request-group args)) ;;; ;;; (gnus-get-function '(nndraft "") 'request-group) ;;; (gnus-request-group "nndraft:drafts" t) ;;; (gnus-select-newsgroup "nndraft:drafts" t) ;;; (gnus-request-group "nndraft:drafts") gnus-int.el ;;; --> Can't select group ;;; ;;; ;;; nndraft-request-group ;;; (nnmh-request-group "drafts" "" t) ;;; ;;; (defun nndraft-request-group (&rest args) ;;; (nnoo-parent-function 'nndraft ;;; 'nnmh-request-group args)) ;;;