From: keiichi <keiichi>
Date: Mon, 27 Dec 1999 04:20:30 +0000 (+0000)
Subject: (gnus-enter-score-words-into-hashtb): Ignore invalid character error.
X-Git-Tag: nana-gnus-6_13_12~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f9b4bd0992e324b7d02717c4555d866f7408626f;p=elisp%2Fgnus.git-

(gnus-enter-score-words-into-hashtb): Ignore invalid character error.
---

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