projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Query the user for whether to store the credentials.
[gnus]
/
lisp
/
spam-stat.el
diff --git
a/lisp/spam-stat.el
b/lisp/spam-stat.el
index
99d69f3
..
d6b20df
100644
(file)
--- a/
lisp/spam-stat.el
+++ b/
lisp/spam-stat.el
@@
-1,6
+1,7
@@
;;; spam-stat.el --- detecting spam based on statistics
;;; spam-stat.el --- detecting spam based on statistics
-;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
+;; 2010 Free Software Foundation, Inc.
;; Author: Alex Schroeder <alex@gnu.org>
;; Keywords: network
;; Author: Alex Schroeder <alex@gnu.org>
;; Keywords: network
@@
-551,12
+552,14
@@
check the variable `spam-stat-score-data'."
;; Testing
(defun spam-stat-strip-xref ()
;; Testing
(defun spam-stat-strip-xref ()
- "Strip the
the
Xref header."
+ "Strip the Xref header."
(save-restriction
(mail-narrow-to-head)
(when (re-search-forward "^Xref:.*\n" nil t)
(delete-region (match-beginning 0) (match-end 0)))))
(save-restriction
(mail-narrow-to-head)
(when (re-search-forward "^Xref:.*\n" nil t)
(delete-region (match-beginning 0) (match-end 0)))))
+(autoload 'time-to-number-of-days "time-date")
+
(defun spam-stat-process-directory (dir func)
"Process all the regular files in directory DIR using function FUNC."
(let* ((files (directory-files dir t "^[^.]"))
(defun spam-stat-process-directory (dir func)
"Process all the regular files in directory DIR using function FUNC."
(let* ((files (directory-files dir t "^[^.]"))
@@
-671,5
+674,4
@@
COUNT defaults to 5"
(provide 'spam-stat)
(provide 'spam-stat)
-;; arch-tag: ff1d2200-8ddb-42fb-bb7b-1b5e20448554
;;; spam-stat.el ends here
;;; spam-stat.el ends here