Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
binhex.elc	8.56 KB	-rw-r--r--
blessmail.el	2.5 KB	-rw-r--r--
emacsbug.elc	15 KB	-rw-r--r--
feedmail.elc	98.21 KB	-rw-r--r--
flow-fill.elc	3.15 KB	-rw-r--r--
footnote.elc	26.54 KB	-rw-r--r--
hashcash.elc	10.83 KB	-rw-r--r--
ietf-drums.elc	8.65 KB	-rw-r--r--
mail-extr.elc	32.53 KB	-rw-r--r--
mail-hist.elc	13.44 KB	-rw-r--r--
mail-parse.elc	2.3 KB	-rw-r--r--
mail-prsvr.elc	1.08 KB	-rw-r--r--
mail-utils.elc	10.13 KB	-rw-r--r--
mailabbrev.elc	14.4 KB	-rw-r--r--
mailalias.elc	14.49 KB	-rw-r--r--
mailclient.elc	4.13 KB	-rw-r--r--
mailheader.elc	5.54 KB	-rw-r--r--
metamail.elc	4.21 KB	-rw-r--r--
mspools.elc	8.74 KB	-rw-r--r--
qp.elc	4.14 KB	-rw-r--r--
reporter.elc	9 KB	-rw-r--r--
rfc2045.elc	826 B	-rw-r--r--
rfc2047.elc	24.87 KB	-rw-r--r--
rfc2231.elc	6.35 KB	-rw-r--r--
rfc2368.elc	2.32 KB	-rw-r--r--
rfc822.elc	5.45 KB	-rw-r--r--
rmail-loaddefs.el	7.79 KB	-rw-r--r--
rmail-spam-filter.elc	12.71 KB	-rw-r--r--
rmail.elc	124.13 KB	-rw-r--r--
rmailedit.elc	9.82 KB	-rw-r--r--
rmailkwd.elc	4.98 KB	-rw-r--r--
rmailmm.elc	41.24 KB	-rw-r--r--
rmailmsc.elc	1.34 KB	-rw-r--r--
rmailout.elc	17.84 KB	-rw-r--r--
rmailsort.elc	6.17 KB	-rw-r--r--
rmailsum.elc	54.29 KB	-rw-r--r--
sendmail.elc	53.92 KB	-rw-r--r--
smtpmail.elc	25.46 KB	-rw-r--r--
supercite.elc	57.29 KB	-rw-r--r--
uce.elc	7.54 KB	-rw-r--r--
undigest.elc	7.81 KB	-rw-r--r--
unrmail.elc	5.25 KB	-rw-r--r--
uudecode.elc	5.26 KB	-rw-r--r--
yenc.elc	3.48 KB	-rw-r--r--

Code Editor : rmail-spam-filter.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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

