elmo/elsp-spamfilter.el

   1 ;;; elsp-spamfilter.el --- Spamfilter support for elmo-spam.
   2
   3 ;; Copyright (C) 2003 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp>
   4 ;; Copyright (C) 2003 Yuuichi Teranishi <teranisi@gohome.org>
   5
   6 ;; Author: Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp>
   7 ;; Keywords: mail, net news, spam
   8
   9 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
  10
  11 ;; This program is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15 ;;
  16 ;; This program is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20 ;;
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25 ;;
  26
  27 ;;; Commentary:
  28 ;;
  29
  30 ;;; Code:
  31 ;;
  32 (require 'elmo-spam)
  33
  34 (require 'luna)
  35 (require 'mime-view)
  36 (require 'spamfilter)
  37
  38 (defgroup elmo-spam-spamfilter nil
  39   "Spam spamfilter configuration."
  40   :group 'elmo-spam)
  41
  42 (defcustom elmo-spam-spamfilter-corpus-filename
  43   (expand-file-name ".spamfilter" elmo-msgdb-directory)
  44   "Filename of the Spamfilter corpus."
  45   :type '(file :tag "Filename of the Spamfilter corpus")
  46   :group 'elmo-spam-spamfilter)
  47
  48 (eval-and-compile
  49   (luna-define-class elsp-spamfilter (elsp-generic)
  50                      (good-corpus bad-corpus))
  51   (luna-define-internal-accessors 'elsp-spamfilter))
  52
  53 (luna-define-method initialize-instance :around ((processor elsp-spamfilter)
  54                                                  &rest init-args)
  55   (luna-call-next-method)
  56   (let ((spamf-good-corpus (make-spamf-corpus
  57                             :name "spamf-good-corpus"
  58                             :table (make-hash-table :test #'eq)
  59                             :message-count 0))
  60         (spamf-bad-corpus  (make-spamf-corpus
  61                             :name "spamf-bad-corpus"
  62                             :table (make-hash-table :test #'eq)
  63                             :message-count 0)))
  64     (spamf-load-corpus-from-file elmo-spam-spamfilter-corpus-filename)
  65     (elsp-spamfilter-set-good-corpus-internal processor spamf-good-corpus)
  66     (elsp-spamfilter-set-bad-corpus-internal  processor spamf-bad-corpus)
  67     processor))
  68
  69 (luna-define-method elmo-spam-save-status ((processor elsp-spamfilter))
  70   (spamf-save-corpus-to-file
  71    elmo-spam-spamfilter-corpus-filename
  72    (elsp-spamfilter-good-corpus-internal processor)
  73    (elsp-spamfilter-bad-corpus-internal  processor)))
  74
  75 (defun elmo-spam-spamfilter-decode-buffer (buffer)
  76   (mime-display-message
  77    (mime-open-entity 'elmo-buffer buffer)
  78    (current-buffer)))
  79
  80 (luna-define-method elmo-spam-buffer-spam-p ((processor elsp-spamfilter)
  81                                              buffer)
  82   (with-temp-buffer
  83     (elmo-spam-spamfilter-decode-buffer buffer)
  84     (spamf-spam-buffer-p
  85      (current-buffer)
  86      (elsp-spamfilter-good-corpus-internal processor)
  87      (elsp-spamfilter-bad-corpus-internal  processor))))
  88
  89 (luna-define-method elmo-spam-register-spam-buffer ((processor elsp-spamfilter)
  90                                                     buffer)
  91   (with-temp-buffer
  92     (elmo-spam-spamfilter-decode-buffer buffer)
  93     (spamf-register-good-buffer
  94      (current-buffer)
  95      (elsp-spamfilter-good-corpus-internal processor))))
  96
  97 (luna-define-method elmo-spam-register-good-buffer ((processor elsp-spamfilter)
  98                                                     buffer)
  99   (with-temp-buffer
 100     (elmo-spam-spamfilter-decode-buffer buffer)
 101     (spamf-register-spam-buffer
 102      (current-buffer)
 103      (elsp-spamfilter-bad-corpus-internal  processor))))
 104
 105 (require 'product)
 106 (product-provide (provide 'elsp-spamfilter) (require 'elmo-version))
 107
 108 ;;; elsp-spamfilter.el ends here