Gecko [ 122.154.134.11 ]

Name	Size	Permission
binhex.elc	9.01 KB	-rw-r--r--
blessmail.el	2.51 KB	-rw-r--r--
emacsbug.elc	7.55 KB	-rw-r--r--
feedmail.elc	79.59 KB	-rw-r--r--
footnote.elc	21.09 KB	-rw-r--r--
hashcash.elc	10.81 KB	-rw-r--r--
mail-extr.elc	33.9 KB	-rw-r--r--
mail-hist.elc	13.74 KB	-rw-r--r--
mail-utils.elc	9.55 KB	-rw-r--r--
mailabbrev.elc	13.96 KB	-rw-r--r--
mailalias.elc	13.52 KB	-rw-r--r--
mailclient.elc	3.56 KB	-rw-r--r--
mailheader.elc	5.92 KB	-rw-r--r--
mailpost.elc	2.3 KB	-rw-r--r--
metamail.elc	4.44 KB	-rw-r--r--
mspools.elc	7.25 KB	-rw-r--r--
reporter.elc	9.65 KB	-rw-r--r--
rfc2368.elc	2.46 KB	-rw-r--r--
rfc822.elc	5.71 KB	-rw-r--r--
rmail-spam-filter.elc	13.24 KB	-rw-r--r--
rmail.elc	113.93 KB	-rw-r--r--
rmailedit.elc	8.83 KB	-rw-r--r--
rmailkwd.elc	5.12 KB	-rw-r--r--
rmailmm.elc	11.05 KB	-rw-r--r--
rmailmsc.elc	1.56 KB	-rw-r--r--
rmailout.elc	15.73 KB	-rw-r--r--
rmailsort.elc	6.33 KB	-rw-r--r--
rmailsum.elc	52.51 KB	-rw-r--r--
sendmail.elc	51.72 KB	-rw-r--r--
smtpmail.elc	21.58 KB	-rw-r--r--
supercite.elc	58.99 KB	-rw-r--r--
uce.elc	7.66 KB	-rw-r--r--
undigest.elc	7.88 KB	-rw-r--r--
unrmail.elc	4.69 KB	-rw-r--r--
uudecode.elc	6.19 KB	-rw-r--r--