(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\305\312\313\314\307\304&\210\310\315\316\317\313\320\307\304&\210\310\321\305\322\313\314\307\304&\210\310\323\305\324\313\314\307\304&\210\310\325\305\326\313\314\307\304&\210\310\327\330\331\313\332\307\304&\210\310\333\334\335\313\336\307\304&\210\310\337\305\340\313\314\307\304&\210\310\341\305\342\313\343\307\304&\210\310\344\305\345\313\346\307\304&\207" [require rmail rmailsum custom-declare-group rmail-spam-filter nil "Spam filter for Rmail, the Emacs mail reader." :group custom-declare-variable rmail-use-spam-filter "Non-nil to activate the Rmail spam filter.\nSet `rsf-definitions-alist' to define what you consider spam emails." :type boolean rsf-file "~/XRMAIL-SPAM" "Name of Rmail file for optionally saving some of the spam.\nYou can either just delete spam, or save it in this file for\nlater review.  Which action to take for each spam definition is\nspecified by the \"action\" element of the definition." string rsf-no-blind-cc "Non-nil means mail with no explicit To: or Cc: is spam." rsf-ignore-case "Non-nil means to ignore case in `rsf-definitions-alist'." rsf-beep "Non-nil means to beep if spam is found." rsf-sleep-after-message 2.0 "Seconds to wait after displaying a message that spam was found." number rsf-min-region-to-spam-list 7 "Minimum size of region that you can add to the spam list.\nThe aim is to avoid adding too short a region, which could result\nin false positive identification of a valid message as spam." integer rsf-autosave-newly-added-definitions "Non-nil to auto-save new spam entries.\nAny time you add an entry via the \"Spam\" menu, immediately saves\nthe custom file." rsf-white-list "List of regexps to identify valid senders.\nIf any element matches the \"From\" header, the message is\nflagged as a valid, non-spam message.  E.g., if your domain is\n\"emacs.com\" then including \"emacs\\\\.com\" in this list would\nflag all mail (purporting to be) from your colleagues as valid." (repeat string) rsf-definitions-alist "A list of rules (definitions) matching spam messages.\nEach rule is an alist, with elements of the form (FIELD . REGEXP).\nThe recognized FIELDS are: from, to, subject, content-type,\nx-spam-status, and contents.  The \"contents\" element refers to\nthe entire text of the message; all the other elements refer to\nmessage headers of the same name.\n\nUsing an empty-string for REGEXP is the same as omitting that\nelement altogether.\n\nEach rule should contain one \"action\" element, saying what to do\nif the rule is matched.  This has the form (action . CHOICE), where\nCHOICE may be either `output-and-delete' (save to `rsf-file', then delete),\nor `delete-spam' (just delete).\n\nA rule matches only if all the specified elements match." (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)))))] 8)
#@50 Non-nil when `rmail-spam-filter' scans messages.
(defvar rsf-scanning-messages-now nil (#$ . 4064))
#@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 (#$ . 4171)])
#@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*+,-./01234\212\214\3135!b\210`\314\315!\210`}\210\316\317!2\316\320!1\316\321!01\203]�0\203]�1\3220Q\206d�1\206d�0/\316\323!.\316\324!-\316\325!,)6\203\205�/\204\205�\312\32632\203\277�7\306898\204\264�9\203\264�\3279@2\"\203\254�\312\2118\202\223�9A9\202\221�8*\203\277�\312\3303*+W\2034
\2044*8:\312\306B3\331\3322:3$\210\331\333/:3$\210\331\334.:3$\210\331\335-:3$\210\331\336\337\3135!\3405!\":3$\210\331\341,:3$\2103@\203+3A\203+\312\2020*T*)\202\277�3@\203\2123A\203\2125\342*8\236A\343;!?<\"=\"\344\267\202\203<\203f\345\346 \312\"\210\347;!\210<\203u\350 \210~\210>\204\203\351 \210\202\203\351 \210\3064+\202\215\3124)4.\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output-and-delete 347 delete-spam 384)) rmail-show-message rmail-first-unseen-message rmail-output rmail-swap-buffers-maybe rmail-delete-message 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 (#$ . 5040)])
#@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>�\31212�\313\f!\206.�T\2110\2027�\210\f\211!\210\fT\202�\314\216!\203_�\307\"#\203Q�\315\316!\210\317\320!\"\210\321$!\210\202\231�\306V\203\231�\322\323 \206l�\324\316\"\210\325\216#\203z�\315\316!\210\317\326\211\324U\203\207�\327\202\210�\330#\210\321$!\210\331 \203\230�\332\316!\210))!\203\243�\333\202\320�\306U\203\255�\327\202\320�	\324U\203\267�\334\202\320�	U\203\301�\335\202\320�\336\337\211\324U\203\316�\330\202\317�\327#-\207" [rmail-total-messages nnew nold nspam nscan rmail-deleted-vector 0 nil make-string 32 (error) rmail-spam-filter #[nil "\303\304	T#\303\n	T\"P\211\207" [rdv-old nold rmail-deleted-vector substring 0] 4] ding t message "Spam filter error for new message %d, disabled" sleep-for rmail-show-message rmail-first-unseen-message 1 #[nil "\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" ", 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 (#$ . 7092)])
#@44 Add the "Subject" header to the spam list.
(defalias 'rsf-add-subject-to-spam-list #[nil "\304\305\306!!\307\310\311B\312\313\314\257\211\n\235\203�\n\210\202\"�\315\n	C\")\316\302!\210\2035�\317 \210\320\321\"\2029�\320\322\")\207" [message-subject #1=#:x rsf-definitions-alist rsf-autosave-newly-added-definitions regexp-quote rmail-get-header "Subject" (from . #2="") (to . #2#) subject (content-type . #2#) (contents . #2#) (action . output-and-delete) append 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)"] 7 (#$ . 8481) nil])
#@42 Add the "From" address to the spam list.
(defalias 'rsf-add-sender-to-spam-list #[nil "\304\305\306!!\307B\310\311\312\313\314\257\211\n\235\203�\n\210\202\"�\315\n	C\")\316\302!\210\2035�\317 \210\320\321\"\2029�\320\322\")\207" [message-sender #1=#:x rsf-definitions-alist rsf-autosave-newly-added-definitions regexp-quote rmail-get-header "From" from (to . #2="") (subject . #2#) (content-type . #2#) (contents . #2#) (action . output-and-delete) append 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)"] 7 (#$ . 9132) 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�\306 \307 U\203�\310\311!\207\307 \306 Z\nW\203\"�\310\312\n\"\207\313\314\306 \307 \"!\315\316\317\320\321B\322\257\211
\235\203A�
\210\202G�\323
\fC\")\324\305!\210\203[�\325 \210\310\326\"\202_�\310\327\")\207" [rmail-buffer mark-active rsf-min-region-to-spam-list region-to-spam-list #1=#:x rsf-definitions-alist 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 (from . #2="") (to . #2#) (subject . #2#) (content-type . #2#) contents (action . output-and-delete) append 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)" rsf-autosave-newly-added-definitions] 7 (#$ . 9775) nil])
#@36 Customize `rsf-definitions-alist'.
(defalias 'rsf-customize-spam-definitions #[nil "\300\301!\207" [customize-variable rsf-definitions-alist] 2 (#$ . 10789) nil])
#@40 Customize the rmail-spam-filter group.
(defalias 'rsf-customize-group #[nil "\300\301!\207" [customize-group rmail-spam-filter] 2 (#$ . 10958) nil])
#@43 Interactive version of `custom-save-all'.
(defalias 'rsf-custom-save-all #[nil "\300 \207" [custom-save-all] 1 (#$ . 11113) 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 (#$ . 12079) nil])
(provide 'rmail-spam-filter)

${this.title}

Code Editor : rmail-spam-filter.elc