From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/8586 Path: main.gmane.org!not-for-mail From: David Moore Newsgroups: gmane.emacs.gnus.general Subject: gnus-nocem.el patch Date: 04 Nov 1996 08:27:43 -0800 Sender: dmoore@sdnp5.ucsd.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035148732 13039 80.91.224.250 (20 Oct 2002 21:18:52 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:18:52 +0000 (UTC) Return-Path: Original-Received: (qmail 28424 invoked from smtpd); 4 Nov 1996 17:04:11 -0000 Original-Received: from ifi.uio.no (0@129.240.64.2) by deanna.miranova.com with SMTP; 4 Nov 1996 17:04:10 -0000 Original-Received: from UCSD.EDU (mailbox2.ucsd.edu [132.239.1.54]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Mon, 4 Nov 1996 17:28:47 +0100 Original-Received: from sdnp5.ucsd.edu (sdnp5.ucsd.edu [132.239.79.10]) by UCSD.EDU (8.8.2/8.6.9) with SMTP id IAA23550 for ; Mon, 4 Nov 1996 08:28:38 -0800 (PST) Original-Received: by sdnp5.ucsd.edu (SMI-8.6/SMI-SVR4) id IAA10486; Mon, 4 Nov 1996 08:27:44 -0800 Original-To: "(ding) GNUS Mailing List" Original-Lines: 41 X-Mailer: Red Gnus v0.53/XEmacs 19.14 Xref: main.gmane.org gmane.emacs.gnus.general:8586 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:8586 For those of you who woke up this morning to gnus crashing when scanning a nocem post with the "newsgroup" 43 listed, this patch will make things work. Additional cleanup of the routine should be done, but this will get things working again: *** gnus-nocem.el.orig Mon Nov 4 07:53:50 1996 --- gnus-nocem.el Mon Nov 4 08:18:17 1996 *************** *** 190,201 **** (narrow-to-region b (1+ (match-beginning 0))) (goto-char (point-min)) (while (search-forward "\t" nil t) (condition-case nil (setq group (let ((obarray gnus-active-hashtb)) (read buf))) (error nil)) ! (if (not (boundp group)) ;; Make sure all entries in the hashtb are bound. ! (set group nil) (when (gnus-gethash (symbol-name group) gnus-newsrc-hashtb) ;; Valid group. (beginning-of-line) --- 190,207 ---- (narrow-to-region b (1+ (match-beginning 0))) (goto-char (point-min)) (while (search-forward "\t" nil t) + ;;; FIX FIX should do the same group name checking and quoting + ;;; that gnus-active-to-gnus-format does. (condition-case nil (setq group (let ((obarray gnus-active-hashtb)) (read buf))) (error nil)) ! (if (not (and group ! (symbolp group) ! (boundp group))) ;; Make sure all entries in the hashtb are bound. ! ;; FIX FIX FIX why do this? ! (if (symbolp group) ! (set group nil)) (when (gnus-gethash (symbol-name group) gnus-newsrc-hashtb) ;; Valid group. (beginning-of-line)