Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : spam-stat.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:09 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/spam-stat.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`spam-stat.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require mail-parse custom-declare-group spam-stat nil "Statistical spam detection for Emacs.\nUse the functions to build a dictionary of words and their statistical\ndistribution in spam and non-spam mails.  Then use a function to determine\nwhether a buffer contains spam or not." :version "22.1" :group gnus] 8)
#@102 File used to save and load the dictionary.
See `spam-stat-to-hash-table' for the format of the file.
(custom-declare-variable 'spam-stat-file '"~/.spam-stat.el" '(#$ . 995) :type 'file :group 'spam-stat)
#@110 Whether spam-stat should install its hooks in Gnus.
This is set to nil if you use spam-stat through spam.el.
(custom-declare-variable 'spam-stat-install-hooks 't '(#$ . 1206) :type 'boolean :group 'spam-stat)
#@89 The score to use for unknown words.
Also used for words that don't appear often enough.
(custom-declare-variable 'spam-stat-unknown-word-score '0.2 '(#$ . 1421) :type 'number :group 'spam-stat)
#@50 Only words shorter than this will be considered.
(custom-declare-variable 'spam-stat-max-word-length '15 '(#$ . 1621) :type 'integer :group 'spam-stat)
#@102 Only the beginning of buffers will be analyzed.
This variable says how many characters this will be.
(custom-declare-variable 'spam-stat-max-buffer-length '10240 '(#$ . 1780) :type 'integer :group 'spam-stat)
#@167 Name of the group where spam should be stored.
If `spam-stat-split-fancy' is used in fancy splitting rules.  Has
no effect when spam-stat is invoked through spam.el.
(custom-declare-variable 'spam-stat-split-fancy-spam-group '"mail.spam" '(#$ . 1996) :type 'string :group 'spam-stat)
#@48 Spam score threshold in spam-stat-split-fancy.
(custom-declare-variable 'spam-stat-split-fancy-spam-threshold '0.9 '(#$ . 2286) :type 'number :group 'spam-stat)
#@47 Hook applied to each message before analysis.
(custom-declare-variable 'spam-stat-washing-hook 'nil '(#$ . 2453) :type 'hook :group 'spam-stat)
#@688 List of additional scoring functions.
Called  one by one on the buffer.

If all of these functions return non-nil answers, these numerical
answers are added to the computed spam stat score on the buffer.  If
you defun such functions, make sure they don't return the buffer in a
narrowed state or such: use, for example, `save-excursion'.  Each of
your functions is also passed the initial spam-stat score which might
aid in your scoring.

Also be careful when defining such functions.  If they take a long
time, they will slow down your mail splitting.  Thus, if the buffer is
large, don't forget to use smaller regions, by wrapping your work in,
say, `with-spam-stat-max-buffer-size'.
(custom-declare-variable 'spam-stat-score-buffer-user-functions 'nil '(#$ . 2604) :type '(repeat sexp) :group 'spam-stat)
#@331 Max. age of files to be processed in directory, in days.
When using `spam-stat-process-spam-directory' or
`spam-stat-process-non-spam-directory', only files that have
been touched in this many days will be considered.  Without
this filter, re-training spam-stat with several thousand messages
will start to take a very long time.
(custom-declare-variable 'spam-stat-process-directory-age '90 '(#$ . 3420) :type 'number :group 'spam-stat)
#@57 Time stamp of last change of spam-stat-file on this run
(defvar spam-stat-last-saved-at nil (#$ . 3864))
#@129 Syntax table used when processing mails for statistical analysis.
The important part is which characters are word constituents.
(defvar spam-stat-syntax-table (byte-code "\302!\303\304\305	#\210\303\306\305	#\210\303\307\305	#\210\303\310\305	#\210\303\311\305	#\210\303\312\305	#\210	)\207" [text-mode-syntax-table table copy-syntax-table modify-syntax-entry 45 "w" 95 46 33 63 43] 4) (#$ . 3976))
#@46 Whether the spam-stat database needs saving.
(defvar spam-stat-dirty nil (#$ . 4383))
#@78 Buffer to use for scoring while splitting.
This is set by hooking into Gnus.
(defvar spam-stat-buffer nil (#$ . 4475))
#@33 Name of the `spam-stat-buffer'.
(defvar spam-stat-buffer-name " *spam stat buffer*" (#$ . 4600))
#@42 Coding system used for `spam-stat-file'.
(defvar spam-stat-coding-system (byte-code "\300\301!\203�\301\207\302\207" [mm-coding-system-p emacs-mule raw-text] 2) (#$ . 4703))
#@59 Store a copy of the current buffer in `spam-stat-buffer'.
(defalias 'spam-stat-store-current-buffer #[nil "pr\303	!q\210\304 \210\305!\210p\211*\207" [buf spam-stat-buffer-name spam-stat-buffer get-buffer-create erase-buffer insert-buffer-substring] 2 (#$ . 4884)])
#@93 Store a copy of the current article in `spam-stat-buffer'.
This uses `gnus-article-buffer'.
(defalias 'spam-stat-store-gnus-article-buffer #[nil "rq\210\301 )\207" [gnus-original-article-buffer spam-stat-store-current-buffer] 1 (#$ . 5159)])
#@269 Hash table used to store the statistics.
Use `spam-stat-load' to load the file.
Every word is used as a key in this table.  The value is a vector.
Use `spam-stat-ngood', `spam-stat-nbad', `spam-stat-good',
`spam-stat-bad', and `spam-stat-score' to access this vector.
(defvar spam-stat (make-hash-table :test 'equal) (#$ . 5409))
#@45 The number of good mails in the dictionary.
(defvar spam-stat-ngood 0 (#$ . 5745))
#@44 The number of bad mails in the dictionary.
(defvar spam-stat-nbad 0 (#$ . 5834))
#@59 A holder for condition-case errors while scoring buffers.
(defvar spam-stat-error-holder nil (#$ . 5921))
#@61 Return the number of times this word belongs to good mails.
(defalias 'spam-stat-good #[(entry) "\301H\207" [entry 0] 2 (#$ . 6033)])
(put 'spam-stat-good 'byte-optimizer 'byte-compile-inline-expand)
#@60 Return the number of times this word belongs to bad mails.
(defalias 'spam-stat-bad #[(entry) "\301H\207" [entry 1] 2 (#$ . 6240)])
(put 'spam-stat-bad 'byte-optimizer 'byte-compile-inline-expand)
#@29 Set the score of this word.
(defalias 'spam-stat-score #[(entry) "\203�\302H\207	\207" [entry spam-stat-unknown-word-score 2] 2 (#$ . 6444)])
(put 'spam-stat-score 'byte-optimizer 'byte-compile-inline-expand)
#@58 Set the number of times this word belongs to good mails.
(defalias 'spam-stat-set-good #[(entry value) "\302	I\207" [entry value 0] 3 (#$ . 6662)])
(put 'spam-stat-set-good 'byte-optimizer 'byte-compile-inline-expand)
#@57 Set the number of times this word belongs to bad mails.
(defalias 'spam-stat-set-bad #[(entry value) "\302	I\207" [entry value 1] 3 (#$ . 6887)])
(put 'spam-stat-set-bad 'byte-optimizer 'byte-compile-inline-expand)
#@29 Set the score of this word.
(defalias 'spam-stat-set-score #[(entry value) "\302	I\207" [entry value 2] 3 (#$ . 7109)])
(put 'spam-stat-set-score 'byte-optimizer 'byte-compile-inline-expand)
#@44 Return a vector with the given properties.
(defalias 'spam-stat-make-entry #[(good bad) "\304	\305#\211\306\n!\211\307I\210*\n)\207" [good bad entry value vector nil spam-stat-compute-score 2] 5 (#$ . 7307)])
(put 'spam-stat-make-entry 'byte-optimizer 'byte-compile-inline-expand)
#@50 Compute the score of this word.  1.0 means spam.
(defalias 'spam-stat-compute-score #[(entry) "\305\211\306H)_\307\211\310H)!	\n\\\311W\203�\312\202A�\306U\203(�\313\202A�\f\306U\2032�\314\202A�\315\316\n\f\245	\245\n\f\245\\\245^]*\207" [entry g b spam-stat-ngood spam-stat-nbad 2.0 0 float 1 5 0.2 0.99 0.01 0.01 0.99] 7 (#$ . 7599)])
#@72 Narrow the buffer down to the first 4k characters, then evaluate BODY.
(defalias 'with-spam-stat-max-buffer-size '(macro . #[(&rest body) "\301\302BB\207" [body save-restriction (when (> (- (point-max) (point-min)) spam-stat-max-buffer-length) (narrow-to-region (point-min) (+ (point-min) spam-stat-max-buffer-length)))] 3 (#$ . 7951)]))
#@71 Return a hash table of words and number of occurrences in the buffer.
(defalias 'spam-stat-buffer-words #[nil "\306\307!\210\214deZV\203�ee\\}\210\310 p\311\216\312!\210eb\210\313\314\315\"\316\211\317\320\316\321#\203Q�\322\323!\324
\323#T
GW\203+�\325
\f#\210\202+�.\207" [spam-stat-max-buffer-length #1=#:buffer #2=#:table spam-stat-syntax-table count word run-hooks spam-stat-washing-hook syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table make-hash-table :test equal nil re-search-forward "\\w+" t match-string-no-properties 0 gethash puthash result spam-stat-max-word-length] 4 (#$ . 8296)])
#@48 Consider current buffer to be a new spam mail.
(defalias 'spam-stat-buffer-is-spam #[nil "T\302\303\304 \"\210\305\211\207" [spam-stat-nbad spam-stat-dirty maphash #[(word count) "\306	\"\211\203�\n\n\211\307H)\\\211\307\fI\210*\2028�\310\311
\312#\211\313\n!\211\314\fI\210*\n+\n\313\n!\211\314\fI\210*\315\n	#)\207" [word spam-stat entry count value bad gethash 1 0 vector nil spam-stat-compute-score 2 puthash good] 6] spam-stat-buffer-words t] 3 (#$ . 8972)])
#@52 Consider current buffer to be a new non-spam mail.
(defalias 'spam-stat-buffer-is-non-spam #[nil "T\302\303\304 \"\210\305\211\207" [spam-stat-ngood spam-stat-dirty maphash #[(word count) "\306	\"\211\203�\n\n\211\307H)\\\211\307\fI\210*\2028�\307
\310

\311#\211\312\n!\211\313\fI\210*\n+\n\312\n!\211\313\fI\210*\314\n	#)\207" [word spam-stat entry count value bad gethash 0 vector nil spam-stat-compute-score 2 puthash good] 6] spam-stat-buffer-words t] 3 (#$ . 9465)])
(autoload 'gnus-message "gnus-util")
#@57 Consider current buffer no longer normal mail but spam.
(defalias 'spam-stat-buffer-change-to-spam #[nil "T	S\303\304\305 \"\210\306\211\207" [spam-stat-nbad spam-stat-ngood spam-stat-dirty maphash #[(word count) "\305	\"\211\204�\306\307\310\"\202C�\n\211\211\311H)Z\211\311\fI\210*\n\211\211\312H)\\\211\312\fI\210*\n\313\n!\211\314\fI\210*\315\n	#)\207" [word spam-stat entry count value gethash gnus-message 8 "This buffer has unknown words in it" 0 1 spam-stat-compute-score 2 puthash] 5] spam-stat-buffer-words t] 3 (#$ . 10002)])
#@57 Consider current buffer no longer spam but normal mail.
(defalias 'spam-stat-buffer-change-to-non-spam #[nil "S	T\303\304\305 \"\210\306\211\207" [spam-stat-nbad spam-stat-ngood spam-stat-dirty maphash #[(word count) "\305	\"\211\204�\306\307\310\"\202C�\n\211\211\311H)\\\211\311\fI\210*\n\211\211\312H)Z\211\312\fI\210*\n\313\n!\211\314\fI\210*\315\n	#)\207" [word spam-stat entry count value gethash gnus-message 8 "This buffer has unknown words in it" 0 1 spam-stat-compute-score 2 puthash] 5] spam-stat-buffer-words t] 3 (#$ . 10563)])
#@92 Save the `spam-stat' hash table as lisp file.
With a prefix argument save unconditionally.
(defalias 'spam-stat-save #[(&optional force) "\204�	\205U�\n\f\306\307\310!!\311\216r
q\210p\312\313\314\n\"c\210\313\315#c\210\316\317\"\210\320c\210+r
q\210\321\322\211\322\312%\210-\323\324\f\"\210\322\325\326\f!8\211\207" [force spam-stat-dirty spam-stat-coding-system coding-system-for-write spam-stat-file #1=#:temp-buffer get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) 0 format ";-*- coding: %s; -*-\n" "(setq spam-stat-ngood %d spam-stat-nbad %d\nspam-stat (spam-stat-to-hash-table '(" maphash #[(word entry) "\302	\211\303H)	\211\304H)E!\207" [word entry prin1 0 1] 6] ")))" write-region nil message "Saved %s." 5 file-attributes #2=#:temp-file font-lock-maximum-size standard-output spam-stat-ngood spam-stat-nbad spam-stat spam-stat-last-saved-at] 6 (#$ . 11128) "P"])
#@44 Read the `spam-stat' hash table from disk.
(defalias 'spam-stat-load #[nil "\n\203\f�\305\306!\2023�\307\303!\203 �\203 �\310\311\f!8\232\2040�\312\f!\210\313\310\311\f!8\211\2023�\305\314!)\207" [spam-stat-coding-system coding-system-for-read spam-stat-dirty spam-stat-last-saved-at spam-stat-file message "Spam stat not loaded: spam-stat-dirty t" boundp 5 file-attributes load-file nil "Spam stat file not loaded: no change in disk.."] 4 (#$ . 12121)])
#@370 Turn list ENTRIES into a hash table and store as `spam-stat'.
Every element in ENTRIES has the form (WORD GOOD BAD) where WORD is
the word string, NGOOD is the number of good mails it has appeared in,
NBAD is the number of bad mails it has appeared in, GOOD is the number
of times it appeared in good mails, and BAD is the number of times it
has appeared in bad mails.
(defalias 'spam-stat-to-hash-table #[(entries) "\302\303G\304\305$\306\307\"\210	)\207" [entries table make-hash-table :size :test equal mapc #[(l) "\306@A@\3078\310\n	\311#\211\312!\211\307\fI\210*+
#\207" [l bad good entry value table puthash 2 vector nil spam-stat-compute-score] 7]] 5 (#$ . 12589)])
#@76 Reset `spam-stat' to an empty hash-table.
This deletes all the statistics.
(defalias 'spam-stat-reset #[nil "\304\305\306\"\307\211\310\211\207" [spam-stat spam-stat-ngood spam-stat-nbad spam-stat-dirty make-hash-table :test equal 0 t] 4 (#$ . 13281) nil])
#@60 Raw data used in the last run of `spam-stat-score-buffer'.
(defvar spam-stat-score-data nil (#$ . 13548))
#@105 Return score for WORD.
The default score for unknown words is stored in
`spam-stat-unknown-word-score'.
(defalias 'spam-stat-score-word #[(word) "\304	\"\211\203�\n\305H\202�)\207" [word spam-stat entry spam-stat-unknown-word-score gethash 2] 4 (#$ . 13661)])
(put 'spam-stat-score-word 'byte-optimizer 'byte-compile-inline-expand)
#@245 Process current buffer, return the 15 most conspicuous words.
These are the words whose spam-stat differs the most from 0.5.
The list returned contains elements of the form (WORD SCORE DIFF),
where DIFF is the difference between SCORE and 0.5.
(defalias 'spam-stat-buffer-words-with-scores #[nil "\303\211\211\304\305\306 \"\210\307\n\310\"\311\n\233\303\241\210\n+\207" [score word result nil maphash #[(word ignore) "\306	\"\211\203�\n\307H\202�*\f\310\f\311Z!E
B\211\207" [word spam-stat entry spam-stat-unknown-word-score score result gethash 2 abs 0.5] 5] spam-stat-buffer-words sort #[(a b) "\3028\302	8W\207" [b a 2] 3] 14] 3 (#$ . 14005)])
#@110 Return a score describing the spam-probability for this buffer.
Add user supplied modifications if supplied.
(defalias 'spam-stat-score-buffer #[nil "\306 \307\310\"\311\312	\"\211\211\311\312\307\313	\"\"\\\245\314\315\316\217\211\203(�\f\\\202)�t\2033�\317\320
\"\210
-\207" [spam-stat-score-data probs prod score0 score1s ans spam-stat-buffer-words-with-scores mapcar cadr apply * #[(x) "\301Z\207" [x 1] 2] spam-stat-error-holder (spam-stat-score-buffer-user score0) ((error)) message "%S"] 8 (#$ . 14675) nil])
(defalias 'spam-stat-score-buffer-user #[(&rest args) "\302\303\"\304	>?\205�\305\306	\")\207" [spam-stat-score-buffer-user-functions scores mapcar #[(fn) "\302	\"\207" [fn args apply] 3] nil apply +] 3])
#@240 Return the name of the spam group if the current mail is spam.
Use this function on `nnmail-split-fancy'.  If you are interested in
the raw data used for the last run of `spam-stat-score-buffer',
check the variable `spam-stat-score-data'.
(defalias 'spam-stat-split-fancy #[nil "\300\301\302\217\207" [spam-stat-error-holder (byte-code "q\210eb\210\304 	V\205�\305\306!\203�\307\310\n\"\210\207" [spam-stat-buffer spam-stat-split-fancy-spam-threshold spam-stat-score-data spam-stat-split-fancy-spam-group spam-stat-score-buffer boundp nnmail-split-trace mapc #[(entry) "	B\211\207" [entry nnmail-split-trace] 2]] 3) ((error (message "Error in spam-stat-split-fancy: %S" spam-stat-error-holder) nil))] 3 (#$ . 15417)])
#@28 Strip the the Xref header.
(defalias 'spam-stat-strip-xref #[nil "\214\300 \210\301\302\303\304#\205�\305\224\305\225|)\207" [mail-narrow-to-head re-search-forward "^Xref:.*\n" nil t 0] 4 (#$ . 16147)])
#@69 Process all the regular files in directory DIR using function FUNC.
(defalias 'spam-stat-process-directory #[(dir func) "\306\307\310#\211G\311\245\312\313\314!r\fq\210\315\216	\316\211\205l�@\317
!\203b�\320
!\203b�\321\322
!8\312V\203b�\323\324\325\322
!8!!W\203b�T\326\327\n\245#\210\330
!\210\331 \210 \210\332 \210A\211\204 �\316.\207" [dir files max count #1=#:temp-buffer f directory-files t "^[^.]" 100.0 0 generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil file-readable-p file-regular-p 7 file-attributes time-to-number-of-days time-since 5 message "Reading %s: %.2f%%" insert-file-contents-literally spam-stat-strip-xref erase-buffer --dolist-tail-- spam-stat-process-directory-age func] 6 (#$ . 16357)])
#@57 Process all the regular files in directory DIR as spam.
(defalias 'spam-stat-process-spam-directory #[(dir) "\301\302\"\207" [dir spam-stat-process-directory spam-stat-buffer-is-spam] 3 (#$ . 17166) "D"])
#@61 Process all the regular files in directory DIR as non-spam.
(defalias 'spam-stat-process-non-spam-directory #[(dir) "\301\302\"\207" [dir spam-stat-process-directory spam-stat-buffer-is-non-spam] 3 (#$ . 17378) "D"])
#@29 Return size of `spam-stat'.
(defalias 'spam-stat-count #[nil "\301!\207" [spam-stat hash-table-count] 2 (#$ . 17602) nil])
#@395 Test all the regular files in directory DIR for spam.
If the result is 1.0, then all files are considered spam.
If the result is 0.0, non of the files is considered spam.
You can use this to determine error rates.

If VERBOSE is non-nil display names of files detected as spam or
non-spam in a temporary buffer.  If it is the symbol `ham',
display non-spam files; otherwise display spam files.
(defalias 'spam-stat-test-directory #[(dir &optional verbose) "\306\307\310#\311\211	G\312\f\313\245 \314!\315\316!\"r\"q\210\317\216	\311#\211$\203\240�$@#\320#!\203\227�\321#!\203\227�\322\323#!8\314V\203\227�!T!\324\325! \245
!\245#\210\326#!\210\327 \211\330V\203n�
T%\203\224�\331V\203\210�%\332=\204\224�#\nB\202\224�%\332=\203\224�#\nB\333 \210$A\211$\204-�-\n\203\313�\334\220\n\311&\211$\205\310�$@&\335&!\210\336 \210$A\211$\204\261�\311*\221\210\324\337
\f
\f\245$.\207" [dir files display-files buffer-score total score directory-files t "^[^.]" nil 0.0 100.0 0 generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) file-readable-p file-regular-p 7 file-attributes message "Reading %.2f%%, score %.2f" insert-file-contents-literally spam-stat-score-buffer 0.9 0.9 ham erase-buffer "*spam-stat results*" princ terpri "Final score: %d / %d = %f" max count #1# f --dolist-tail-- verbose file] 7 (#$ . 17733) "DDirectory: "])
#@124 Reduce the size of `spam-stat'.
This removes all words that occur less than COUNT from the dictionary.
COUNT defaults to 5
(defalias 'spam-stat-reduce-size #[(&optional count) "\206�\303\304\305	\"\210\306\211\207" [count spam-stat spam-stat-dirty 5 maphash #[(key entry) "\211\304H)\211\305H)\\	W\205�\306\n\"\207" [entry count key spam-stat 0 1 remhash] 4] t] 3 (#$ . 19180) nil])
#@39 Install the spam-stat function hooks.
(defalias 'spam-stat-install-hooks-function #[nil "\300\301\302\"\210\300\303\304\"\207" [add-hook nnmail-prepare-incoming-message-hook spam-stat-store-current-buffer gnus-select-article-hook spam-stat-store-gnus-article-buffer] 3 (#$ . 19579) nil])
(byte-code "\203�\301 \210\301\207" [spam-stat-install-hooks spam-stat-install-hooks-function] 1)
#@41 Uninstall the spam-stat function hooks.
(defalias 'spam-stat-unload-hook #[nil "\300\301\302\"\210\300\303\304\"\207" [remove-hook nnmail-prepare-incoming-message-hook spam-stat-store-current-buffer gnus-select-article-hook spam-stat-store-gnus-article-buffer] 3 (#$ . 19973) nil])
(byte-code "\300\301\211\"\210\302\303!\207" [add-hook spam-stat-unload-hook provide spam-stat] 3)

${this.title}

Code Editor : spam-stat.elc