Gnus development mailing list
 help / color / mirror / Atom feed
* [PB] Scores Take II
@ 2005-09-01  3:33 Xavier Maillard
  2005-09-03  8:36 ` Xavier Maillard
                   ` (2 more replies)
  0 siblings, 3 replies; 12+ messages in thread
From: Xavier Maillard @ 2005-09-01  3:33 UTC (permalink / 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.       \_/




^ permalink raw reply	[flat|nested] 12+ messages in thread

end of thread, other threads:[~2005-10-03 15:49 UTC | newest]

Thread overview: 12+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-09-01  3:33 [PB] Scores Take II Xavier Maillard
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

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).