From f9b4bd0992e324b7d02717c4555d866f7408626f Mon Sep 17 00:00:00 2001 From: keiichi Date: Mon, 27 Dec 1999 04:20:30 +0000 Subject: [PATCH] (gnus-enter-score-words-into-hashtb): Ignore invalid character error. --- lisp/gnus-score.el | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 8e135c9..5d296db 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -2155,15 +2155,20 @@ SCORE is the score to add." (progn (set-syntax-table gnus-adaptive-word-syntax-table) (while (re-search-forward "\\b\\w+\\b" nil t) - (setq val - (gnus-gethash - (setq word (downcase (buffer-substring - (match-beginning 0) (match-end 0)))) + (condition-case err + (progn + (setq val + (gnus-gethash + (setq word (downcase + (buffer-substring + (match-beginning 0) (match-end 0)))) + hashtb)) + (gnus-sethash + word + (append (get-text-property (gnus-point-at-eol) 'articles) + val) hashtb)) - (gnus-sethash - word - (append (get-text-property (gnus-point-at-eol) 'articles) val) - hashtb))) + (error (gnus-error 1.1 "%s" err))))) (set-syntax-table syntab)) ;; Make all the ignorable words ignored. (let ((ignored (append gnus-ignored-adaptive-words -- 1.7.10.4