Mercurial > emacs

comparison lisp/gnus/mml2015.el @ 95820:645fb33380d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove unnecessary eval-and-compile of autoloads.
author Glenn Morris <rgm@gnu.org>
date Wed, 11 Jun 2008 03:13:10 +0000
parents f42ef85caf91
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
95819:1d746ab5327f 95820:645fb33380d6
1 ;;; mml2015.el --- MIME Security with Pretty Good Privacy (PGP) 1 ;;; mml2015.el --- MIME Security with Pretty Good Privacy (PGP)
2 2
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. 4 ;; 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> 6 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
7 ;; Keywords: PGP MIME MML 7 ;; Keywords: PGP MIME MML
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
180 (replace-match "" t t) 180 (replace-match "" t t)
181 (forward-line 1))) 181 (forward-line 1)))
182 182
183 ;;; mailcrypt wrapper 183 ;;; mailcrypt wrapper
184 184
185 (eval-and-compile 185 (autoload 'mailcrypt-decrypt "mailcrypt")
186 (autoload 'mailcrypt-decrypt "mailcrypt") 186 (autoload 'mailcrypt-verify "mailcrypt")
187 (autoload 'mailcrypt-verify "mailcrypt") 187 (autoload 'mc-pgp-always-sign "mailcrypt")
188 (autoload 'mc-pgp-always-sign "mailcrypt") 188 (autoload 'mc-encrypt-generic "mc-toplev")
189 (autoload 'mc-encrypt-generic "mc-toplev") 189 (autoload 'mc-cleanup-recipient-headers "mc-toplev")
190 (autoload 'mc-cleanup-recipient-headers "mc-toplev") 190 (autoload 'mc-sign-generic "mc-toplev")
191 (autoload 'mc-sign-generic "mc-toplev"))
192 191
193 (defvar mc-default-scheme) 192 (defvar mc-default-scheme)
194 (defvar mc-schemes) 193 (defvar mc-schemes)
195 194
196 (defvar mml2015-decrypt-function 'mailcrypt-decrypt) 195 (defvar mml2015-decrypt-function 'mailcrypt-decrypt)
451 (insert (format "--%s--\n" boundary)) 450 (insert (format "--%s--\n" boundary))
452 (goto-char (point-max)))) 451 (goto-char (point-max))))
453 452
454 ;;; gpg wrapper 453 ;;; gpg wrapper
455 454
456 (eval-and-compile 455 (autoload 'gpg-decrypt "gpg")
457 (autoload 'gpg-decrypt "gpg") 456 (autoload 'gpg-verify "gpg")
458 (autoload 'gpg-verify "gpg") 457 (autoload 'gpg-verify-cleartext "gpg")
459 (autoload 'gpg-verify-cleartext "gpg") 458 (autoload 'gpg-sign-detached "gpg")
460 (autoload 'gpg-sign-detached "gpg") 459 (autoload 'gpg-sign-encrypt "gpg")
461 (autoload 'gpg-sign-encrypt "gpg") 460 (autoload 'gpg-encrypt "gpg")
462 (autoload 'gpg-encrypt "gpg") 461 (autoload 'gpg-passphrase-read "gpg")
463 (autoload 'gpg-passphrase-read "gpg"))
464 462
465 (defun mml2015-gpg-passphrase () 463 (defun mml2015-gpg-passphrase ()
466 (or (message-options-get 'gpg-passphrase) 464 (or (message-options-get 'gpg-passphrase)
467 (message-options-set 'gpg-passphrase (gpg-passphrase-read)))) 465 (message-options-set 'gpg-passphrase (gpg-passphrase-read))))
468 466
729 727
730 (defvar pgg-default-user-id) 728 (defvar pgg-default-user-id)
731 (defvar pgg-errors-buffer) 729 (defvar pgg-errors-buffer)
732 (defvar pgg-output-buffer) 730 (defvar pgg-output-buffer)
733 731
734 (eval-and-compile 732 (autoload 'pgg-decrypt-region "pgg")
735 (autoload 'pgg-decrypt-region "pgg") 733 (autoload 'pgg-verify-region "pgg")
736 (autoload 'pgg-verify-region "pgg") 734 (autoload 'pgg-sign-region "pgg")
737 (autoload 'pgg-sign-region "pgg") 735 (autoload 'pgg-encrypt-region "pgg")
738 (autoload 'pgg-encrypt-region "pgg") 736 (autoload 'pgg-parse-armor "pgg-parse")
739 (autoload 'pgg-parse-armor "pgg-parse"))
740 737
741 (defun mml2015-pgg-decrypt (handle ctl) 738 (defun mml2015-pgg-decrypt (handle ctl)
742 (catch 'error 739 (catch 'error
743 (let ((pgg-errors-buffer mml2015-result-buffer) 740 (let ((pgg-errors-buffer mml2015-result-buffer)
744 child handles result decrypt-status) 741 child handles result decrypt-status)
966 963
967 (defvar epg-user-id-alist) 964 (defvar epg-user-id-alist)
968 (defvar epg-digest-algorithm-alist) 965 (defvar epg-digest-algorithm-alist)
969 (defvar inhibit-redisplay) 966 (defvar inhibit-redisplay)
970 967
971 (eval-and-compile 968 (autoload 'epg-make-context "epg")
972 (autoload 'epg-make-context "epg") 969 (autoload 'epg-context-set-armor "epg")
973 (autoload 'epg-context-set-armor "epg") 970 (autoload 'epg-context-set-textmode "epg")
974 (autoload 'epg-context-set-textmode "epg") 971 (autoload 'epg-context-set-signers "epg")
975 (autoload 'epg-context-set-signers "epg") 972 (autoload 'epg-context-result-for "epg")
976 (autoload 'epg-context-result-for "epg") 973 (autoload 'epg-new-signature-digest-algorithm "epg")
977 (autoload 'epg-new-signature-digest-algorithm "epg") 974 (autoload 'epg-verify-result-to-string "epg")
978 (autoload 'epg-verify-result-to-string "epg") 975 (autoload 'epg-list-keys "epg")
979 (autoload 'epg-list-keys "epg") 976 (autoload 'epg-decrypt-string "epg")
980 (autoload 'epg-decrypt-string "epg") 977 (autoload 'epg-verify-string "epg")
981 (autoload 'epg-verify-string "epg") 978 (autoload 'epg-sign-string "epg")
982 (autoload 'epg-sign-string "epg") 979 (autoload 'epg-encrypt-string "epg")
983 (autoload 'epg-encrypt-string "epg") 980 (autoload 'epg-passphrase-callback-function "epg")
984 (autoload 'epg-passphrase-callback-function "epg") 981 (autoload 'epg-context-set-passphrase-callback "epg")
985 (autoload 'epg-context-set-passphrase-callback "epg") 982 (autoload 'epg-key-sub-key-list "epg")
986 (autoload 'epg-key-sub-key-list "epg") 983 (autoload 'epg-sub-key-capability "epg")
987 (autoload 'epg-sub-key-capability "epg") 984 (autoload 'epg-sub-key-validity "epg")
988 (autoload 'epg-sub-key-validity "epg") 985 (autoload 'epg-configuration "epg-config")
989 (autoload 'epg-configuration "epg-config") 986 (autoload 'epg-expand-group "epg-config")
990 (autoload 'epg-expand-group "epg-config") 987 (autoload 'epa-select-keys "epa")
991 (autoload 'epa-select-keys "epa"))
992 988
993 (defvar password-cache-expiry) 989 (defvar password-cache-expiry)
994 990
995 (defvar mml2015-epg-secret-key-id-list nil) 991 (defvar mml2015-epg-secret-key-id-list nil)
996 992