X-From-Line: graaff@duticai.twi.tudelft.nl Tue Jun 18 10:41:26 1996 Return-Path: Received: from duticai.twi.tudelft.nl (duticai.twi.tudelft.nl [130.161.159.1]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Tue, 18 Jun 1996 10:41:26 +0200 Received: from dutifp.twi.tudelft.nl (dutifp [130.161.159.118]) by duticai.twi.tudelft.nl (8.7.5/8.7.3) with ESMTP id KAA10161 for ; Tue, 18 Jun 1996 10:41:24 +0200 (MET DST) Received: (from graaff@localhost) by dutifp.twi.tudelft.nl (8.7.5/8.7.3) id KAA05102; Tue, 18 Jun 1996 10:41:16 +0200 (MET DST) Date: Tue, 18 Jun 1996 10:41:16 +0200 (MET DST) Message-Id: <199606180841.KAA05102@dutifp.twi.tudelft.nl> From: Hans de Graaff To: gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys) Subject: Re: Error when changing subscribed level In-Reply-To: References: Reply-To: J.J.deGraaff@TWI.TUDelft.NL (Hans de Graaff) X-Face: ,i^c$X{l+r}VV%(bl{^[ Could you `(load "gnus.el")' to load an uncompiled Gnus? That will > give me a much more detailed backtrace. Is this what you would like to see? If not, just give me some additional instructions on what to do. (I've loaded gnus.el by hand, and then did M-x gnus RET to start gnus.) Hans Signalling: (wrong-type-argument stringp nil) intern-soft(nil [0 0 0 0 0 0 nnfolder:a326 nlnet\.aio 0 gnu\.g++\.announce gnu\.gcc\.announce nnfolder:sectie nnml:mail\.gnus 0 0 0 0 0 nnml:mail\.doc-talk 0 nnfolder+archive:nil 0 0 0 0 0 0 0 dut\.isdngw nnml:mail\.chi\.chi97\.informational 0 nnfolder+archive:misc-mail 0 nnml:mail\.system-operation 0 0 nnml:mail\.chi\.fogg nnml:mail\.chi\.students 0 0 0 comp\.lang\.perl\.misc 0 0 0 0 0 0 0 0 ...]) (symbol-value (intern-soft group gnus-newsrc-hashtb))) (gnus-gethash group gnus-newsrc-hashtb)) (let ((entry ...) active info) (if entry (progn ... ...) (gnus-group-insert-group-line group ... nil ... nil)))) gnus-group-insert-group-line-info(nil) (let* ((buffer-read-only nil) (group ...) (entry ...) gnus-group-indentation) (and entry (not ...) (gnus-dribble-enter ...)) (setq gnus-group-indentation (gnus-group-group-indentation)) (gnus-delete-line) (gnus-group-insert-group-line-info group) (forward-line -1) (gnus-group-position-point))) gnus-group-update-group-line() (while (setq group (pop groups)) (gnus-group-remove-mark group) (gnus-message 6 "Changed level of %s from %d to %d" group (or ... gnus-level-killed) level) (gnus-group-change-level group level (or ... gnus-level-killed)) (gnus-group-update-group-line))) (let ((groups ...) group) (while (setq group ...) (gnus-group-remove-mark group) (gnus-message 6 "Changed level of %s from %d to %d" group ... level) (gnus-group-change-level group level ...) (gnus-group-update-group-line)))) (lambda (n level) "Set the level of the next N groups to LEVEL." (interactive (list current-prefix-arg ...)) (or (and ... ...) (error "Illegal level: %d" level)) (let (... group) (while ... ... ... ... ...)) (gnus-group-position-point))(nil 2) call-interactively(gnus-group-set-current-level) -- Hans de Graaff J.J.deGraaff@TWI.TUDelft.NL Delft University of Technology Department of Information Systems ---- Hans de Graaff ---