Code Editor : rmail-spam-filter.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:22 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/rmail-spam-filter.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 "`rmail-spam-filter.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\207" [require rmail rmailsum custom-declare-group rmail-spam-filter nil "Spam filter for Rmail, the Emacs mail reader." :group] 6)
#@113 Non-nil to activate the Rmail spam filter.
Set `rsf-definitions-alist' to define what you consider spam emails.
(custom-declare-variable 'rmail-use-spam-filter 'nil '(#$ . 826) :type 'boolean :group 'rmail-spam-filter)
#@238 Name of Rmail file for optionally saving some of the spam.
You can either just delete spam, or save it in this file for
later review.  Which action to take for each spam definition is
specified by the "action" element of the definition.
(custom-declare-variable 'rsf-file '"~/XRMAIL-SPAM" '(#$ . 1052) :type 'string :group 'rmail-spam-filter)
#@57 Non-nil means mail with no explicit To: or Cc: is spam.
(custom-declare-variable 'rsf-no-blind-cc 'nil '(#$ . 1401) :type 'boolean :group 'rmail-spam-filter)
#@58 Non-nil means to ignore case in `rsf-definitions-alist'.
(custom-declare-variable 'rsf-ignore-case 'nil '(#$ . 1565) :type 'boolean :group 'rmail-spam-filter)
#@41 Non-nil means to beep if spam is found.
(custom-declare-variable 'rsf-beep 'nil '(#$ . 1730) :type 'boolean :group 'rmail-spam-filter)
#@65 Seconds to wait after displaying a message that spam was found.
(custom-declare-variable 'rsf-sleep-after-message '2.0 '(#$ . 1871) :type 'number :group 'rmail-spam-filter)
#@186 Minimum size of region that you can add to the spam list.
The aim is to avoid adding too short a region, which could result
in false positive identification of a valid message as spam.
(custom-declare-variable 'rsf-min-region-to-spam-list '7 '(#$ . 2051) :type 'integer :group 'rmail-spam-filter)
#@122 Non-nil to auto-save new spam entries.
Any time you add an entry via the "Spam" menu, immediately saves
the custom file.
(custom-declare-variable 'rsf-autosave-newly-added-definitions 'nil '(#$ . 2355) :type 'boolean :group 'rmail-spam-filter)
#@288 List of regexps to identify valid senders.
If any element matches the "From" header, the message is
flagged as a valid, non-spam message.  E.g., if your domain is
"emacs.com" then including "emacs\\.com" in this list would
flag all mail (purporting to be) from your colleagues as valid.
(custom-declare-variable 'rsf-white-list 'nil '(#$ . 2606) :type '(repeat string) :group 'rmail-spam-filter)
#@726 A list of rules (definitions) matching spam messages.
Each rule is an alist, with elements of the form (FIELD . REGEXP).
The recognized FIELDS are: from, to, subject, content-type,
x-spam-status, and contents.  The "contents" element refers to
the entire text of the message; all the other elements refer to
message headers of the same name.

Using an empty-string for REGEXP is the same as omitting that
element altogether.

Each rule should contain one "action" element, saying what to do
if the rule is matched.  This has the form (action . CHOICE), where
CHOICE may be either `output-and-delete' (save to `rsf-file', then delete),
or `delete-spam' (just delete).

A rule matches only if all the specified elements match.
(custom-declare-variable 'rsf-definitions-alist 'nil '(#$ . 3009) :type '(repeat (list :format "%v" (cons :format "%v" :value (from . #1="") (const :format #1# from) (string :tag "From" #1#)) (cons :format "%v" :value (to . #1#) (const :format #1# to) (string :tag "To" #1#)) (cons :format "%v" :value (subject . #1#) (const :format #1# subject) (string :tag "Subject" #1#)) (cons :format "%v" :value (content-type . #1#) (const :format #1# content-type) (string :tag "Content-Type" #1#)) (cons :format "%v" :value (contents . #1#) (const :format #1# contents) (string :tag "Contents" #1#)) (cons :format "%v" :value (x-spam-status . #1#) (const :format #1# x-spam-status) (string :tag "X-Spam-Status" #1#)) (cons :format "%v" :value (action . output-and-delete) (const :format #1# action) (choice :tag "Action selection" (const :tag "Output and delete" output-and-delete) (const :tag "Delete" delete-spam))))) :group 'rmail-spam-filter)
#@50 Non-nil when `rmail-spam-filter' scans messages.
(defvar rsf-scanning-messages-now nil (#$ . 4678))
#@594 Check if a message appears to be spam.
FIELD-SYMBOL is one of the possible keys of a `rsf-definitions-alist'
rule; e.g. from, to.  MESSAGE-DATA is a string giving the value of
FIELD-SYMBOL in the current message.  DEFINITION is the element of
`rsf-definitions-alist' currently being checked.

RESULT is a cons of the form (MAYBE-SPAM . IS-SPAM).  If the car
is nil, or if the entry for FIELD-SYMBOL in this DEFINITION is
absent or the empty string, this function does nothing.

Otherwise, if MESSAGE-DATA is non-nil and the entry matches it,
the cdr is set to t.  Else, the car is set to nil.
(defalias 'rsf-check-field #[(field-symbol message-data definition result) "\305	\"A@\205&�\nG\306V\205&�\f\203#�\307\n\f\"\203#�\310\241\202&�\311\240)\207" [field-symbol definition definition-field result message-data assoc 0 string-match t nil] 3 (#$ . 4785)])
#@227 Return nil if message number MSG is spam based on `rsf-definitions-alist'.
If spam, optionally output message to a file `rsf-file' and delete
it from rmail file.  Called for each new message retrieved by
`rmail-get-new-mail'.
(defalias 'rmail-spam-filter #[(msg) "\306\307\306\211\211\211\211\211\211\310!\311\306	\306\312+,-./012345\212\214\3136!b\210`\314\315!\210`}\210\316\317!3\316\320!2\316\321!12\203]�1\203]�2\3221Q\206d�2\206d�10\316\323!/\316\324!.\316\325!-)7\203\205�0\204\205�\312\32643\203\277�8\3069:9\204\264�:\203\264�\327:@3\"\203\254�\312\2119\202\223�:A:\202\221�9*\203\277�\312\3304+,W\2034
\2044+8;\312\306B4\331\3323;4$\210\331\3330;4$\210\331\334/;4$\210\331\335.;4$\210\331\336\337\3136!\3406!\";4$\210\331\341-;4$\2104@\203+4A\203+\312\2020+T+)\202\277�4@\203\2214A\203\2216\342+8\236A\343<!?=\">\"\344=\203\200=\203f\345\346 \312\"\210\347<!\210=\203u\350 \210~\210?\204\212\351 \210\202\212\"\352=\203\212\351 \210\3065+\202\224\3125)5.\207" [rsf-definitions-alist rsf-ignore-case rsf-scanning-messages-now bbdb/mail_auto_create_p case-fold-search exit-while-loop nil (nil) safe-length 0 t rmail-msgbeg search-forward "\n\n" mail-fetch-field "From" "To" "Cc" ", " "Subject" "Content-Type" "X-Spam-Status" (t . t) string-match (nil) rsf-check-field from to subject content-type contents buffer-substring-no-properties rmail-msgend x-spam-status action file-exists-p output-and-delete rmail-show-message rmail-first-unseen-message rmail-output rmail-swap-buffers-maybe rmail-delete-message delete-spam num-element num-spam-definition-elements message-spam-status message-content-type message-subject message-recipients message-cc message-to message-sender maybe-spam return-value msg rsf-no-blind-cc rsf-white-list found white-list definition rsf-file newfile rmail-current-message rmail-delete-after-output] 16 (#$ . 5654)])
#@121 Check the most NNEW recent messages for spam.
This is called at the end of `rmail-get-new-mail-1' if there is new mail.
(defalias 'rmail-get-new-mail-filter-spam #[(nnew) "	Z\306\nT
!\307\"\310T\311\"\"\204+�\fX\203+�\307\312\313\217\210\fT\202�\314\216\"\203L�\307#$\203>�\315\316!\210\317\320\"\"\210\321%!\210\202\206�\306V\203\206�\322\323 \206Y�\324\316\"\210\325\216$\203g�\315\316!\210\317\326\211\324U\203t�\327\202u�\330#\210\321%!\210\331 \203\205�\332\316!\210))\"\203\220�\333\202\275�\334!\203\232�\327\202\275�	\324U\203\244�\335\202\275�	U\203\256�\336\202\275�\337\340\211\324U\203\273�\330\202\274�\327#-\207" [rmail-total-messages nnew nold nspam nscan rmail-deleted-vector 0 nil make-string 32 (byte-code "\302!\204	�	T\302\207" [nscan nspam rmail-spam-filter] 2) ((error (byte-code "\302\207" [nscan errflag nil] 1))) ((byte-code "\303	TO\n	T\304OP\304\207" [rdv-old nold rmail-deleted-vector 0 nil] 4)) ding t message "Spam filter error for new message %d, disabled" sleep-for rmail-show-message rmail-first-unseen-message 1 ((byte-code "\300 \210~\207" [rmail-swap-buffers-maybe] 1)) "Rmail spam-filter detected and deleted %d spam message%s" "" "s" rmail-expunge-confirmed rmail-only-expunge ", error in spam filter" zerop ", and it appears to be spam" ", and all appear to be spam" format ", and %d appear%s to be spam" rdv-old errflag rmail-use-spam-filter rsf-beep rsf-sleep-after-message] 5 (#$ . 7624)])
#@44 Add the "Subject" header to the spam list.
(defalias 'rsf-add-subject-to-spam-list #[nil "\302\303\304!!\305\306\307\310\311B\312\313\314\257\315#\210\316\306!\210	\203'�\317 \210\320\321\"\202+�\320\322\")\207" [message-subject rsf-autosave-newly-added-definitions regexp-quote rmail-get-header "Subject" add-to-list rsf-definitions-alist (from . #1="") (to . #1#) subject (content-type . #1#) (contents . #1#) (action . output-and-delete) t customize-mark-to-save custom-save-all message "Added subject `%s' to spam list, and saved it" "Added subject `%s' to spam list (remember to save it)"] 8 (#$ . 9093) nil])
#@42 Add the "From" address to the spam list.
(defalias 'rsf-add-sender-to-spam-list #[nil "\302\303\304!!\305\306\307B\310\311\312\313\314\257\315#\210\316\306!\210	\203'�\317 \210\320\321\"\202+�\320\322\")\207" [message-sender rsf-autosave-newly-added-definitions regexp-quote rmail-get-header "From" add-to-list rsf-definitions-alist from (to . #1="") (subject . #1#) (content-type . #1#) (contents . #1#) (action . output-and-delete) t customize-mark-to-save custom-save-all message "Added sender `%s' to spam list, and saved it" "Added sender `%s' to spam list (remember to save it)"] 8 (#$ . 9719) nil])
#@109 Add the marked region in the Rmail buffer to the spam list.
Adds to spam definitions as a "contents" field.
(defalias 'rsf-add-region-to-spam-list #[nil "q\210	\203�\305 \306 U\203�\307\310!\207\306 \305 Z\nW\203\"�\307\311\n\"\207\312\313\305 \306 \"!\314\315\316\317\320\321\322B\323\257\324#\210\325\315!\210\f\203L�\326 \210\307\327\"\202P�\307\330\")\207" [rmail-buffer mark-active rsf-min-region-to-spam-list region-to-spam-list rsf-autosave-newly-added-definitions region-beginning region-end message "You must highlight some text in the Rmail buffer" "Region is too small (minimum %d characters)" regexp-quote buffer-substring-no-properties add-to-list rsf-definitions-alist (from . #1="") (to . #1#) (subject . #1#) (content-type . #1#) contents (action . output-and-delete) t customize-mark-to-save custom-save-all "Added highlighted text:\n%s\nto the spam list, and saved it" "Added highlighted text:\n%s\nto the spam list (remember to save it)"] 8 (#$ . 10337) nil])
#@36 Customize `rsf-definitions-alist'.
(defalias 'rsf-customize-spam-definitions #[nil "\300\301!\207" [customize-variable rsf-definitions-alist] 2 (#$ . 11330) nil])
#@40 Customize the rmail-spam-filter group.
(defalias 'rsf-customize-group #[nil "\300\301!\207" [customize-group rmail-spam-filter] 2 (#$ . 11499) nil])
#@43 Interactive version of `custom-save-all'.
(defalias 'rsf-custom-save-all #[nil "\300 \207" [custom-save-all] 1 (#$ . 11654) nil])
(byte-code "	D\304\211\203?�@\305\304\n\304\306$\210\307\n\310\311#\210\307\n\312\313#\210\307\n\314\315#\210\307\n\316\317#\210\307\n\320\321#\210\307\n\322\323#\210A\211\204\n�*\304\207" [rmail-summary-mode-map rmail-mode-map map --dolist-tail-- nil easy-menu-do-define ("Spam" ["Add subject to spam list" rsf-add-subject-to-spam-list] ["Add sender to spam list" rsf-add-sender-to-spam-list] ["Add region to spam list" rsf-add-region-to-spam-list] ["Save spam definitions" rsf-custom-save-all] "--" ["Customize spam definitions" rsf-customize-spam-definitions] ["Browse spam customizations" rsf-customize-group]) define-key "St" rsf-add-subject-to-spam-list "Sr" rsf-add-sender-to-spam-list "Sn" rsf-add-region-to-spam-list "Sa" rsf-custom-save-all "Sd" rsf-customize-spam-definitions "Sg" rsf-customize-group] 6)
#@325 Maintain backward compatibility for `rmail-spam-filter'.
The most recent version of `rmail-spam-filter' checks the content-type
field of the incoming mail to see if it is spam.  The format of
`rsf-definitions-alist' has therefore changed.  This function
checks to see if the old format is used, and updates it if necessary.
(defalias 'rsf-add-content-type-field #[nil "\205U�\305\306@\"?\205U�\307\211	\203>�	@	A\310\305\311\n\"\305\312\n\"\305\313\n\"\306\314B\305\315\n\"\305\316\n\"\257C\"\202�\317\300!\210\f\203Q�\320 \210\321\322!\202T�\321\323!+\207" [rsf-definitions-alist definitions current result rsf-autosave-newly-added-definitions assoc content-type nil append from to subject "" contents action customize-mark-to-save custom-save-all message "Spam definitions converted to new format, and saved" "Spam definitions converted to new format (remember to save)"] 10 (#$ . 12620) nil])
(provide 'rmail-spam-filter)

${this.title}

Code Editor : rmail-spam-filter.elc