cgit.sxemacs.org Git - gnus/blob - lisp/sieve.el

   1 ;;; sieve.el --- Utilities to manage sieve scripts
   2
   3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
   4
   5 ;; Author: Simon Josefsson <simon@josefsson.org>
   6
   7 ;; This file is part of GNU Emacs.
   8
   9 ;; GNU Emacs is free software: you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation, either version 3 of the License, or
  12 ;; (at your option) any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 ;;; Commentary:
  23
  24 ;; This file contain utilities to facilate upload, download and
  25 ;; general management of sieve scripts.  Currently only the
  26 ;; Managesieve protocol is supported (using sieve-manage.el), but when
  27 ;; (useful) alternatives become available, they might be supported as
  28 ;; well.
  29 ;;
  30 ;; The cursor navigation was inspired by biff-mode by Franklin Lee.
  31 ;;
  32 ;; Release history:
  33 ;;
  34 ;; 2001-10-31 Committed to Oort Gnus.
  35 ;; 2002-07-27 Fix down-mouse-2 and down-mouse-3 in manage-mode.  Fix menubar
  36 ;;            in manage-mode.  Change some messages.  Added sieve-deactivate*,
  37 ;;            sieve-remove.  Fixed help text in manage-mode.  Suggested by
  38 ;;            Ned Ludd.
  39 ;;
  40 ;; Todo:
  41 ;;
  42 ;; * Namespace?  This file contains `sieve-manage' and
  43 ;;   `sieve-manage-mode', but there is a sieve-manage.el file as well.
  44 ;;   Can't think of a good solution though, this file need a *-mode,
  45 ;;   and naming it `sieve-mode' would collide with sieve-mode.el.  One
  46 ;;   solution would be to come up with some better name that this file
  47 ;;   can use that doesn't have the managesieve specific "manage" in
  48 ;;   it.  sieve-dired?  i dunno.  we could copy all off sieve.el into
  49 ;;   sieve-manage.el too, but I'd like to separate the interface from
  50 ;;   the protocol implementation since the backends are likely to
  51 ;;   change (well).
  52 ;;
  53 ;; * Define servers?  We could have a customize buffer to create a server,
  54 ;;   with authentication/stream/etc parameters, much like Gnus, and then
  55 ;;   only use names of defined servers when interacting with M-x sieve-*.
  56 ;;   Right now you can't use STARTTLS, which sieve-manage.el provides
  57
  58 ;;; Code:
  59
  60 (require 'sieve-manage)
  61 (require 'sieve-mode)
  62
  63 ;; User customizable variables:
  64
  65 (defgroup sieve nil
  66   "Manage sieve scripts."
  67   :version "22.1"
  68   :group 'tools)
  69
  70 (defcustom sieve-new-script "<new script>"
  71   "Name of name script indicator."
  72   :type 'string
  73   :group 'sieve)
  74
  75 (defcustom sieve-buffer "*sieve*"
  76   "Name of sieve management buffer."
  77   :type 'string
  78   :group 'sieve)
  79
  80 (defcustom sieve-template "\
  81 require \"fileinto\";
  82
  83 # Example script (remove comment character '#' to make it effective!):
  84 #
  85 # if header :contains \"from\" \"coyote\" {
  86 #   discard;
  87 # } elsif header :contains [\"subject\"] [\"$$$\"] {
  88 #   discard;
  89 # } else {
  90 #  fileinto \"INBOX\";
  91 # }
  92 "
  93   "Template sieve script."
  94   :type 'string
  95   :group 'sieve)
  96
  97 ;; Internal variables:
  98
  99 (defvar sieve-manage-buffer nil)
 100 (defvar sieve-buffer-header-end nil)
 101
 102 ;; Sieve-manage mode:
 103
 104 (defvar sieve-manage-mode-map nil
 105   "Keymap for `sieve-manage-mode'.")
 106
 107 (if sieve-manage-mode-map
 108     ()
 109   (setq sieve-manage-mode-map (make-sparse-keymap))
 110   (suppress-keymap sieve-manage-mode-map)
 111   ;; various
 112   (define-key sieve-manage-mode-map "?" 'sieve-help)
 113   (define-key sieve-manage-mode-map "h" 'sieve-help)
 114   (define-key sieve-manage-mode-map "q" 'sieve-bury-buffer)
 115   ;; activating
 116   (define-key sieve-manage-mode-map "m" 'sieve-activate)
 117   (define-key sieve-manage-mode-map "u" 'sieve-deactivate)
 118   (define-key sieve-manage-mode-map "\M-\C-?" 'sieve-deactivate-all)
 119   ;; navigation keys
 120   (define-key sieve-manage-mode-map "\C-p" 'sieve-prev-line)
 121   (define-key sieve-manage-mode-map [up] 'sieve-prev-line)
 122   (define-key sieve-manage-mode-map "\C-n" 'sieve-next-line)
 123   (define-key sieve-manage-mode-map [down] 'sieve-next-line)
 124   (define-key sieve-manage-mode-map " " 'sieve-next-line)
 125   (define-key sieve-manage-mode-map "n" 's