From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/60859 Path: news.gmane.org!not-for-mail From: Xavier Maillard Newsgroups: gmane.emacs.gnus.general Subject: [PB] Scores Take II Date: Thu, 01 Sep 2005 05:33:59 +0200 Organization: GNU Rox ! Message-ID: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1125546029 9733 80.91.229.2 (1 Sep 2005 03:40:29 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 1 Sep 2005 03:40:29 +0000 (UTC) Original-X-From: ding-owner+m9391=ding+2daccount=gmane.org@lists.math.uh.edu Thu Sep 01 05:40:25 2005 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EAfvR-00020v-PR for ding-account@gmane.org; Thu, 01 Sep 2005 05:39:42 +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 1EAfvQ-0001Zu-02 for ding-account@gmane.org; Wed, 31 Aug 2005 22:39:40 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1EAfpu-0001ZU-00 for ding@lists.math.uh.edu; Wed, 31 Aug 2005 22:33:58 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by util2.math.uh.edu with esmtp (Exim 4.30) id 1EAfpt-0000nk-7N for ding@lists.math.uh.edu; Wed, 31 Aug 2005 22:33:57 -0500 Original-Received: from rms.gnu-rox.org ([62.212.121.152] helo=smtp.gnu-rox.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1EAfpr-0006uA-00 for ; Thu, 01 Sep 2005 05:33:56 +0200 Original-Received: from totoz.gnu-rox.org (unknown [10.0.0.2]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by smtp.gnu-rox.org (Postfix) with ESMTP id 2736917403 for ; Fri, 3 Jan 1997 21:18:29 +0100 (CET) Original-To: ding@gnus.org X-Face: "qG{UC8GPzro#PZ!Jgisuj0]=k10 f#d596CJMPGOGwB'j\^JR2g0']N%L:ylC`?.l8u#JuS#CygUA}avHHVJJ!#ub7CxX#u]g}?z,hQ;c q%v]"[$!BfS X-Attribution: zeDek X-Accept-Language: fr-fr, en-en, en-fr Mail-Followup-To: ding@gnus.org Original-Lines: 53 User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) X-Spam-Score: -4.9 (----) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:60859 Archived-At: Hello, I still do not have clue to solve this. If I want to read any group, I have to disable gnus-scoring. If not done, this is what I get (bigger backtrace): Debugger entered--Lisp error: (wrong-type-argument symbolp 5) symbol-name(5) (aref (symbol-name type) 0) (let* ((kill ...) (type ...) (score ...) (date ...) (extra ...) (found nil) (mt ...) (case-fold-search ...) (dmt ...) (match ...) (search-func ...)) (when extra (setq match ... search-func ...)) (cond (... ... ...) (... ... ...) (... ... ... ...) (t ... ... ... ...))) (while (cdr entries) (let* (... ... ... ... ... ... ... ... ... ... ...) (when extra ...) (cond ... ... ... ...))) (while score-list (setq alist (pop score-list) entries (assoc header alist)) (while (cdr entries) (let* ... ... ...))) (let ((gnus-score-index ...) (simplify ...) alike last this art entries alist articles fuzzies arts words kill) (setq gnus-scores-articles (if ... gnus-scores-articles ...) articles gnus-scores-articles) (erase-buffer) (while (setq art ...) (setq this ...) (if ... ...) (if simplify ...) (if ... ... ... ...)) (when last (insert last 10) (put-text-property ... ... ... alike)) (while score-list (setq alist ... entries ...) (while ... ...)) (when fuzzies (gnus-simplify-buffer-fuzzy) (while ... ...)) (when words (let ... ... ...)) nil) gnus-score-string((((touched nil) ("from" ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) "from" 732190 732180 nil) funcall(gnus-score-string (((touched nil) ("from" ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) "from" 732190 732180 nil) (setq new (funcall (nth 2 entry) scores header now expire trace)) (if (setq new (funcall ... scores header now expire trace)) (progn (push new news))) (when (setq new (funcall ... scores header now expire trace)) (push new news)) (progn (when (setq new ...) (push new news))) (if (< 0 (apply ... ...)) (progn (when ... ...))) (when (< 0 (apply ... ...)) (when (setq new ...) (push new news))) (while entries (setq entry (pop entries) header (nth 0 entry) gnus-score-index (nth 1 ...)) (when (< 0 ...) (when ... ...))) (save-excursion (set-buffer (gnus-get-buffer-create "*Headers*")) (buffer-disable-undo) (when (gnus-buffer-live-p gnus-summary-buffer) (message-clone-locals gnus-summary-buffer)) (setq gnus-current-score-file current-score-file) (when gnus-orphan-score (setq gnus-score-index ...) (gnus-score-orphans gnus-orphan-score)) (while entries (setq entry ... header ... gnus-score-index ...) (when ... ...)) (when (gnus-buffer-live-p gnus-summary-buffer) (let ... ...)) (gnus-kill-buffer (current-buffer))) (let* ((entries gnus-header-index) (now ...) (expire ...) (headers gnus-newsgroup-headers) (current-score-file gnus-current-score-file) entry header new) (gnus-message 7 "Scoring...") (while (setq header ...) (unless ... ...)) (save-excursion (set-buffer ...) (buffer-disable-undo) (when ... ...) (setq gnus-current-score-file current-score-file) (when gnus-orphan-score ... ...) (while entries ... ...) (when ... ...) (gnus-kill-buffer ...)) (while gnus-scores-articles (when ... ...) (setq gnus-scores-articles ...)) (let (score) (while ... ...)) (gnus-message 7 "Scoring...done")) (progn (let* (... ... ... ... ... entry header new) (gnus-message 7 "Scoring...") (while ... ...) (save-excursion ... ... ... ... ... ... ... ...) (while gnus-scores-articles ... ...) (let ... ...) (gnus-message 7 "Scoring...done"))) (if (and gnus-summary-default-score scores) (progn (let* ... ... ... ... ... ... ...))) (when (and gnus-summary-default-score scores) (let* (... ... ... ... ... entry header new) (gnus-message 7 "Scoring...") (while ... ...) (save-excursion ... ... ... ... ... ... ... ...) (while gnus-scores-articles ... ...) (let ... ...) (gnus-message 7 "Scoring...done"))) (while news (setq scores news news nil) (when (and gnus-summary-default-score scores) (let* ... ... ... ... ... ... ...))) (let (scores news) (setq gnus-orphan-score nil gnus-scores-articles nil gnus-scores-exclude-files nil scores (gnus-score-load-files score-files)) (setq news scores) (while news (setq scores news news nil) (when ... ...))) gnus-score-headers((((... ...)) "/home/zedek/.gnus.d/etc/scores/nnimap+gnu-rox.org:INBOX.mail.2005.08.SCORE") nil) (progn (gnus-score-headers score-files trace)) (if score-files (progn (gnus-score-headers score-files trace))) (when score-files (gnus-score-headers score-files trace)) (let ((score-files ...)) (when score-files (gnus-score-headers score-files trace))) gnus-possibly-score-headers() gnus-summary-read-group-1("nnimap+gnu-rox.org:INBOX.mail.2005.08" nil t nil nil nil) gnus-summary-read-group("nnimap+gnu-rox.org:INBOX.mail.2005.08" nil t nil nil nil nil) gnus-group-read-group(nil t) gnus-group-select-group(nil) gnus-topic-select-group(nil) call-interactively(gnus-topic-select-group) I no longer have score files just to be sure they are not the source problem. Regards. -- ,--. Xavier Maillard, Reims, France ,= ,-_-. =. / ,- ) http://www.emacsfr.org/ ((_/)o o(\_)) \ `-' `-'(. .)`-' `-. Debian, a variant of the GNU operating system. \_/