annotate lisp/gnus/spam-wash.el @ 93808:2c72483f42c9

(diary-view-entries-initially-flag): Rename view-diary-entries-initially. Keep old name as alias, update users. (calendar-mark-diary-entries-flag): Rename mark-diary-entries-in-calendar. Keep old name as alias, update users. (calendar-view-holidays-initially-flag): Rename view-calendar-holidays-initially. Keep old name as alias, update users. (calendar-mark-holidays-flag): Rename mark-holidays-in-calendar. Keep old name as alias, update users. (calendar-initial-window-hook): Rename initial-calendar-window-hook. Keep old name as alias, update users. (calendar-today-visible-hook): Rename today-visible-calendar-hook. Keep old name as alias, update users. (calendar-today-invisible-hook): Rename today-invisible-calendar-hook. Keep old name as alias, update users. (diary-iso-date-forms): Rename iso-date-diary-pattern. Update users. (diary-american-date-forms): Rename american-date-diary-pattern. Keep old name as alias, update users. (diary-european-date-forms): Rename european-date-diary-pattern. Keep old name as alias, update users. (calendar-iso-date-display-form): Rename iso-calendar-display-form. Keep old name as alias, update users. (calendar-european-date-display-form): Rename european-calendar-display-form. Keep old name as alias, update users. (calendar-american-date-display-form): Rename european-calendar-display-form. Keep old name as alias, update users. (diary-show-holidays-flag): Rename holidays-in-diary-buffer. Keep old name as alias, update users. (holiday-general-holidays): Rename general-holidays. Keep old name as alias, update users. (holiday-oriental-holidays): Rename oriental-holidays. Keep old name as alias, update users. (holiday-local-holidays): Rename local-holidays. Keep old name as alias, update users. (holiday-other-holidays): Rename other-holidays. Keep old name as alias, update users. (holiday-hebrew-holidays): Rename hebrew-holidays. Keep old name as alias, update users. (holiday-christian-holidays): Rename christian-holidays. Keep old name as alias, update users. (holiday-islamic-holidays): Rename islamic-holidays. Keep old name as alias, update users. (holiday-bahai-holidays): Rename bahai-holidays. Keep old name as alias, update users. (holiday-solar-holidays): Rename solar-holidays. Keep old name as alias, update users. (diary-fancy-buffer): Rename fancy-diary-buffer. Keep old name as alias, update users. (calendar-other-calendars-buffer): Rename other-calendars-buffer. Update users. (calendar-hebrew-yahrzeit-buffer): Rename cal-hebrew-yahrzeit-buffer. Update users. (calendar-increment-month): Rename increment-calendar-month. Keep old name as alias, update callers. (calendar-increment-month-cons): Rename old calendar-increment-month. Update callers. (calendar-extract-month): Rename extract-calendar-month. Keep old name as alias, update callers (calendar-extract-day): Rename extract-calendar-day. Keep old name as alias, update callers. (calendar-extract-year): Rename extract-calendar-year. Keep old name as alias, update callers. (calendar-generate-window): Rename generate-calendar-window. Update callers. (calendar-generate): Rename generate-calendar. Update callers. (calendar-generate-month): Rename generate-calendar-month. Update callers. (calendar-redraw): Rename redraw-calendar. Update callers. (calendar-describe-mode): Rename describe-calendar-mode. Update uses. (calendar-mouse-other-month): Rename mouse-calendar-other-month. Update callers. (calendar-update-mode-line): Rename update-calendar-mode-line. Update callers. (calendar-exit): Rename exit-calendar. Keep old name as alias, update callers. (calendar-mark-visible-date): Rename mark-visible-calendar-date. Keep old name as alias, update callers.
author Glenn Morris <rgm@gnu.org>
date Mon, 07 Apr 2008 01:58:55 +0000
parents b9e8ab94c460
children 1e3a407766b9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
85712
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
1 ;;; spam-wash.el --- wash spam before analysis
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
2
87665
b9e8ab94c460 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 86781
diff changeset
3 ;; Copyright (C) 2004, 2007, 2008 Free Software Foundation, Inc.
85712
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
4
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
5 ;; Author: Andrew Cohen <cohen@andy.bu.edu>
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
6 ;; Keywords: mail
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
7
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
9
86781
4a101c5e6b9f Standardize license text.
Glenn Morris <rgm@gnu.org>
parents: 85712
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
4a101c5e6b9f Standardize license text.
Glenn Morris <rgm@gnu.org>
parents: 85712
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
85712
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 3, or (at your option)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
13 ;; any later version.
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
14
86781
4a101c5e6b9f Standardize license text.
Glenn Morris <rgm@gnu.org>
parents: 85712
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
4a101c5e6b9f Standardize license text.
Glenn Morris <rgm@gnu.org>
parents: 85712
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
4a101c5e6b9f Standardize license text.
Glenn Morris <rgm@gnu.org>
parents: 85712
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
4a101c5e6b9f Standardize license text.
Glenn Morris <rgm@gnu.org>
parents: 85712
diff changeset
18 ;; GNU General Public License for more details.
85712
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
19
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
23 ;; Boston, MA 02110-1301, USA.
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
24
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
26
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
27 ;; This library decodes MIME encodings such as base64 and
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
28 ;; quoted-printable to allow for better spam analysis.
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
29 ;;
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
30 ;; `spam-wash' should be called in a buffer containing the message.
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
31
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
32 ;;; Code:
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
33
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
34 (require 'gnus-art)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
35
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
36 (defun spam-wash ()
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
37 "Treat the current buffer prior to spam analysis."
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
38 (interactive)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
39 (run-hooks 'gnus-article-decode-hook)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
40 (save-excursion
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
41 (save-restriction
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
42 (let* ((buffer-read-only nil)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
43 (gnus-inhibit-treatment t)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
44 (gnus-article-buffer (current-buffer))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
45 (handles (or (mm-dissect-buffer nil gnus-article-loose-mime)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
46 (and gnus-article-emulate-mime
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
47 (mm-uu-dissect))))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
48 handle)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
49 (when gnus-article-mime-handles
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
50 (mm-destroy-parts gnus-article-mime-handles)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
51 (setq gnus-article-mime-handle-alist nil))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
52 (setq gnus-article-mime-handles handles)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
53 (when (and handles
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
54 (or (not (stringp (car handles)))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
55 (cdr handles)))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
56 (article-goto-body)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
57 (delete-region (point) (point-max))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
58 (spam-treat-parts handles))))))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
59
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
60 (defun spam-treat-parts (handle)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
61 (if (stringp (car handle))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
62 (mapcar 'spam-treat-parts (cdr handle))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
63 (if (bufferp (car handle))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
64 (save-restriction
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
65 (narrow-to-region (point) (point))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
66 (when (let ((case-fold-search t))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
67 (string-match "text" (car (mm-handle-type handle))))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
68 (mm-insert-part handle))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
69 (goto-char (point-max)))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
70 (mapcar 'spam-treat-parts handle))))
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
71
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
72 (provide 'spam-wash)
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
73
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
74 ;;; arch-tag: 3c7f94a7-c96d-4c77-bb59-950df12bc85f
a3c27999decb Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
diff changeset
75 ;;; spam-wash.el ends here