Function: spam-stat-load

spam-stat-load is a byte-compiled function defined in spam-stat.el.gz.

Signature

(spam-stat-load)

Documentation

Read the spam-stat hash table from disk.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/spam-stat.el.gz
(defun spam-stat-load ()
  "Read the `spam-stat' hash table from disk."
  ;; TODO: maybe we should warn the user if spam-stat-dirty is t?
  (let ((coding-system-for-read spam-stat-coding-system))
    (cond (spam-stat-dirty (message "Spam stat not loaded: spam-stat-dirty t"))
          ((or (not (boundp 'spam-stat-last-saved-at))
               (null spam-stat-last-saved-at)
	       (not (time-equal-p
			   spam-stat-last-saved-at
                           (file-attribute-modification-time
			    (file-attributes spam-stat-file)))))
           (progn
             (load-file spam-stat-file)
             (setq spam-stat-dirty nil
                   spam-stat-last-saved-at
                   (file-attribute-modification-time
		    (file-attributes spam-stat-file)))))
          (t (message "Spam stat file not loaded: no change in disk.")))))