Function: gnus-enter-score-words-into-hashtb

gnus-enter-score-words-into-hashtb is a byte-compiled function defined in gnus-score.el.gz.

Signature

(gnus-enter-score-words-into-hashtb HASHTB)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-score.el.gz
(defun gnus-enter-score-words-into-hashtb (hashtb)
  ;; Find all the words in the buffer and enter them into
  ;; the hashtable.
  (let (word val)
    (goto-char (point-min))
    (with-syntax-table gnus-adaptive-word-syntax-table
      (while (re-search-forward "\\b\\w+\\b" nil t)
	(setq val
	      (gethash
	       (setq word (downcase (buffer-substring
				     (match-beginning 0) (match-end 0))))
	       hashtb))
	(puthash
	 word
         (append (get-text-property (line-end-position) 'articles) val)
	 hashtb)))
    ;; Make all the ignorable words ignored.
    (let ((ignored (append gnus-ignored-adaptive-words
			   (if gnus-adaptive-word-no-group-words
			       (message-tokenize-header
				(gnus-group-real-name gnus-newsgroup-name)
				"."))
			   gnus-default-ignored-adaptive-words)))
      (while ignored
	(remhash (pop ignored) hashtb)))))