From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/12231 Path: main.gmane.org!not-for-mail From: Matt Simmons Newsgroups: gmane.emacs.gnus.general Subject: agent again Date: 21 Sep 1997 00:28:08 -0500 Message-ID: References: Reply-To: simmonmt@acm.org NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.108) Content-Type: multipart/mixed; boundary="Multipart_Sun_Sep_21_00:28:08_1997-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035151804 2630 80.91.224.250 (20 Oct 2002 22:10:04 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:10:04 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.7/8.8.7) with ESMTP id XAA17310 for ; Sat, 20 Sep 1997 23:28:21 -0700 Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with SMTP id BAA07207 for ; Sun, 21 Sep 1997 01:24:24 -0500 (CDT) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) id for ; Sun, 21 Sep 1997 07:28:11 +0200 Original-Received: (qmail 5643 invoked by uid 504); 21 Sep 1997 05:28:10 -0000 Original-Received: (qmail 5640 invoked from network); 21 Sep 1997 05:28:08 -0000 Original-Received: from chw-il5-45.ix.netcom.com (HELO belle.matt.cs.purdue.edu) (simmonmt@198.211.138.109) by claymore.vcinet.com with SMTP; 21 Sep 1997 05:28:08 -0000 Original-Received: (from simmonmt@localhost) by belle.matt.cs.purdue.edu (8.8.7/8.8.7) id AAA00229; Sun, 21 Sep 1997 00:28:08 -0500 (CDT) Original-To: ding@gnus.org Original-Lines: 74 X-Mailer: Quassia Gnus v0.8/XEmacs 20.3(beta22) - "Minsk" Xref: main.gmane.org gmane.emacs.gnus.general:12231 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:12231 --Multipart_Sun_Sep_21_00:28:08_1997-1 Content-Type: text/plain; charset=US-ASCII Matt Simmons writes: > Am I the only one who is getting errors on "J a" in the Group buffer? > Whenever I do it, I get the below: > [ ... backtrace removed ... ] OK, I found out what was happening in the above, but it still breaks. The cause of the above was: (defun gnus-group-iterate (arg gnus-group-iterate-function) [....] ______________/ (save-excursion / (funcall function group)))))) (Hopefully you're looking a this in a fixed font =) ) gnus-group-iterate was declaring g-g-i-f but not using it. I replaced function with g-g-i-f (see attachment) and gnus-group-iterate function began to work again. It looks like the change crept in in the qgnus-0.0-0.1 patch. Once that's fixed, however, another problem pops up. The function lambda'd up to be passed to gnus-group-iterate has (push group groups) at the end. This would be OK, except for the fact that gnus-group-iterate depends on groups emptying out at some point so it can exit. If you try to gnus-agent-add-group a group that has not previously been assigned[1], group gets passes down to the lambda'd function, processed, and then pushed right back on groups. This ensures that gnus-group-iterate will never exit. I tried to figure out what the lambda'd function is trying to do, but I gave up. Matt Footnotes: [1] I don't know about other cases - I've just checked g-a-a-g on a group that has not previously been assigned. I'd check more, but I'm trying to get this in before Lars goes to sleep. =) -- Matt Simmons - simmonmt@acm.org - http://www.netcom.com/~simmonmt If a parsley farmer is sued, can they garnish his wages? --Multipart_Sun_Sep_21_00:28:08_1997-1 Content-Type: application/octet-stream Content-Disposition: attachment; filename="group-patch" Content-Transfer-Encoding: 7bit *** /tmp/T0a0000o Sun Sep 21 00:11:41 1997 --- gnus-group.el Sat Sep 20 23:31:58 1997 *************** *** 1457,1465 **** (gnus-group-remove-mark group) (save-selected-window (save-excursion ! (funcall function group)))))) ! (put 'gnus-group-iterate 'lisp-indent-function 1) ;; Selecting groups. --- 1457,1465 ---- (gnus-group-remove-mark group) (save-selected-window (save-excursion ! (funcall gnus-group-iterate-function group)))))) ! ;(put 'gnus-group-iterate 'lisp-indent-function 1) ;; Selecting groups. --Multipart_Sun_Sep_21_00:28:08_1997-1--