gnus-registry problem

[Hiroshi Fujishima <pooh@nature.tsukuba.ac.jp>]

[-- Attachment #1: Type: text/plain, Size: 308 bytes --]

I am useing spam.el with spam-stat backend and spam-log-to-registry's
value is t.  I am subscriber of semi-gnus-ja and meadow-users-jp list.
spam is posted both list and splited to differrent group.  I enter a
group and type M-d and exit from it and enter the other group and exit
it cause following error.


[-- Attachment #2: *Backtrace* --]
[-- Type: application/octet-stream, Size: 9608 bytes --]

Debugger entered--Lisp error: (error "This buffer has unknown words in it")
  signal(error ("This buffer has unknown words in it"))
  error("This buffer has unknown words in it")
  (if (not entry) (error "This buffer has unknown words in it") (spam-stat-set-good entry (+ ... count)) (spam-stat-set-bad entry (- ... count)) (spam-stat-set-score entry (spam-stat-compute-score entry)) (puthash word entry spam-stat))
  (let ((entry ...)) (if (not entry) (error "This buffer has unknown words in it") (spam-stat-set-good entry ...) (spam-stat-set-bad entry ...) (spam-stat-set-score entry ...) (puthash word entry spam-stat)))
  (lambda (word count) (let (...) (if ... ... ... ... ... ...)))("20650" 1)
  maphash((lambda (word count) (let (...) (if ... ... ... ... ... ...))) #<hash-table 'equal nil 246/325 0xc6f880>)
  spam-stat-buffer-change-to-non-spam()
  (if unregister (spam-stat-buffer-change-to-non-spam) (spam-stat-buffer-is-spam))
  (save-current-buffer (set-buffer temp-buffer) (insert article-string) (if unregister (spam-stat-buffer-change-to-non-spam) (spam-stat-buffer-is-spam)))
  (with-current-buffer temp-buffer (insert article-string) (if unregister (spam-stat-buffer-change-to-non-spam) (spam-stat-buffer-is-spam)))
  (unwind-protect (with-current-buffer temp-buffer (insert article-string) (if unregister ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ...) (and ... ...)))
  (with-temp-buffer (insert article-string) (if unregister (spam-stat-buffer-change-to-non-spam) (spam-stat-buffer-is-spam)))
  (let ((article-string ...)) (with-temp-buffer (insert article-string) (if unregister ... ...)))
  (while --dolist-temp--10777 (setq article (car --dolist-temp--10777)) (let (...) (with-temp-buffer ... ...)) (setq --dolist-temp--10777 (cdr --dolist-temp--10777)))
  (let ((--dolist-temp--10777 articles) article) (while --dolist-temp--10777 (setq article ...) (let ... ...) (setq --dolist-temp--10777 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... article) (while --dolist-temp--10777 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... article) (while --dolist-temp--10777 ... ... ...) nil))
  (dolist (article articles) (let (...) (with-temp-buffer ... ...)))
  spam-stat-register-spam-routine((584) t)
  spam-stat-unregister-spam-routine((584))
  funcall(spam-stat-unregister-spam-routine (584))
  (progn (setq articles (or specific-articles ...)) (gnus-message 5 "%s %d %s articles as %s using backend %s" (if unregister "Unregistering" "Registering") (length articles) (if specific-articles "specific" "") (symbol-name classification) (symbol-name check)) (funcall run-function articles) (dolist (article articles) (funcall log-function ... ... classification check gnus-newsgroup-name)))
  (if run-function (progn (setq articles ...) (gnus-message 5 "%s %d %s articles as %s using backend %s" ... ... ... ... ...) (funcall run-function articles) (dolist ... ...)))
  (when run-function (setq articles (or specific-articles ...)) (gnus-message 5 "%s %d %s articles as %s using backend %s" (if unregister "Unregistering" "Registering") (length articles) (if specific-articles "specific" "") (symbol-name classification) (symbol-name check)) (funcall run-function articles) (dolist (article articles) (funcall log-function ... ... classification check gnus-newsgroup-name)))
  (let* ((register-function ...) (unregister-function ...) (run-function ...) (log-function ...) article articles) (when run-function (setq articles ...) (gnus-message 5 "%s %d %s articles as %s using backend %s" ... ... ... ... ...) (funcall run-function articles) (dolist ... ...)))
  (progn (let* (... ... ... ... article articles) (when run-function ... ... ... ...)))
  (if (and (spam-classification-valid-p classification) (spam-registration-check-valid-p check)) (progn (let* ... ...)))
  (when (and (spam-classification-valid-p classification) (spam-registration-check-valid-p check)) (let* (... ... ... ... article articles) (when run-function ... ... ... ...)))
  spam-register-routine(spam spam-use-stat t (584))
  (progn (spam-register-routine classification check t unregister-list))
  (if (and unregister-list (symbol-value check)) (progn (spam-register-routine classification check t unregister-list)))
  (when (and unregister-list (symbol-value check)) (spam-register-routine classification check t unregister-list))
  (let ((processor ...) (processor-classification ...) (check ...) unregister-list) (dolist (article changed-articles) (let ... ...)) (when (and unregister-list ...) (spam-register-routine classification check t unregister-list)))
  (while --dolist-temp--10765 (setq processor-param (car --dolist-temp--10765)) (let (... ... ... unregister-list) (dolist ... ...) (when ... ...)) (setq --dolist-temp--10765 (cdr --dolist-temp--10765)))
  (let ((--dolist-temp--10765 spam-list-of-processors) processor-param) (while --dolist-temp--10765 (setq processor-param ...) (let ... ... ...) (setq --dolist-temp--10765 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... processor-param) (while --dolist-temp--10765 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... processor-param) (while --dolist-temp--10765 ... ... ...) nil))
  (dolist (processor-param spam-list-of-processors) (let (... ... ... unregister-list) (dolist ... ...) (when ... ...)))
  (let* ((old-articles ...) (new-articles ...) (changed-articles ...)) (dolist (processor-param spam-list-of-processors) (let ... ... ...)))
  (while --dolist-temp--10763 (setq classification (car --dolist-temp--10763)) (let* (... ... ...) (dolist ... ...)) (setq --dolist-temp--10763 (cdr --dolist-temp--10763)))
  (let ((--dolist-temp--10763 ...) classification) (while --dolist-temp--10763 (setq classification ...) (let* ... ...) (setq --dolist-temp--10763 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... classification) (while --dolist-temp--10763 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... classification) (while --dolist-temp--10763 ... ... ...) nil))
  (dolist (classification (quote ...)) (let* (... ... ...) (dolist ... ...)))
  (if gnus-group-is-exiting-without-update-p nil (gnus-message 6 "Exiting summary buffer and applying spam rules") (dolist (classification ...) (let* ... ...)) (dolist (processor-param spam-list-of-processors) (let ... ...)) (if spam-move-spam-nonspam-groups-only (when ... ...) (gnus-message 5 "Marking spam as expired and moving it to %s" gnus-newsgroup-name) (spam-mark-spam-as-expired-and-move-routine ...)) (gnus-message 5 "Marking spam as expired without moving it") (spam-mark-spam-as-expired-and-move-routine nil) (when (or ... ... spam-process-ham-in-nonham-groups) (dolist ... ...)) (when (spam-group-ham-processor-copy-p gnus-newsgroup-name) (gnus-message 5 "Copying ham") (spam-ham-copy-routine ...)) (when (spam-group-spam-contents-p gnus-newsgroup-name) (gnus-message 5 "Moving ham messages from spam group") (spam-ham-move-routine ...)))
  (unless gnus-group-is-exiting-without-update-p (gnus-message 6 "Exiting summary buffer and applying spam rules") (dolist (classification ...) (let* ... ...)) (dolist (processor-param spam-list-of-processors) (let ... ...)) (if spam-move-spam-nonspam-groups-only (when ... ...) (gnus-message 5 "Marking spam as expired and moving it to %s" gnus-newsgroup-name) (spam-mark-spam-as-expired-and-move-routine ...)) (gnus-message 5 "Marking spam as expired without moving it") (spam-mark-spam-as-expired-and-move-routine nil) (when (or ... ... spam-process-ham-in-nonham-groups) (dolist ... ...)) (when (spam-group-ham-processor-copy-p gnus-newsgroup-name) (gnus-message 5 "Copying ham") (spam-ham-copy-routine ...)) (when (spam-group-spam-contents-p gnus-newsgroup-name) (gnus-message 5 "Moving ham messages from spam group") (spam-ham-move-routine ...)))
  spam-summary-prepare-exit()
  run-hooks(gnus-summary-prepare-exit-hook)
  apply(run-hooks gnus-summary-prepare-exit-hook)
  (save-current-buffer (apply (quote run-hooks) funcs))
  gnus-run-hooks(gnus-summary-prepare-exit-hook)
  (let* ((group gnus-newsgroup-name) (quit-config ...) (gnus-group-is-exiting-p t) (mode major-mode) (group-point nil) (buf ...)) (unless quit-config (when gnus-newsgroup-adaptive ...) (when gnus-use-scoring ...)) (gnus-run-hooks (quote gnus-summary-prepare-exit-hook)) (unless gnus-single-article-buffer (gnus-kill-buffer gnus-original-article-buffer) (setq gnus-article-current nil)) (when gnus-use-cache (gnus-cache-possibly-remove-articles) (gnus-cache-save-buffers)) (gnus-async-prefetch-remove-group group) (when gnus-suppress-duplicates (gnus-dup-enter-articles)) (when gnus-use-trees (gnus-tree-close group)) (when gnus-use-cache (gnus-cache-write-active)) (nnmail-purge-split-history (gnus-group-real-name group)) (unless quit-config (gnus-run-hooks ...) (gnus-summary-update-info)) (gnus-close-group group) (set-buffer gnus-group-buffer) (unless quit-config (gnus-group-jump-to-group group)) (gnus-run-hooks (quote gnus-summary-exit-hook)) (unless (or quit-config ...) (gnus-group-next-unread-group 1)) (setq group-point (point)) (if temporary nil (unless gnus-single-article-buffer ... ... ...) (set-buffer buf) (if ... ... ... ... ... ... ... ... ...) (setq gnus-current-select-method gnus-select-method) (if leave-hidden ... ...) (if ... ... ...) (unless quit-config ...)))
  gnus-summary-exit()
  call-interactively(gnus-summary-exit)

[-- Attachment #3: Type: text/plain, Size: 23 bytes --]


-- 
Hiroshi Fujishima