From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/32939 Path: main.gmane.org!not-for-mail From: posting-list@mailAndnews.com (Jari Aalto+mail.emacs) Newsgroups: gmane.emacs.gnus.general Subject: Re: Unable to access nndraft:drafts in recent version of Gnus Date: 18 Oct 2000 17:46:42 +0300 Sender: owner-ding@hpc.uh.edu Message-ID: References: <87g0mgwy9h.fsf@fulmine.dhs.org> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035169137 22541 80.91.224.250 (21 Oct 2002 02:58:57 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:58:57 +0000 (UTC) Keywords: gnus,nndraft,ignore,drafts,group,nndraft-request-group,nndraft-directory,function Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by mailhost.sclp.com (Postfix) with ESMTP id 26DC4D051F for ; Sun, 22 Oct 2000 17:23:05 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id QAB23625; Sun, 22 Oct 2000 16:19:32 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 22 Oct 2000 16:18:54 -0500 (CDT) 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 QAA11062 for ; Sun, 22 Oct 2000 16:18:45 -0500 (CDT) Original-Received: (from tibbs@localhost) by epithumia.math.uh.edu (8.9.3/8.9.3) id QAA28316 for ding@hpc.uh.edu; Sun, 22 Oct 2000 16:19:13 -0500 Original-Received: from mailhost.sclp.com (postfix@66-209.196.61.interliant.com [209.196.61.66] (may be forged)) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id QAA11042 for ; Sun, 22 Oct 2000 16:07:11 -0500 (CDT) Original-Received: from vasta.saunalahti.fi (mail.sci.fi [195.197.53.226]) by mailhost.sclp.com (Postfix) with ESMTP id 24D5CD051F for ; Sun, 22 Oct 2000 17:07:32 -0400 (EDT) Original-Received: from poboxes.com (MKCCCXVII.hdyn.saunalahti.fi [195.197.166.117]) by vasta.saunalahti.fi (8.10.1/8.10.1) with ESMTP id e9ML8C922470 for ; Mon, 23 Oct 2000 00:08:14 +0300 (EEST) Original-To: Gnus mailing list X-Sender-Info: Emacs tiny tools: http://poboxes.com/jari.aalto/emacs-elisp.html http://home.eu.org/~jari/homepage.html. ICQ 'jari-aalto' 82313129 PGP 2.6.x keyid 47141D35 http://www.pgpi.net/ In-Reply-To: <87g0mgwy9h.fsf@fulmine.dhs.org> User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.6 (i386-*-windows98.1998) Original-Lines: 59 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:32939 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:32939 * 2000-10-01 Matthias Wiehl list.emacs-ding * Message-Id: <87g0mgwy9h.fsf@fulmine.dhs.org> | Lloyd Zusman writes: | | > With the new CVS version, my "nndraft:drafts" group shows up with an | > asterisk at its left and I cannot access it. I cannot see any drafts | > that go into that group. | | You will have to byte-compile Gnus in order to make your drafts group | work properly again. Lars Magne Ingebrigtsen writes: | | ,----[ ] | | Gnus has a pretty deep Lisp eval depth (lots of macros that create | | lexical environments (ahem)), and when running Gnus uncompiled, the | | default Emacs max-lisp-eval-depth is exceeded, which makes Gnus bug | | out. However, there's an ignore-error around the group activation | | calls, which makes Gnus ignore the bugout, leading Gnus just to ignore | | those groups. This is unfortunate, it should at least pause and give a message, not just ignore the errors. The compiled versions are not usually good for developers, because you can't get a decent backtrace and understand what went wrong. Then there is issue of running the same code with XEmacs and Emacs, which requires non-compiled versions. In case anyone is interested here is what I currently use for non-compiled gnus. I think Gnus should autocheck if the 'nndraft-request-group is ok, (it is set to 'ignore in case of error) so that users wouldn't need the code below. Jari (defadvice gnus-topic-read-group (before my-gnus-fix-nndraft act) "Fix broken nndraft." (when (eq 'ignore (symbol-function 'nndraft-request-group)) (my-gnus-nndraft-fix))) (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 "drafts/")) (unless (stringp nndraft-directory) (setq nndraft-directory (nnheader-concat gnus-directory "drafts/"))) (eval `(deffoo ,function (&rest args) (,call-function ',backend ',this-function args))) ))