1 ;;; epa-mail.el --- the EasyPG Assistant, minor-mode for mail composer
2 ;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
4 ;; Author: Daiki Ueno <ueno@unixuser.org>
5 ;; Keywords: PGP, GnuPG, mail, message
7 ;; This file is part of GNU Emacs.
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.
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.
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/>.
27 (defvar epa-mail-mode-map
28 (let ((keymap (make-sparse-keymap)))
29 (define-key keymap "\C-c\C-ed" 'epa-mail-decrypt)
30 (define-key keymap "\C-c\C-ev" 'epa-mail-verify)
31 (define-key keymap "\C-c\C-es" 'epa-mail-sign)
32 (define-key keymap "\C-c\C-ee" 'epa-mail-encrypt)
33 (define-key keymap "\C-c\C-ei" 'epa-mail-import-keys)
34 (define-key keymap "\C-c\C-eo" 'epa-insert-keys)
37 (defvar epa-mail-mode-hook nil)
38 (defvar epa-mail-mode-on-hook nil)
39 (defvar epa-mail-mode-off-hook nil)
42 (define-minor-mode epa-mail-mode
43 "A minor-mode for composing encrypted/clearsigned mails."
44 nil " epa-mail" epa-mail-mode-map)
46 (defun epa-mail--find-usable-key (keys usage)
47 "Find a usable key from KEYS for USAGE."
50 (let ((pointer (epg-key-sub-key-list (car keys))))
52 (if (and (memq usage (epg-sub-key-capability (car pointer)))
53 (not (memq (epg-sub-key-validity (car pointer))
55 (throw 'found (car keys)))
56 (setq pointer (cdr pointer))))
57 (setq keys (cdr keys)))))
60 (defun epa-mail-decrypt ()
61 "Decrypt OpenPGP armors in the current buffer.
62 The buffer is expected to contain a mail message.
64 Don't use this command in Lisp programs!"
66 (epa-decrypt-armor-in-region (point-min) (point-max)))
69 (defun epa-mail-verify ()
70 "Verify OpenPGP cleartext signed messages in the current buffer.
71 The buffer is expected to contain a mail message.
73 Don't use this command in Lisp programs!"
75 (epa-verify-cleartext-in-region (point-min) (point-max)))
78 (defun epa-mail-sign (start end signers mode)
79 "Sign the current buffer.
80 The buffer is expected to contain a mail message.
82 Don't use this command in Lisp programs!"
85 (goto-char (point-min))
86 (if (search-forward mail-header-separator nil t)
88 (setq epa-last-coding-system-specified
89 (or coding-system-for-write
90 (epa--select-safe-coding-system (point) (point-max))))
91 (let ((verbose current-prefix-arg))
92 (list (point) (point-max)
94 (epa-select-keys (epg-make-context epa-protocol)
95 "Select keys for signing.
96 If no one is selected, default secret key is used. "
99 (epa--read-signature-type)
101 (epa-sign-region start end signers mode))
104 (defun epa-mail-encrypt (start end recipients sign signers)
105 "Encrypt the current buffer.
106 The buffer is expected to contain a mail message.
108 Don't use this command in Lisp programs!"
111 (let ((verbose current-prefix-arg)
112 (context (epg-make-context epa-protocol))
113 recipients recipient-key)
114 (goto-char (point-min))
116 (narrow-to-region (point)
117 (if (search-forward mail-header-separator nil 0)
121 (mail-strip-quoted-names
122 (mapconcat #'identity
123 (nconc (mail-fetch-field "to" nil nil t)
124 (mail-fetch-field "cc" nil nil t)
125 (mail-fetch-field "bcc" nil nil t))
128 (setq recipients (delete ""
129 (split-string recipients "[ \t\n]+"))))
130 (goto-char (point-min))
131 (if (search-forward mail-header-separator nil t)
133 (setq epa-last-coding-system-specified
134 (or coding-system-for-write
135 (epa--select-safe-coding-system (point) (point-max))))
136 (list (point) (point-max)
140 "Select recipients for encryption.
141 If no one is selected, symmetric encryption will be performed. "
147 (epa-mail--find-usable-key
149 (epg-make-context epa-protocol)
150 (concat "<" recipient ">"))
152 (unless (or recipient-key
155 "No public key for %s; skip it? "
157 (error "No public key for %s" recipient))
160 (setq sign (if verbose (y-or-n-p "Sign? ")))
162 (epa-select-keys context
163 "Select keys for signing. "))))))
164 (epa-encrypt-region start end recipients sign signers))
167 (defun epa-mail-import-keys ()
168 "Import keys in the OpenPGP armor format in the current buffer.
169 The buffer is expected to contain a mail message.
171 Don't use this command in Lisp programs!"
173 (epa-import-armor-in-region (point-min) (point-max)))
176 (define-minor-mode epa-global-mail-mode
177 "Minor mode to hook EasyPG into Mail mode."
178 :global t :init-value nil :group 'epa-mail :version "23.1"
179 (remove-hook 'mail-mode-hook 'epa-mail-mode)
180 (if epa-global-mail-mode
181 (add-hook 'mail-mode-hook 'epa-mail-mode)))
185 ;; arch-tag: a6f82b3f-d177-4a11-af95-040da55927d2
186 ;;; epa-mail.el ends here