From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/58318 Path: main.gmane.org!not-for-mail From: Florian Weimer Newsgroups: gmane.emacs.gnus.general Subject: Corrupted score files with ... symbols Date: Mon, 23 Aug 2004 11:16:12 +0200 Sender: ding-owner@lists.math.uh.edu Message-ID: <87657agqoz.fsf@deneb.enyo.de> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1093252616 20411 80.91.224.253 (23 Aug 2004 09:16:56 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 23 Aug 2004 09:16:56 +0000 (UTC) Original-X-From: ding-owner+M6859@lists.math.uh.edu Mon Aug 23 11:16:47 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BzAwY-0000kV-00 for ; Mon, 23 Aug 2004 11:16:47 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1BzAwA-0002us-00; Mon, 23 Aug 2004 04:16:22 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1BzAw6-0002un-00 for ding@lists.math.uh.edu; Mon, 23 Aug 2004 04:16:18 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1BzAw5-0000VI-4N for ding@lists.math.uh.edu; Mon, 23 Aug 2004 04:16:17 -0500 Original-Received: from mail.enyo.de (mail.enyo.de [212.9.189.167]) by justine.libertine.org (Postfix) with ESMTP id 7ADE53A0218 for ; Mon, 23 Aug 2004 04:16:15 -0500 (CDT) Original-Received: (debugging) helo=deneb.enyo.de ip=212.9.189.171 name=deneb.enyo.de Original-Received: from deneb.enyo.de ([212.9.189.171]) by mail.enyo.de with esmtp id 1BzAw1-0005f8-CD for ding@gnus.org; Mon, 23 Aug 2004 11:16:13 +0200 Original-Received: from fw by deneb.enyo.de with local (Exim 4.34) id 1BzAw0-00010G-QP for ding@gnus.org; Mon, 23 Aug 2004 11:16:12 +0200 Original-To: ding@gnus.org Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:58318 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:58318 The patch below prevents Gnus from corrupting score files if `print-level' is ever set to a non-nil value. This kind of score file corruption results in the following error message: gnus-score-load-score-alist: Wrong type argument: listp, \.\.\. (The fix is to remove the `...' symbol from the score file. Some data is lost.) Okay to commit? 2004-08-23 Florian Weimer * gnus-score.el (gnus-score-save): Bind `print-length' to nil, to prevent truncation of scoring rules. * score-mode.el (gnus-score-pretty-print): Likewise. Index: gnus-score.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-score.el,v retrieving revision 7.12 diff -u -r7.12 gnus-score.el --- gnus-score.el 20 May 2004 08:02:39 -0000 7.12 +++ gnus-score.el 23 Aug 2004 09:11:47 -0000 @@ -1387,6 +1387,7 @@ (defun gnus-score-save () ;; Save all score information. (let ((cache gnus-score-cache) + (print-length nil) entry score file) (save-excursion (setq gnus-score-alist nil) Index: score-mode.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/score-mode.el,v retrieving revision 7.2 diff -u -r7.2 score-mode.el --- score-mode.el 20 May 2004 08:02:41 -0000 7.2 +++ score-mode.el 23 Aug 2004 09:11:55 -0000 @@ -93,7 +93,8 @@ (goto-char (point-min)) (let ((form (read (current-buffer)))) (erase-buffer) - (let ((emacs-lisp-mode-syntax-table score-mode-syntax-table)) + (let ((emacs-lisp-mode-syntax-table score-mode-syntax-table) + (print-length nil)) (pp form (current-buffer)))) (goto-char (point-min)))