# HG changeset patch # User Glenn Morris # Date 1197350893 0 # Node ID 39e105c953815e678a511f8496a2bcd74bc9efb7 # Parent 8cbce6c6b6c054eae95c20519b7a7059a99e3796 Add declare-function compatibility definition. (mm-decode-content-transfer-encoding) (mm-encode-content-transfer-encoding) (message-options-get, message-options-set): Autoload. (mc-encrypt-generic, gpg-sign-encrypt, gpg-encrypt): Declare as functions. diff -r 8cbce6c6b6c0 -r 39e105c95381 lisp/gnus/mml1991.el --- a/lisp/gnus/mml1991.el Tue Dec 11 05:26:52 2007 +0000 +++ b/lisp/gnus/mml1991.el Tue Dec 11 05:28:13 2007 +0000 @@ -28,6 +28,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-util)) @@ -39,6 +43,11 @@ (autoload 'quoted-printable-decode-region "qp") (autoload 'quoted-printable-encode-region "qp") +(autoload 'mm-decode-content-transfer-encoding "mm-bodies") +(autoload 'mm-encode-content-transfer-encoding "mm-bodies") +(autoload 'message-options-get "message") +(autoload 'message-options-set "message") + (defvar mml1991-use mml2015-use "The package used for PGP.") @@ -111,6 +120,9 @@ (insert-buffer-substring signature) (goto-char (point-max))))) +(declare-function mc-encrypt-generic "ext:mc-toplev" + (&optional recipients scheme start end from sign)) + (defun mml1991-mailcrypt-encrypt (cont &optional sign) (let ((text (current-buffer)) (mc-pgp-always-sign @@ -161,6 +173,13 @@ (eval-and-compile (autoload 'gpg-sign-cleartext "gpg")) +(declare-function gpg-sign-encrypt "ext:gpg" + (plaintext ciphertext result recipients &optional + passphrase sign-with-key armor textmode)) +(declare-function gpg-encrypt "ext:gpg" + (plaintext ciphertext result recipients &optional + passphrase armor textmode)) + (defun mml1991-gpg-sign (cont) (let ((text (current-buffer)) headers signature