Commit 431e6df6 authored by Glenn Morris's avatar Glenn Morris

Add declare-function compatibility definition.

(mml-compute-boundary, gnus-completing-read-with-default): Autoload.
(epg-key-sub-key-list, epg-sub-key-capability)
(epg-sub-key-validity, message-options-set): Declare as functions.
parent 5ab56288
......@@ -27,6 +27,10 @@
;;; Code:
;; For Emacs < 22.2.
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(eval-when-compile (require 'cl))
(require 'smime)
......@@ -216,6 +220,8 @@ Whether the passphrase is cached at all is controlled by
(quit))
result))
(autoload 'gnus-completing-read-with-default "gnus-util")
(defun mml-smime-openssl-encrypt-query ()
;; todo: try dns/ldap automatically first, before prompting user
(let (certs done)
......@@ -346,6 +352,10 @@ Whether the passphrase is cached at all is controlled by
(cons key-id mml-smime-epg-secret-key-id-list))
(copy-sequence passphrase)))))
(declare-function epg-key-sub-key-list "ext:epg" (key))
(declare-function epg-sub-key-capability "ext:epg" (sub-key))
(declare-function epg-sub-key-validity "ext:epg" (sub-key))
(defun mml-smime-epg-find-usable-key (keys usage)
(catch 'found
(while keys
......@@ -358,6 +368,12 @@ Whether the passphrase is cached at all is controlled by
(setq pointer (cdr pointer))))
(setq keys (cdr keys)))))
(autoload 'mml-compute-boundary "mml")
;; We require mm-decode, which requires mm-bodies, which autoloads
;; message-options-get (!).
(declare-function message-options-set "message" (symbol value))
(defun mml-smime-epg-sign (cont)
(let* ((inhibit-redisplay t)
(context (epg-make-context 'CMS))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment