Commit 5a12b40c authored by Glenn Morris's avatar Glenn Morris

Add declare-function compatibility definition.

(epg-check-configuration, epg-configuration)
(message-options-set): Declare as functions.
(gnus-buffer-live-p, gnus-get-buffer-create): Autoload.
parent 43ec1709
......@@ -30,6 +30,10 @@
;;; Code:
;; For Emacs < 22.2.
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(eval-when-compile (require 'cl))
(require 'mm-decode)
(require 'mm-util)
......@@ -38,6 +42,10 @@
(defvar mc-pgp-always-sign)
(declare-function epg-check-configuration "ext:epg-config"
(config &optional minimum-version))
(declare-function epg-configuration "ext:epg-config" ())
(defvar mml2015-use (or
(condition-case nil
(progn
......@@ -396,6 +404,10 @@ Whether the passphrase is cached at all is controlled by
(insert (format "--%s--\n" boundary))
(goto-char (point-max))))
;; We require mm-decode, which requires mm-bodies, which autoloads
;; message-options-get (!).
(declare-function message-options-set "message" (symbol value))
(defun mml2015-mailcrypt-encrypt (cont &optional sign)
(let ((mc-pgp-always-sign
(or mc-pgp-always-sign
......@@ -1329,6 +1341,9 @@ If no one is selected, default secret key is used. "
;;; General wrapper
(autoload 'gnus-buffer-live-p "gnus-util")
(autoload 'gnus-get-buffer-create "gnus")
(defun mml2015-clean-buffer ()
(if (gnus-buffer-live-p mml2015-result-buffer)
(with-current-buffer mml2015-result-buffer
......
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