Mercurial > emacs
comparison lisp/gnus/mml-smime.el @ 57265:cee5a9d8ee71
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-580
Merge from gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-37
Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 29 Sep 2004 06:35:14 +0000 |
| parents | 55fd4f77387a |
| children | 18a818a2ee7c |
comparison
equal
deleted
inserted
replaced
| 57264:fc40eb786614 | 57265:cee5a9d8ee71 |
|---|---|
| 23 | 23 |
| 24 ;;; Commentary: | 24 ;;; Commentary: |
| 25 | 25 |
| 26 ;;; Code: | 26 ;;; Code: |
| 27 | 27 |
| 28 (eval-when-compile (require 'cl)) | |
| 29 | |
| 28 (require 'smime) | 30 (require 'smime) |
| 29 (require 'mm-decode) | 31 (require 'mm-decode) |
| 30 (autoload 'message-narrow-to-headers "message") | 32 (autoload 'message-narrow-to-headers "message") |
| 33 (autoload 'message-fetch-field "message") | |
| 31 | 34 |
| 32 (defun mml-smime-sign (cont) | 35 (defun mml-smime-sign (cont) |
| 33 (when (null smime-keys) | 36 (when (null smime-keys) |
| 34 (customize-variable 'smime-keys) | 37 (customize-variable 'smime-keys) |
| 35 (error "No S/MIME keys configured, use customize to add your key")) | 38 (error "No S/MIME keys configured, use customize to add your key")) |