From: Xavier Maillard <zedek@gnu-rox.org>
Subject: [PB] Scores Take II
Date: Thu, 01 Sep 2005 05:33:59 +0200 [thread overview]
Message-ID: <plop87u0h5jwbc.fsf@gnu-rox.org> (raw)
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. \_/
next reply other threads:[~2005-09-01 3:33 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-09-01 3:33 Xavier Maillard [this message]
2005-09-03 8:36 ` Xavier Maillard
2005-09-03 9:27 ` Matthieu Moy
2005-09-04 16:20 ` Xavier Maillard
2005-09-04 17:28 ` Xavier Maillard
2005-09-04 20:55 ` [SOLVED] (was: [PB] Scores Take II) Xavier Maillard
2005-10-03 15:49 ` [SOLVED+POSSIBLE REASON] " Adam Przepiórkowski
2005-09-03 8:56 ` [PB] Scores Take II Florian Weimer
2005-09-04 16:18 ` Xavier Maillard
2005-09-04 16:56 ` drkm
2005-09-04 17:27 ` Xavier Maillard
2005-09-04 19:05 ` drkm
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=plop87u0h5jwbc.fsf@gnu-rox.org \
--to=zedek@gnu-rox.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).