Mercurial > emacs
annotate lisp/mail/rmail-spam-filter.el @ 102087:d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
(top-level): No need for cl now.
(rmail-spam-filter, rmail-use-spam-filter, rsf-file, rsf-no-blind-cc)
(rsf-beep, rsf-sleep-after-message, rsf-min-region-to-spam-list)
(rsf-autosave-newly-added-definitions, rsf-white-list)
(rsf-definitions-alist, rsf-check-field, rsf-add-subject-to-spam-list)
(rsf-add-sender-to-spam-list, rsf-add-region-to-spam-list)
(rsf-customize-spam-definitions, rsf-customize-group)
(rsf-custom-save-all, rsf-add-content-type-field): Doc fixes.
(rsf-check-field): Use setcar and setcdr rather than setf.
(rmail-spam-filter): Simplify.
(rsf-add-subject-to-spam-list, rsf-add-sender-to-spam-list)
(rsf-add-region-to-spam-list): Use rmail-get-header or
buffer-substring-no-properties. Regexp-quote the extracted data.
Make the messages less verbose.
(rmail-summary-mode-map, rmail-mode-map): Use easy-menu and dolist to
simplify things.
(rsf-add-content-type-field): Make the message less verbose.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 18 Feb 2009 04:33:30 +0000 |
parents | 5389a1f33e22 |
children | 7053d753a548 |
rev | line source |
---|---|
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
1 ;;; rmail-spam-filter.el --- spam filter for Rmail, the Emacs mail reader |
49862 | 2 |
101540
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
49862 | 5 ;; Keywords: email, spam, filter, rmail |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
6 ;; Author: Eli Tziperman <eli AT deas.harvard.edu> |
49862 | 7 |
8 ;; This file is part of GNU Emacs. | |
9 | |
94674
ef65fa4dca3b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
10 ;; GNU Emacs is free software: you can redistribute it and/or modify |
49862 | 11 ;; it under the terms of the GNU General Public License as published by |
94674
ef65fa4dca3b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; the Free Software Foundation, either version 3 of the License, or |
ef65fa4dca3b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; (at your option) any later version. |
49862 | 14 |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
94674
ef65fa4dca3b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
49862 | 22 |
23 ;;; Commentary: | |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
24 ;;; ----------- |
49862 | 25 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
26 ;;; Automatically recognize and delete junk email before it is |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
27 ;;; displayed in rmail/rmail-summary. Spam emails are defined by |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
28 ;;; specifying one or more of the sender, subject and contents. |
54002 | 29 ;;; URL: http://www.weizmann.ac.il/~eli/Downloads/rmail-spam-filter/ |
49862 | 30 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
31 ;;; Usage: |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
32 ;;; ------ |
49862 | 33 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
34 ;;; put in your .emacs: |
49862 | 35 |
101540
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
36 ;;; (require 'rmail-spam-filter) |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
37 |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
38 ;;; and use customize (in rmail-spam-filter group) to: |
49862 | 39 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
40 ;;; (*) turn on the variable rmail-use-spam-filter, |
49862 | 41 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
42 ;;; (*) specify in variable rsf-definitions-alist what sender, |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
43 ;;; subject and contents make an email be considered spam. |
49862 | 44 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
45 ;;; in addition, you may: |
49862 | 46 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
47 ;;; (*) Block future mail with the subject or sender of a message |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
48 ;;; while reading it in RMAIL: just click on the "Spam" item on the |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
49 ;;; menubar, and add the subject or sender to the list of spam |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
50 ;;; definitions using the mouse and the appropriate menu item. You |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
51 ;;; need to later also save the list of spam definitions using the |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
52 ;;; same menu item, or alternatively, see variable |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
53 ;;; `rsf-autosave-newly-added-definitions'. |
49862 | 54 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
55 ;;; (*) specify if blind-cc'ed mail (no "To:" header field) is to be |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
56 ;;; treated as spam (variable rsf-no-blind-cc; Thanks to Ethan |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
57 ;;; Brown <ethan@gso.saic.com> for this). |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
58 |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
59 ;;; (*) specify if rmail-spam-filter should ignore case of spam |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
60 ;;; definitions (variable rsf-ignore-case; Thanks to |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
61 ;;; Ethan Brown <ethan@gso.saic.com> for the suggestion). |
49862 | 62 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
63 ;;; (*) Specify a "white-list" of trusted senders. If any |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
64 ;;; rsf-white-list string matches a substring of the "From" |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
65 ;;; header, the message is flagged as a valid, non-spam message (Ethan |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
66 ;;; Brown <ethan@gso.saic.com>). |
49862 | 67 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
68 ;;; (*) rmail-spam-filter is best used with a general purpose spam |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
69 ;;; filter such as the procmail-based http://www.spambouncer.org/. |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
70 ;;; Spambouncer is set to only mark messages as spam/blocked/bulk/OK |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
71 ;;; via special headers, and these headers may then be defined in |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
72 ;;; rmail-spam-filter such that the spam is rejected by |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
73 ;;; rmail-spam-filter itself. |
49862 | 74 |
101540
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
75 (require 'rmail) |
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
76 (require 'rmailsum) |
49862 | 77 |
78 (defgroup rmail-spam-filter nil | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
79 "Spam filter for Rmail, the Emacs mail reader." |
49862 | 80 :group 'rmail) |
81 | |
82 (defcustom rmail-use-spam-filter nil | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
83 "Non-nil to activate the Rmail spam filter. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
84 Set `rsf-definitions-alist' to define what you consider spam emails." |
49862 | 85 :type 'boolean |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
86 :group 'rmail-spam-filter) |
49862 | 87 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
88 (defcustom rsf-file "~/XRMAIL-SPAM" |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
89 "Name of Rmail file for optionally saving some of the spam. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
90 You can either just delete spam, or save it in this file for |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
91 later review. Which action to take for each spam definition is |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
92 specified by the \"action\" element of the definition." |
49862 | 93 :type 'string |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
94 :group 'rmail-spam-filter) |
49862 | 95 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
96 (defcustom rsf-no-blind-cc nil |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
97 "Non-nil means mail with no explicit To: or Cc: is spam." |
49862 | 98 :type 'boolean |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
99 :group 'rmail-spam-filter) |
49862 | 100 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
101 (defcustom rsf-ignore-case nil |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
102 "Non-nil means to ignore case in `rsf-definitions-alist'." |
49862 | 103 :type 'boolean |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
104 :group 'rmail-spam-filter) |
49862 | 105 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
106 (defcustom rsf-beep nil |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
107 "Non-nil means to beep if spam is found." |
49862 | 108 :type 'boolean |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
109 :group 'rmail-spam-filter) |
49862 | 110 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
111 (defcustom rsf-sleep-after-message 2.0 |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
112 "Seconds to wait after displaying a message that spam was found." |
49862 | 113 :type 'number |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
114 :group 'rmail-spam-filter) |
53685
2d1c4cfccc4a
Use two semicolons as Commentary line prefix.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53665
diff
changeset
|
115 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
116 (defcustom rsf-min-region-to-spam-list 7 |
101540
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
117 "Minimum size of region that you can add to the spam list. |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
118 The aim is to avoid adding too short a region, which could result |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
119 in false positive identification of a valid message as spam." |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
120 :type 'integer |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
121 :group 'rmail-spam-filter) |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
122 |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
123 (defcustom rsf-autosave-newly-added-definitions nil |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
124 "Non-nil to auto-save new spam entries. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
125 Any time you add an entry via the \"Spam\" menu, immediately saves |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
126 the custom file." |
49862 | 127 :type 'boolean |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
128 :group 'rmail-spam-filter) |
49862 | 129 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
130 (defcustom rsf-white-list nil |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
131 "List of regexps to identify valid senders. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
132 If any element matches the \"From\" header, the message is |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
133 flagged as a valid, non-spam message. E.g., if your domain is |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
134 \"emacs.com\" then including \"emacs\\\\.com\" in this list would |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
135 flag all mail (purporting to be) from your colleagues as valid." |
49862 | 136 :type '(repeat string) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
137 :group 'rmail-spam-filter) |
49862 | 138 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
139 (defcustom rsf-definitions-alist nil |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
140 "A list of rules (definitions) matching spam messages. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
141 Each rule is an alist, with elements of the form (FIELD . REGEXP). |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
142 The recognized FIELDS are: from, to, subject, content-type, |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
143 x-spam-status, and contents. The \"contents\" element refers to |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
144 the entire text of the message; all the other elements refer to |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
145 message headers of the same name. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
146 |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
147 Using an empty-string for REGEXP is the same as omitting that |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
148 element altogether. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
149 |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
150 Each rule should contain one \"action\" element, saying what to do |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
151 if the rule is matched. This has the form (action . CHOICE), where |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
152 CHOICE may be either `output-and-delete' (save to `rsf-file', then delete), |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
153 or `delete-spam' (just delete). |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
154 |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
155 A rule matches only if all the specified elements match." |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
156 :type '(repeat |
49862 | 157 (list :format "%v" |
158 (cons :format "%v" :value (from . "") | |
159 (const :format "" from) | |
160 (string :tag "From" "")) | |
161 (cons :format "%v" :value (to . "") | |
162 (const :format "" to) | |
163 (string :tag "To" "")) | |
164 (cons :format "%v" :value (subject . "") | |
165 (const :format "" subject) | |
166 (string :tag "Subject" "")) | |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
167 (cons :format "%v" :value (content-type . "") |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
168 (const :format "" content-type) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
169 (string :tag "Content-Type" "")) |
49862 | 170 (cons :format "%v" :value (contents . "") |
171 (const :format "" contents) | |
172 (string :tag "Contents" "")) | |
91817
f0b22bbb77fb
;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
Bastien Guerry <bzg@altern.org>
parents:
79712
diff
changeset
|
173 (cons :format "%v" :value (x-spam-status . "") |
f0b22bbb77fb
;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
Bastien Guerry <bzg@altern.org>
parents:
79712
diff
changeset
|
174 (const :format "" x-spam-status) |
f0b22bbb77fb
;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
Bastien Guerry <bzg@altern.org>
parents:
79712
diff
changeset
|
175 (string :tag "X-Spam-Status" "")) |
49862 | 176 (cons :format "%v" :value (action . output-and-delete) |
177 (const :format "" action) | |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
178 (choice :tag "Action selection" |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
179 (const :tag "Output and delete" output-and-delete) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
180 (const :tag "Delete" delete-spam) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
181 )))) |
49862 | 182 :group 'rmail-spam-filter) |
183 | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
184 ;; FIXME nothing uses this, and it could just be let-bound. |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
185 (defvar rsf-scanning-messages-now nil |
101540
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
186 "Non-nil when `rmail-spam-filter' scans messages.") |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
187 |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
188 ;; the advantage over the automatic filter definitions is the AND conjunction |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
189 ;; of in-one-definition-elements |
101540
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
190 (defun rsf-check-field (field-symbol message-data definition result) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
191 "Check if a message appears to be spam. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
192 FIELD-SYMBOL is one of the possible keys of a `rsf-definitions-alist' |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
193 rule; e.g. from, to. MESSAGE-DATA is a string giving the value of |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
194 FIELD-SYMBOL in the current message. DEFINITION is the element of |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
195 `rsf-definitions-alist' currently being checked. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
196 |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
197 RESULT is a cons of the form (MAYBE-SPAM . IS-SPAM). If the car |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
198 is nil, or if the entry for FIELD-SYMBOL in this DEFINITION is |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
199 absent or the empty string, this function does nothing. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
200 |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
201 Otherwise, if MESSAGE-DATA is non-nil and the entry matches it, |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
202 the cdr is set to t. Else, the car is set to nil." |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
203 (let ((definition-field (cdr (assoc field-symbol definition)))) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
204 ;; Only in this case can maybe-spam change from t to nil. |
101540
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
205 (if (and (car result) (> (length definition-field) 0)) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
206 ;; If FIELD-SYMBOL field appears in the message, and also in |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
207 ;; spam definition list, this is potentially a spam. |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
208 (if (and message-data |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
209 (string-match definition-field message-data)) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
210 ;; If we do not get a contradiction from another field, this is spam |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
211 (setcdr result t) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
212 ;; The message data contradicts the specification, this is not spam. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
213 ;; Note that the total absence of a header specified in the |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
214 ;; rule means this cannot be spam. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
215 (setcar result nil))))) |
49862 | 216 |
217 (defun rmail-spam-filter (msg) | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
218 "Return nil if message number MSG is spam based on `rsf-definitions-alist'. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
219 If spam, optionally output message to a file `rsf-file' and delete |
49862 | 220 it from rmail file. Called for each new message retrieved by |
221 `rmail-get-new-mail'." | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
222 (let ((return-value) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
223 ;; maybe-spam is in the car, this-is-a-spam-email in cdr. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
224 (maybe-spam '(nil . nil)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
225 message-sender message-to message-cc message-recipients |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
226 message-subject message-content-type message-spam-status |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
227 (num-spam-definition-elements (safe-length rsf-definitions-alist)) |
49862 | 228 (num-element 0) |
229 (exit-while-loop nil) | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
230 ;; Do we want to ignore case in spam definitions. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
231 (case-fold-search rsf-ignore-case) |
101540
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
232 ;; make sure bbdb does not create entries for messages while spam |
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
233 ;; filter is scanning the rmail file: |
5389a1f33e22
Remove leading `*' from defcustom docs.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
234 (bbdb/mail_auto_create_p nil) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
235 ;; Other things may wish to know if we are running (nothing |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
236 ;; uses this at present). |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
237 (rsf-scanning-messages-now t)) |
49862 | 238 (save-excursion |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
239 ;; Narrow buffer to header of message and get Sender and |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
240 ;; Subject fields to be used below: |
49862 | 241 (save-restriction |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
242 (goto-char (rmail-msgbeg msg)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
243 (narrow-to-region (point) (progn (search-forward "\n\n") (point))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
244 (setq message-sender (mail-fetch-field "From")) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
245 (setq message-to (mail-fetch-field "To") |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
246 message-cc (mail-fetch-field "Cc") |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
247 message-recipients (or (and message-to message-cc |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
248 (concat message-to ", " message-cc)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
249 message-to |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
250 message-cc)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
251 (setq message-subject (mail-fetch-field "Subject")) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
252 (setq message-content-type (mail-fetch-field "Content-Type")) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
253 (setq message-spam-status (mail-fetch-field "X-Spam-Status"))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
254 ;; Check for blind CC condition. Set vars such that while |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
255 ;; loop will be bypassed and spam condition will trigger. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
256 (and rsf-no-blind-cc |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
257 (null message-recipients) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
258 (setq exit-while-loop t |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
259 maybe-spam '(t . t))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
260 ;; Check white list, and likewise cause while loop bypass. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
261 (and message-sender |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
262 (let ((white-list rsf-white-list) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
263 (found nil)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
264 (while (and (not found) white-list) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
265 (if (string-match (car white-list) message-sender) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
266 (setq found t) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
267 (setq white-list (cdr white-list)))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
268 found) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
269 (setq exit-while-loop t |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
270 maybe-spam '(nil . nil))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
271 ;; Scan all elements of the list rsf-definitions-alist. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
272 (while (and (< num-element num-spam-definition-elements) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
273 (not exit-while-loop)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
274 (let ((definition (nth num-element rsf-definitions-alist))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
275 ;; Initialize car, which is set to t in one of two cases: |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
276 ;; (1) unspecified definition-elements are found in |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
277 ;; rsf-definitions-alist, (2) empty field is found in the |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
278 ;; message being scanned (e.g. empty subject, sender, |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
279 ;; recipients, etc). It is set to nil if a non-empty field |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
280 ;; of the scanned message does not match a specified field |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
281 ;; in rsf-definitions-alist. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
282 ;; FIXME the car is never set to t?! |
53685
2d1c4cfccc4a
Use two semicolons as Commentary line prefix.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53665
diff
changeset
|
283 |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
284 ;; Initialize cdr to nil. This is set to t if one of the |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
285 ;; spam definitions matches a field in the scanned message. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
286 (setq maybe-spam (cons t nil)) |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
287 |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
288 ;; Maybe the different fields should also be done in a |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
289 ;; loop to make the whole thing more flexible. |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
290 |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
291 ;; If sender field is not specified in message being |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
292 ;; scanned, AND if "from" field does not appear in spam |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
293 ;; definitions for this element, this may still be spam due |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
294 ;; to another element... |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
295 (rsf-check-field 'from message-sender definition maybe-spam) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
296 ;; Next, if spam was not ruled out already, check recipients: |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
297 (rsf-check-field 'to message-recipients definition maybe-spam) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
298 ;; Next, if spam was not ruled out already, check subject: |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
299 (rsf-check-field 'subject message-subject definition maybe-spam) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
300 ;; Next, if spam was not ruled out already, check content-type: |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
301 (rsf-check-field 'content-type message-content-type |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
302 definition maybe-spam) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
303 ;; Next, if spam was not ruled out already, check contents: |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
304 ;; If contents field is not specified, this may still be |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
305 ;; spam due to another element... |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
306 (rsf-check-field 'contents |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
307 (buffer-substring-no-properties |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
308 (rmail-msgbeg msg) (rmail-msgend msg)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
309 definition maybe-spam) |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
310 |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
311 ;; Finally, check the X-Spam-Status header. You will typically |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
312 ;; look for the "Yes" string in this header field. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
313 (rsf-check-field 'x-spam-status message-spam-status |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
314 definition maybe-spam) |
91817
f0b22bbb77fb
;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
Bastien Guerry <bzg@altern.org>
parents:
79712
diff
changeset
|
315 |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
316 ;; If the search in rsf-definitions-alist found |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
317 ;; that this email is spam, output the email to the spam |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
318 ;; rmail file, mark the email for deletion, leave the |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
319 ;; while loop and return nil so that an rmail summary line |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
320 ;; wont be displayed for this message: (FIXME ?) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
321 (if (and (car maybe-spam) (cdr maybe-spam)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
322 (setq exit-while-loop t) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
323 ;; Else, spam was not yet found, proceed to next element |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
324 ;; in rsf-definitions-alist: |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
325 (setq num-element (1+ num-element))))) |
49862 | 326 |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
327 (if (and (car maybe-spam) (cdr maybe-spam)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
328 ;; Temporarily set rmail-current-message in order to output |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
329 ;; and delete the spam msg if needed: |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
330 (let ((rmail-current-message msg) ; FIXME does this do anything? |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
331 (action (cdr (assq 'action |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
332 (nth num-element rsf-definitions-alist))))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
333 ;; Check action item in rsf-definitions-alist and do it. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
334 (cond |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
335 ((eq action 'output-and-delete) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
336 ;; FIXME the prompt to write a new file leaves the raw |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
337 ;; mbox buffer visible. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
338 (rmail-output rsf-file) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
339 ;; Don't delete if automatic deletion after output is on. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
340 (or rmail-delete-after-output (rmail-delete-message))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
341 ((eq action 'delete-spam) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
342 (rmail-delete-message))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
343 (setq return-value nil)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
344 (setq return-value t))) |
49862 | 345 return-value)) |
346 | |
347 ;; define functions for interactively adding sender/subject of a | |
348 ;; specific message to the spam definitions while reading it, using | |
349 ;; the menubar: | |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
350 (defun rsf-add-subject-to-spam-list () |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
351 "Add the \"Subject\" header to the spam list." |
49862 | 352 (interactive) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
353 (let ((message-subject (regexp-quote (rmail-get-header "Subject")))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
354 ;; Note the use of a backquote and comma on the subject line here, |
49862 | 355 ;; to make sure message-subject is actually evaluated and its value |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
356 ;; substituted. |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
357 (add-to-list 'rsf-definitions-alist |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
358 ;; Note that an empty elment is treated the same as |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
359 ;; an absent one, so why does it bother to add them? |
49862 | 360 (list '(from . "") |
361 '(to . "") | |
362 `(subject . ,message-subject) | |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
363 '(content-type . "") |
49862 | 364 '(contents . "") |
365 '(action . output-and-delete)) | |
366 t) | |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
367 (customize-mark-to-save 'rsf-definitions-alist) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
368 (if rsf-autosave-newly-added-definitions |
49862 | 369 (progn |
370 (custom-save-all) | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
371 (message "Added subject `%s' to spam list, and saved it" |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
372 message-subject)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
373 (message "Added subject `%s' to spam list (remember to save it)" |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
374 message-subject)))) |
49862 | 375 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
376 (defun rsf-add-sender-to-spam-list () |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
377 "Add the \"From\" address to the spam list." |
49862 | 378 (interactive) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
379 (let ((message-sender (regexp-quote (rmail-get-header "From")))) |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
380 (add-to-list 'rsf-definitions-alist |
49862 | 381 (list `(from . ,message-sender) |
382 '(to . "") | |
383 '(subject . "") | |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
384 '(content-type . "") |
49862 | 385 '(contents . "") |
386 '(action . output-and-delete)) | |
387 t) | |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
388 (customize-mark-to-save 'rsf-definitions-alist) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
389 (if rsf-autosave-newly-added-definitions |
49862 | 390 (progn |
391 (custom-save-all) | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
392 (message "Added sender `%s' to spam list, and saved it" |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
393 message-sender)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
394 (message "Added sender `%s' to spam list (remember to save it)" |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
395 message-sender)))) |
49862 | 396 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
397 (defun rsf-add-region-to-spam-list () |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
398 "Add the marked region in the Rmail buffer to the spam list. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
399 Adds to spam definitions as a \"contents\" field." |
49862 | 400 (interactive) |
401 (set-buffer rmail-buffer) | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
402 ;; Check if region is inactive or has zero size. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
403 (if (not (and mark-active (not (= (region-beginning) (region-end))))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
404 ;; If inactive, print error message. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
405 (message "You must highlight some text in the Rmail buffer") |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
406 (if (< (- (region-end) (region-beginning)) rsf-min-region-to-spam-list) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
407 (message "Region is too small (minimum %d characters)" |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
408 rsf-min-region-to-spam-list) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
409 ;; If region active and long enough, add to list of spam definitions. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
410 (let ((region-to-spam-list (regexp-quote |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
411 (buffer-substring-no-properties |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
412 (region-beginning) (region-end))))) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
413 (add-to-list 'rsf-definitions-alist |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
414 (list '(from . "") |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
415 '(to . "") |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
416 '(subject . "") |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
417 '(content-type . "") |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
418 `(contents . ,region-to-spam-list) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
419 '(action . output-and-delete)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
420 t) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
421 (customize-mark-to-save 'rsf-definitions-alist) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
422 (if rsf-autosave-newly-added-definitions |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
423 (progn |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
424 (custom-save-all) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
425 (message "Added highlighted text:\n%s\n\ |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
426 to the spam list, and saved it" region-to-spam-list)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
427 (message "Added highlighted text:\n%s\n\ |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
428 to the spam list (remember to save it)" region-to-spam-list)))))) |
49862 | 429 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
430 (defun rsf-customize-spam-definitions () |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
431 "Customize `rsf-definitions-alist'." |
49862 | 432 (interactive) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
433 (customize-variable 'rsf-definitions-alist)) |
49862 | 434 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
435 (defun rsf-customize-group () |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
436 "Customize the rmail-spam-filter group." |
49862 | 437 (interactive) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
438 (customize-group 'rmail-spam-filter)) |
49862 | 439 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
440 (defun rsf-custom-save-all () |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
441 "Interactive version of `custom-save-all'." |
49862 | 442 (interactive) |
443 (custom-save-all)) | |
444 | |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
445 ;; Add menu items (and keyboard shortcuts) to both rmail and rmail-summary. |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
446 (dolist (map (list rmail-summary-mode-map rmail-mode-map)) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
447 (easy-menu-define nil map nil |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
448 '("Spam" |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
449 ["Add subject to spam list" rsf-add-subject-to-spam-list] |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
450 ["Add sender to spam list" rsf-add-sender-to-spam-list] |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
451 ["Add region to spam list" rsf-add-region-to-spam-list] |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
452 ["Save spam definitions" rsf-custom-save-all] |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
453 "--" |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
454 ["Customize spam definitions" rsf-customize-spam-definitions] |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
455 ["Browse spam customizations" rsf-customize-group] |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
456 )) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
457 (define-key map "\C-cSt" 'rsf-add-subject-to-spam-list) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
458 (define-key map "\C-cSr" 'rsf-add-sender-to-spam-list) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
459 (define-key map "\C-cSn" 'rsf-add-region-to-spam-list) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
460 (define-key map "\C-cSa" 'rsf-custom-save-all) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
461 (define-key map "\C-cSd" 'rsf-customize-spam-definitions) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
462 (define-key map "\C-cSg" 'rsf-customize-group)) |
49862 | 463 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
464 (defun rsf-add-content-type-field () |
72643
27b1d7466c09
(rsf-scanning-messages-now): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
68648
diff
changeset
|
465 "Maintain backward compatibility for `rmail-spam-filter'. |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
466 The most recent version of `rmail-spam-filter' checks the content-type |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
467 field of the incoming mail to see if it is spam. The format of |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
468 `rsf-definitions-alist' has therefore changed. This function |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
469 checks to see if the old format is used, and updates it if necessary." |
49862 | 470 (interactive) |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
471 (if (and rsf-definitions-alist |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
472 (not (assoc 'content-type (car rsf-definitions-alist)))) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
473 (let ((result nil) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
474 (current nil) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
475 (definitions rsf-definitions-alist)) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
476 (while definitions |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
477 (setq current (car definitions)) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
478 (setq definitions (cdr definitions)) |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
479 (setq result |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
480 (append result |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
481 (list |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
482 (list (assoc 'from current) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
483 (assoc 'to current) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
484 (assoc 'subject current) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
485 (cons 'content-type "") |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
486 (assoc 'contents current) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
487 (assoc 'action current)))))) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
488 (setq rsf-definitions-alist result) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
489 (customize-mark-to-save 'rsf-definitions-alist) |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
490 (if rsf-autosave-newly-added-definitions |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
491 (progn |
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
492 (custom-save-all) |
102087
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
493 (message "Spam definitions converted to new format, and saved")) |
d6de2e3c19e8
(rmail-summary-mode-map): Remove unneeded declaration.
Glenn Morris <rgm@gnu.org>
parents:
101540
diff
changeset
|
494 (message "Spam definitions converted to new format (remember to save)"))))) |
49862 | 495 |
496 (provide 'rmail-spam-filter) | |
497 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91846
diff
changeset
|
498 ;; arch-tag: 03e1d45d-b72f-4dd7-8f04-e7fd78249746 |
53730
2a4fc5c14ddd
Change rmail-spam-filter- or spam-filter-
Richard M. Stallman <rms@gnu.org>
parents:
53685
diff
changeset
|
499 ;;; rmail-spam-fitler ends here |