mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-23 07:19:15 +00:00
Initial commit to the trunk.
This commit is contained in:
Paul Reilly
parent
068f98821b
commit
97d3e8cdeb
632
lisp/mail/rmail-spam-filter.el
Normal file
632
lisp/mail/rmail-spam-filter.el
Normal file
@ -0,0 +1,632 @@
|
||||
;;; rmail-spam-filter.el --- spam filter for rmail, the emacs mail reader.
|
||||
|
||||
;; Copyright (C) 2002
|
||||
;; Free Software Foundation, Inc.
|
||||
;; Keywords: email, spam, filter, rmail
|
||||
;; Author: Eli Tziperman <eli@beach.weizmann.ac.il>
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation; either version 2, or (at your option)
|
||||
;; any later version.
|
||||
|
||||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
;;; -----------
|
||||
|
||||
;;; Automatically recognize and delete junk email before it is
|
||||
;;; displayed in rmail/rmail-summary. Spam emails are defined by
|
||||
;;; specifying one or more of the sender, subject and contents.
|
||||
;;; URL: http://www.weizmann.ac.il/~eli/Downloads/rmail-spam-filter/
|
||||
|
||||
;;; Usage:
|
||||
;;; ------
|
||||
|
||||
;;; put in your .emacs:
|
||||
|
||||
;;; (load "rmail-spam-filter.el")
|
||||
|
||||
;;; and use customize (in rmail-spam-filter group) to:
|
||||
|
||||
;;; (*) turn on the variable rmail-use-spam-filter,
|
||||
|
||||
;;; (*) specify in variable rmail-spam-definitions-alist what sender,
|
||||
;;; subject and contents make an email be considered spam.
|
||||
|
||||
;;; in addition, you may:
|
||||
|
||||
;;; (*) Block future mail with the subject or sender of a message
|
||||
;;; while reading it in RMAIL: just click on the "Spam" item on the
|
||||
;;; menubar, and add the subject or sender to the list of spam
|
||||
;;; definitions using the mouse and the appropriate menu item. Â You
|
||||
;;; need to later also save the list of spam definitions using the
|
||||
;;; same menu item, or alternatively, see variable
|
||||
;;; `rmail-spam-filter-autosave-newly-added-spam-definitions'.
|
||||
|
||||
;;; (*) specify if blind-cc'ed mail (no "To:" header field) is to be
|
||||
;;; treated as spam (variable rmail-spam-no-blind-cc; Thanks to Ethan
|
||||
;;; Brown <ethan@gso.saic.com> for this).
|
||||
|
||||
;;; (*) specify if rmail-spam-filter should ignore case of spam
|
||||
;;; definitions (variable rmail-spam-filter-ignore-case; Thanks to
|
||||
;;; Ethan Brown <ethan@gso.saic.com> for the suggestion).
|
||||
|
||||
;;; (*) Specify a "white-list" of trusted senders. If any
|
||||
;;; rmail-spam-white-list string matches a substring of the "From"
|
||||
;;; header, the message is flagged as a valid, non-spam message (Ethan
|
||||
;;; Brown <ethan@gso.saic.com>).
|
||||
|
||||
;;; (*) rmail spam filter also works with bbdb to prevent spam senders
|
||||
;;; from entering into the .bbdb file. See variable
|
||||
;;; "rmail-spam-filter-auto-delete-spam-bbdb-entries". This is done
|
||||
;;; in two ways: (a) bbdb is made not to auto-create entries for
|
||||
;;; messages that are deleted by the rmail-spam-filter, (b) when a
|
||||
;;; message is deleted in rmail, the user is offered to delete the
|
||||
;;; sender's bbdb entry as well _if_ it was created at the same day.
|
||||
|
||||
(require 'rmail)
|
||||
|
||||
;; For find-if and other cool common lisp functions we may want to use. (EDB)
|
||||
(require 'cl)
|
||||
|
||||
(defgroup rmail-spam-filter nil
|
||||
"Spam filter for RMAIL, the mail reader for Emacs."
|
||||
:group 'rmail)
|
||||
|
||||
(defcustom rmail-use-spam-filter nil
|
||||
"*Non-nil to activate the rmail spam filter.
|
||||
Specify `rmail-spam-definitions-alist' to define what you consider spam
|
||||
emails."
|
||||
:type 'boolean
|
||||
:group 'rmail-spam-filter )
|
||||
|
||||
(defcustom rmail-spam-file "~/XRMAIL-SPAM"
|
||||
"*Name of rmail file for optionally saving some of the spam.
|
||||
Spam may be either just deleted, or saved in a separate spam file to
|
||||
be looked at at a later time. Whether the spam is just deleted or
|
||||
also saved in a separete spam file is specified for each definition of
|
||||
spam, as one of the fields of `rmail-spam-definitions-alist'"
|
||||
:type 'string
|
||||
:group 'rmail-spam-filter )
|
||||
|
||||
(defcustom rmail-spam-no-blind-cc nil
|
||||
"*Non-nil to treat blind CC (no To: header) as spam."
|
||||
:type 'boolean
|
||||
:group 'rmail-spam-filter )
|
||||
|
||||
(defcustom rmail-spam-filter-ignore-case nil
|
||||
"*Non-nil to ignore case in `rmail-spam-definitions-alist'."
|
||||
:type 'boolean
|
||||
:group 'rmail-spam-filter )
|
||||
|
||||
(defcustom rmail-spam-filter-beep nil
|
||||
"*Non-nil to beep if spam is found."
|
||||
:type 'boolean
|
||||
:group 'rmail-spam-filter )
|
||||
|
||||
(defcustom rmail-spam-sleep-after-message 2.0
|
||||
"*Seconds to wait after display of message that spam was found."
|
||||
:type 'number
|
||||
:group 'rmail-spam-filter )
|
||||
|
||||
(defcustom rmail-spam-filter-auto-delete-spam-bbdb-entries nil
|
||||
"*Non-nil to make sure no entries are made in bbdb for spam emails.
|
||||
This is done in two ways: (1) bbdb is made not to auto-create entries
|
||||
for messages that are deleted by the `rmail-spam-filter', (2) when a
|
||||
message is deleted in rmail, the user is offered to delete the
|
||||
sender's bbdb entry as well if it was created at the same day. Note
|
||||
that Emacs needs to be restarted after setting this option for it to
|
||||
take an effect."
|
||||
:type 'boolean
|
||||
:group 'rmail-spam-filter )
|
||||
|
||||
(defcustom rmail-spam-filter-autosave-newly-added-spam-definitions nil
|
||||
"*Non-nil to auto save new spam entries.
|
||||
New entries entered via the spam menu bar item are then saved to
|
||||
customization file immediately after being added via the menu bar, and
|
||||
do not require explicitly saving the file after adding the new
|
||||
entries."
|
||||
:type 'boolean
|
||||
:group 'rmail-spam-filter )
|
||||
|
||||
(defcustom rmail-spam-white-list nil
|
||||
"*List of strings to identify valid senders.
|
||||
If any rmail-spam-white-list string matches a substring of the 'From'
|
||||
header, the message is flagged as a valid, non-spam message. Example:
|
||||
If your domain is emacs.com then including 'emacs.com' in your
|
||||
rmail-spam-white-list would flag all mail from your colleagues as
|
||||
valid."
|
||||
:type '(repeat string)
|
||||
:group 'rmail-spam-filter )
|
||||
|
||||
(defcustom rmail-spam-definitions-alist nil
|
||||
"*Alist matching strings defining what messages are considered spam.
|
||||
Each definition may contain specifications of one or more of the
|
||||
elements {subject, sender, recipients or contents}, as well as a
|
||||
definition of what to do with the spam (action item). A spam e-mail
|
||||
is defined as one that fits all of the specified elements of any one
|
||||
of the spam definitions. The strings that specify spam subject,
|
||||
sender, etc, may be regexp. For example, to specify that the subject
|
||||
may be either 'this is spam' or 'another spam', use the regexp: 'this
|
||||
is spam\|another spam' (without the single quotes)."
|
||||
:type '(repeat
|
||||
(list :format "%v"
|
||||
(cons :format "%v" :value (from . "")
|
||||
(const :format "" from)
|
||||
(string :tag "From" ""))
|
||||
(cons :format "%v" :value (to . "")
|
||||
(const :format "" to)
|
||||
(string :tag "To" ""))
|
||||
(cons :format "%v" :value (subject . "")
|
||||
(const :format "" subject)
|
||||
(string :tag "Subject" ""))
|
||||
(cons :format "%v" :value (contents . "")
|
||||
(const :format "" contents)
|
||||
(string :tag "Contents" ""))
|
||||
(cons :format "%v" :value (action . output-and-delete)
|
||||
(const :format "" action)
|
||||
(choice :tag "Action selection"
|
||||
(const :tag "output to spam folder and delete" output-and-delete)
|
||||
(const :tag "delete spam" delete-spam)
|
||||
))
|
||||
))
|
||||
:group 'rmail-spam-filter)
|
||||
|
||||
(defvar rmail-spam-filter-scanning-messages-now nil
|
||||
"Non nil when rmail-spam-filter scans messages,
|
||||
for interaction with `rmail-bbdb-auto-delete-spam-entries'")
|
||||
|
||||
(defun rmail-spam-filter (msg)
|
||||
"Return nil if msg is spam based on rmail-spam-definitions-alist.
|
||||
If spam, optionally output msg to a file `rmail-spam-file' and delete
|
||||
it from rmail file. Called for each new message retrieved by
|
||||
`rmail-get-new-mail'."
|
||||
|
||||
(let ((old-message)
|
||||
(return-value)
|
||||
(this-is-a-spam-email)
|
||||
(maybe-spam)
|
||||
(message-sender)
|
||||
(message-recipients)
|
||||
(message-subject)
|
||||
(num-spam-definition-elements)
|
||||
(num-element 0)
|
||||
(exit-while-loop nil)
|
||||
(saved-case-fold-search case-fold-search)
|
||||
(save-current-msg)
|
||||
(rmail-spam-filter-saved-bbdb/mail_auto_create_p nil)
|
||||
)
|
||||
|
||||
;; make sure bbdb does not create entries for messages while spam
|
||||
;; filter is scanning the rmail file:
|
||||
(setq rmail-spam-filter-saved-bbdb/mail_auto_create_p 'bbdb/mail_auto_create_p)
|
||||
(setq bbdb/mail_auto_create_p nil)
|
||||
;; let `rmail-bbdb-auto-delete-spam-entries' know that rmail spam
|
||||
;; filter is running, so that deletion of rmail messages should be
|
||||
;; ignored for now:
|
||||
(setq rmail-spam-filter-scanning-messages-now t)
|
||||
(save-excursion
|
||||
(save-restriction
|
||||
(setq this-is-a-spam-email nil)
|
||||
;; Narrow buffer to header of message and get Sender and
|
||||
;; Subject fields to be used below:
|
||||
(save-restriction
|
||||
(goto-char (rmail-msgbeg msg))
|
||||
(narrow-to-region (point) (progn (search-forward "\n\n") (point)))
|
||||
(setq message-sender (mail-fetch-field "From"))
|
||||
(setq message-recipients (mail-fetch-field "To"))
|
||||
(setq message-subject (mail-fetch-field "Subject"))
|
||||
)
|
||||
;; Find number of spam-definition elements in the list
|
||||
;; rmail-spam-definitions-alist specified by user:
|
||||
(setq num-spam-definition-elements (safe-length
|
||||
rmail-spam-definitions-alist))
|
||||
|
||||
;;; do we want to ignore case in spam definitions:
|
||||
(setq case-fold-search rmail-spam-filter-ignore-case)
|
||||
|
||||
;; Check for blind CC condition. Set vars such that while
|
||||
;; loop will be bypassed and spam condition will trigger (EDB)
|
||||
(if (and rmail-spam-no-blind-cc
|
||||
(null message-recipients))
|
||||
(progn
|
||||
(setq exit-while-loop t)
|
||||
(setq maybe-spam t)
|
||||
(setq this-is-a-spam-email t)))
|
||||
|
||||
;; Check white list, and likewise cause while loop
|
||||
;; bypass. (EDB)
|
||||
(if (find-if '(lambda (white-str)
|
||||
(string-match white-str message-sender))
|
||||
rmail-spam-white-list)
|
||||
(progn
|
||||
(setq exit-while-loop t)
|
||||
(setq maybe-spam nil)
|
||||
(setq this-is-a-spam-email nil)))
|
||||
|
||||
;; scan all elements of the list rmail-spam-definitions-alist
|
||||
(while (and
|
||||
(< num-element num-spam-definition-elements)
|
||||
(not exit-while-loop))
|
||||
(progn
|
||||
;; Initialize maybe-spam which is set to t in one of two
|
||||
;; cases: (1) unspecified definition-elements are found in
|
||||
;; rmail-spam-definitions-alist, (2) empty field is found
|
||||
;; in the message being scanned (e.g. empty subject,
|
||||
;; sender, recipients, etc). The variable is set to nil
|
||||
;; if a non empty field of the scanned message does not
|
||||
;; match a specified field in
|
||||
;; rmail-spam-definitions-alist.
|
||||
(setq maybe-spam t)
|
||||
;; initialize this-is-a-spam-email to nil. This variable
|
||||
;; is set to t if one of the spam definitions matches a
|
||||
;; field in the scanned message.
|
||||
(setq this-is-a-spam-email nil)
|
||||
|
||||
;; start scanning incoming message:
|
||||
;;---------------------------------
|
||||
|
||||
;; if sender field is not specified in message being
|
||||
;; scanned, AND if "from" field does not appear in spam
|
||||
;; definitions for this element, this may still be spam
|
||||
;; due to another element...
|
||||
(if (and (not message-sender)
|
||||
(string-match
|
||||
(cdr (assoc 'from (nth num-element
|
||||
rmail-spam-definitions-alist))) ""))
|
||||
(setq maybe-spam t)
|
||||
;; ... else, if message-sender does appear in the
|
||||
;; message, and it also appears in the spam definition
|
||||
;; list, it is potentially spam:
|
||||
(if (and message-sender
|
||||
(string-match
|
||||
(cdr (assoc 'from (nth num-element
|
||||
rmail-spam-definitions-alist)))
|
||||
message-sender)
|
||||
)
|
||||
(setq this-is-a-spam-email t)
|
||||
(setq maybe-spam nil)
|
||||
)
|
||||
)
|
||||
;; next, if spam was not ruled out already, check recipients:
|
||||
(if maybe-spam
|
||||
;; if To field does not exist AND is not specified,
|
||||
;; this may still be spam due to another element...
|
||||
(if (and (not message-recipients)
|
||||
(string-match
|
||||
(cdr (assoc 'to
|
||||
(nth num-element
|
||||
rmail-spam-definitions-alist))) ""))
|
||||
(setq maybe-spam t)
|
||||
;; ... else, if To field does appear in the message,
|
||||
;; and it also appears in spam definition list, this
|
||||
;; is potentially a spam:
|
||||
(if (and message-recipients
|
||||
(string-match
|
||||
(cdr (assoc 'to (nth num-element
|
||||
rmail-spam-definitions-alist)))
|
||||
message-recipients)
|
||||
)
|
||||
(setq this-is-a-spam-email t)
|
||||
(setq maybe-spam nil)
|
||||
)
|
||||
)
|
||||
)
|
||||
;; next, if spam was not ruled out already, check subject:
|
||||
(if maybe-spam
|
||||
;; if subject field does not exist AND is not
|
||||
;; specified, this may still be spam due to another
|
||||
;; element...
|
||||
(if (and (not message-subject)
|
||||
(string-match
|
||||
(cdr (assoc 'subject
|
||||
(nth num-element
|
||||
rmail-spam-definitions-alist)))
|
||||
""))
|
||||
(setq maybe-spam t)
|
||||
;; ... else, if subject field does appear in the
|
||||
;; message, and it also appears in the spam
|
||||
;; definition list, this is potentially a spam:
|
||||
(if (and message-subject
|
||||
(string-match
|
||||
(cdr (assoc 'subject (nth num-element
|
||||
rmail-spam-definitions-alist)))
|
||||
message-subject)
|
||||
)
|
||||
(setq this-is-a-spam-email t)
|
||||
(setq maybe-spam nil)
|
||||
)
|
||||
)
|
||||
)
|
||||
;; next, if spam was not ruled out already, check
|
||||
;; contents: if contents field is not specified, this may
|
||||
;; still be spam due to another element...
|
||||
(if maybe-spam
|
||||
(if (string-match
|
||||
(cdr (assoc 'contents
|
||||
(nth num-element
|
||||
rmail-spam-definitions-alist))) "")
|
||||
(setq maybe-spam t)
|
||||
;; ... else, check to see if it appears in spam
|
||||
;; definition:
|
||||
(if (string-match
|
||||
(cdr (assoc 'contents
|
||||
(nth num-element
|
||||
rmail-spam-definitions-alist)))
|
||||
(buffer-substring
|
||||
(rmail-msgbeg msg) (rmail-msgend msg)))
|
||||
(setq this-is-a-spam-email t)
|
||||
(setq maybe-spam nil)))
|
||||
)
|
||||
;; if the search in rmail-spam-definitions-alist found
|
||||
;; that this email is spam, output the email to the spam
|
||||
;; rmail file, mark the email for deletion, leave the
|
||||
;; while loop and return nil so that an rmail summary line
|
||||
;; wont be displayed for this message:
|
||||
(if (and this-is-a-spam-email maybe-spam)
|
||||
;; found that this is spam, no need to look at the
|
||||
;; rest of the rmail-spam-definitions-alist, exit
|
||||
;; loop:
|
||||
(setq exit-while-loop t)
|
||||
;; else, spam was not yet found, increment number of
|
||||
;; element in rmail-spam-definitions-alist and proceed
|
||||
;; to next element:
|
||||
(setq num-element (+ num-element 1)))
|
||||
)
|
||||
)
|
||||
(if (and this-is-a-spam-email maybe-spam)
|
||||
(progn
|
||||
;;(message "Found spam!")
|
||||
;;(ding 1) (sleep-for 2)
|
||||
|
||||
;; temprarily set rmail-current-message in order to
|
||||
;; output and delete the spam msg if needed:
|
||||
(setq save-current-msg rmail-current-message)
|
||||
(setq rmail-current-message msg)
|
||||
;; check action item and rmail-spam-definitions-alist
|
||||
;; and do it:
|
||||
(cond
|
||||
((equal (cdr (assoc 'action
|
||||
(nth num-element rmail-spam-definitions-alist)))
|
||||
'output-and-delete)
|
||||
(progn
|
||||
(rmail-output-to-rmail-file rmail-spam-file)
|
||||
(rmail-delete-message)
|
||||
))
|
||||
((equal (cdr (assoc 'action
|
||||
(nth num-element rmail-spam-definitions-alist)))
|
||||
'delete-spam)
|
||||
(progn
|
||||
(rmail-delete-message)
|
||||
))
|
||||
)
|
||||
(setq rmail-current-message save-current-msg)
|
||||
(setq bbdb/mail_auto_create_p 'rmail-spam-filter-saved-bbdb/mail_auto_create_p)
|
||||
;; set return value. These lines must be last in the
|
||||
;; function, so that they will determine the value
|
||||
;; returned by rmail-spam-filter:
|
||||
(setq return-value nil))
|
||||
(setq return-value t))))
|
||||
(setq case-fold-search saved-case-fold-search)
|
||||
(setq rmail-spam-filter-scanning-messages-now nil)
|
||||
return-value))
|
||||
|
||||
|
||||
;; define functions for interactively adding sender/subject of a
|
||||
;; specific message to the spam definitions while reading it, using
|
||||
;; the menubar:
|
||||
(defun rmail-spam-filter-add-subject-to-spam-list ()
|
||||
(interactive)
|
||||
(set-buffer rmail-buffer)
|
||||
(let ((message-subject))
|
||||
(setq message-subject (mail-fetch-field "Subject"))
|
||||
;; note the use of a backquote and comma on the subject line here,
|
||||
;; to make sure message-subject is actually evaluated and its value
|
||||
;; substituted:
|
||||
(add-to-list 'rmail-spam-definitions-alist
|
||||
(list '(from . "")
|
||||
'(to . "")
|
||||
`(subject . ,message-subject)
|
||||
'(contents . "")
|
||||
'(action . output-and-delete))
|
||||
t)
|
||||
(customize-mark-to-save 'rmail-spam-definitions-alist)
|
||||
(if rmail-spam-filter-autosave-newly-added-spam-definitions
|
||||
(progn
|
||||
(custom-save-all)
|
||||
(message (concat "added subject \n <<< \n" message-subject
|
||||
" \n >>> \n to list of spam definitions. \n"
|
||||
"and saved the spam definitions to file.")))
|
||||
(message (concat "added subject \n <<< \n" message-subject
|
||||
" \n >>> \n to list of spam definitions. \n"
|
||||
"Don't forget to save the spam definitions to file using the spam menu"))
|
||||
)))
|
||||
|
||||
(defun rmail-spam-filter-add-sender-to-spam-list ()
|
||||
(interactive)
|
||||
(set-buffer rmail-buffer)
|
||||
(let ((message-sender))
|
||||
(setq message-sender (mail-fetch-field "From"))
|
||||
;; note the use of a backquote and comma on the "from" line here,
|
||||
;; to make sure message-sender is actually evaluated and its value
|
||||
;; substituted:
|
||||
(add-to-list 'rmail-spam-definitions-alist
|
||||
(list `(from . ,message-sender)
|
||||
'(to . "")
|
||||
'(subject . "")
|
||||
'(contents . "")
|
||||
'(action . output-and-delete))
|
||||
t)
|
||||
(customize-mark-to-save 'rmail-spam-definitions-alist)
|
||||
(if rmail-spam-filter-autosave-newly-added-spam-definitions
|
||||
(progn
|
||||
(custom-save-all)
|
||||
(message (concat "added sender \n <<< \n" message-sender
|
||||
" \n >>> \n to list of spam definitions. \n"
|
||||
"and saved the spam definitions to file.")))
|
||||
(message (concat "added sender \n <<< \n " message-sender
|
||||
" \n >>> \n to list of spam definitions."
|
||||
"Don't forget to save the spam definitions to file using the spam menu"))
|
||||
)))
|
||||
|
||||
|
||||
(defun rmail-spam-filter-add-region-to-spam-list ()
|
||||
"Add the region makred by user in the rmail buffer to the list of
|
||||
spam definitions as a contents field."
|
||||
(interactive)
|
||||
(set-buffer rmail-buffer)
|
||||
(let ((region-to-spam-list))
|
||||
;; check if region is inactive or has zero size:
|
||||
(if (not (and mark-active (not (= (region-beginning) (region-end)))))
|
||||
;; if inactive, print error message:
|
||||
(message "you need to first highlight some text in the rmail buffer")
|
||||
;; if active, add to list of spam definisions:
|
||||
(progn
|
||||
(setq region-to-spam-list (buffer-substring (region-beginning) (region-end)))
|
||||
;; note the use of a backquote and comma on the "from" line here,
|
||||
;; to make sure message-sender is actually evaluated and its value
|
||||
;; substituted:
|
||||
(add-to-list 'rmail-spam-definitions-alist
|
||||
(list '(from . "")
|
||||
'(to . "")
|
||||
'(subject . "")
|
||||
`(contents . ,region-to-spam-list)
|
||||
'(action . output-and-delete))
|
||||
t)
|
||||
(customize-mark-to-save 'rmail-spam-definitions-alist)
|
||||
(if rmail-spam-filter-autosave-newly-added-spam-definitions
|
||||
(progn
|
||||
(custom-save-all)
|
||||
(message (concat "added highlighted text \n <<< \n" region-to-spam-list
|
||||
" \n >>> \n to list of spam definitions. \n"
|
||||
"and saved the spam definitions to file.")))
|
||||
(message (concat "added highlighted text \n <<< \n " region-to-spam-list
|
||||
" \n >>> \n to list of spam definitions."
|
||||
"Don't forget to save the spam definitions to file using the spam menu"))
|
||||
)))))
|
||||
|
||||
|
||||
(defun rmail-spam-filter-customize-spam-definitions ()
|
||||
(interactive)
|
||||
(customize-variable (quote rmail-spam-definitions-alist)))
|
||||
|
||||
(defun rmail-spam-filter-customize-group ()
|
||||
(interactive)
|
||||
(customize-group (quote rmail-spam-filter)))
|
||||
|
||||
(defun rmail-spam-custom-save-all ()
|
||||
(interactive)
|
||||
(custom-save-all))
|
||||
|
||||
;; add the actual menu items and keyboard shortcuts to both rmail and
|
||||
;; rmail-summary menu-bars::
|
||||
(define-key rmail-summary-mode-map [menu-bar spam]
|
||||
(cons "Spam" (make-sparse-keymap "Spam")))
|
||||
(define-key rmail-mode-map [menu-bar spam]
|
||||
(cons "Spam" (make-sparse-keymap "Spam")))
|
||||
|
||||
(define-key rmail-summary-mode-map [menu-bar spam customize-group]
|
||||
'("Browse customizations of rmail spam filter" . rmail-spam-filter-customize-group))
|
||||
(define-key rmail-mode-map [menu-bar spam customize-group]
|
||||
'("Browse customizations of rmail spam filter" . rmail-spam-filter-customize-group))
|
||||
(define-key rmail-summary-mode-map "\C-cSg" 'rmail-spam-filter-customize-group)
|
||||
(define-key rmail-mode-map "\C-cSg" 'rmail-spam-filter-customize-group)
|
||||
|
||||
(define-key rmail-summary-mode-map [menu-bar spam customize-spam-list]
|
||||
'("Customize list of spam definitions" . rmail-spam-filter-customize-spam-definitions))
|
||||
(define-key rmail-mode-map [menu-bar spam customize-spam-list]
|
||||
'("Customize list of spam definitions" . rmail-spam-filter-customize-spam-definitions))
|
||||
(define-key rmail-summary-mode-map "\C-cSd" 'rmail-spam-filter-customize-spam-definitions)
|
||||
(define-key rmail-mode-map "\C-cSd" 'rmail-spam-filter-customize-spam-definitions)
|
||||
|
||||
(define-key rmail-summary-mode-map [menu-bar spam lambda] '("----"))
|
||||
(define-key rmail-mode-map [menu-bar spam lambda] '("----"))
|
||||
|
||||
(define-key rmail-summary-mode-map [menu-bar spam my-custom-save-all]
|
||||
'("save newly added spam definitions to customization file" . rmail-spam-custom-save-all))
|
||||
(define-key rmail-mode-map [menu-bar spam my-custom-save-all]
|
||||
'("save newly added spam definitions to customization file" . rmail-spam-custom-save-all))
|
||||
(define-key rmail-summary-mode-map "\C-cSa" 'rmail-spam-custom-save-all)
|
||||
(define-key rmail-mode-map "\C-cSa" 'rmail-spam-custom-save-all)
|
||||
|
||||
(define-key rmail-summary-mode-map [menu-bar spam add-region-to-spam-list]
|
||||
'("add region to spam list" . rmail-spam-filter-add-region-to-spam-list))
|
||||
(define-key rmail-mode-map [menu-bar spam add-region-to-spam-list]
|
||||
'("add region to spam list" . rmail-spam-filter-add-region-to-spam-list))
|
||||
(define-key rmail-summary-mode-map "\C-cSn" 'rmail-spam-filter-add-region-to-spam-list)
|
||||
(define-key rmail-mode-map "\C-cSn" 'rmail-spam-filter-add-region-to-spam-list)
|
||||
|
||||
(define-key rmail-summary-mode-map [menu-bar spam add-sender-to-spam-list]
|
||||
'("add sender to spam list" . rmail-spam-filter-add-sender-to-spam-list))
|
||||
(define-key rmail-mode-map [menu-bar spam add-sender-to-spam-list]
|
||||
'("add sender to spam list" . rmail-spam-filter-add-sender-to-spam-list))
|
||||
(define-key rmail-summary-mode-map "\C-cSr" 'rmail-spam-filter-add-sender-to-spam-list)
|
||||
(define-key rmail-mode-map "\C-cSr" 'rmail-spam-filter-add-sender-to-spam-list)
|
||||
|
||||
(define-key rmail-summary-mode-map [menu-bar spam add-subject-to-spam-list]
|
||||
'("add subject to spam list" . rmail-spam-filter-add-subject-to-spam-list))
|
||||
(define-key rmail-mode-map [menu-bar spam add-subject-to-spam-list]
|
||||
'("add subject to spam list" . rmail-spam-filter-add-subject-to-spam-list))
|
||||
(define-key rmail-summary-mode-map "\C-cSt" 'rmail-spam-filter-add-subject-to-spam-list)
|
||||
(define-key rmail-mode-map "\C-cSt" 'rmail-spam-filter-add-subject-to-spam-list)
|
||||
|
||||
|
||||
(defun rmail-bbdb-auto-delete-spam-entries ()
|
||||
"When deleting a message in RMAIL, check to see if the bbdb entry
|
||||
was created today, and if it was, prompt to delete it too. This function
|
||||
needs to be called via the `rmail-delete-message-hook' like this:
|
||||
\(add-hook 'rmail-delete-message-hook 'rmail-bbdb-auto-delete-spam-entries)"
|
||||
(interactive)
|
||||
(require 'bbdb-hooks)
|
||||
(if (not rmail-spam-filter-scanning-messages-now)
|
||||
(if (get-buffer "*BBDB*")
|
||||
(save-excursion
|
||||
(set-buffer (get-buffer "*BBDB*"))
|
||||
(if (bbdb-current-record)
|
||||
(if (equal
|
||||
(format-time-string bbdb-time-internal-format (current-time))
|
||||
(bbdb-record-getprop (bbdb-current-record) 'creation-date))
|
||||
(bbdb-delete-current-record (bbdb-current-record))))))))
|
||||
|
||||
(defun rmail-spam-filter-bbdb-dont-create-entries-for-spam ()
|
||||
"Make sure senderes of rmail messages marked as deleted are not added to bbdb.
|
||||
Need to add this as a hook like this:
|
||||
\(setq bbdb/mail-auto-create-p 'rmail-spam-filter-bbdb-dont-create-entries-for-spam)
|
||||
and this is also used in conjunction with rmail-bbdb-auto-delete-spam-entries.
|
||||
More doc: rmail-bbdb-auto-delete-spam-entries will delete newly created bbdb
|
||||
entries of mail that is deleted. However, if one scrolls back to the deleted
|
||||
messages, then the sender is again added to the bbdb. This function
|
||||
prevents this. Also, don't create entries for messages in the `rmail-spam-file'."
|
||||
(interactive)
|
||||
(not
|
||||
;; don't create a bbdb entry if one of the following conditions is satisfied:
|
||||
(or
|
||||
;; 1) looking at a deleted message:
|
||||
(rmail-message-deleted-p rmail-current-message)
|
||||
;; 2) looking at messages in rmail-spam-file:
|
||||
(string-match
|
||||
(expand-file-name rmail-spam-file)
|
||||
(expand-file-name (buffer-file-name rmail-buffer)))
|
||||
)))
|
||||
|
||||
;; activate bbdb-anti-spam measures:
|
||||
(if rmail-spam-filter-auto-delete-spam-bbdb-entries
|
||||
(progn
|
||||
(add-hook 'rmail-delete-message-hook 'rmail-bbdb-auto-delete-spam-entries)
|
||||
(setq bbdb/mail-auto-create-p 'rmail-spam-filter-bbdb-dont-create-entries-for-spam)
|
||||
))
|
||||
|
||||
(provide 'rmail-spam-filter)
|
||||
|
||||
;;; rmail-spam-filter ends here
|
||||
Loading…
Reference in New Issue
Block a user