projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(message-reply): Take an optional switch-buffer parameter so that Gnus window confs...
[gnus]
/
lisp
/
spam-stat.el
diff --git
a/lisp/spam-stat.el
b/lisp/spam-stat.el
index
99d69f3
..
b56d0c4
100644
(file)
--- a/
lisp/spam-stat.el
+++ b/
lisp/spam-stat.el
@@
-1,6
+1,6
@@
;;; 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
-2011
Free Software Foundation, Inc.
;; Author: Alex Schroeder <alex@gnu.org>
;; Keywords: network
;; Author: Alex Schroeder <alex@gnu.org>
;; Keywords: network
@@
-551,12
+551,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
+673,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