mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-26 10:49:33 +00:00
Address compilation warnings due to 2016-01-03 mml refactoring.
* lisp/gnus/mml-sec.el (password-cache, mm-encode): Require. (message-options-get): Autoload. (message-options-set): Declare. (mml-secure-cache-passphrase, mml-secure-passphrase-cache-expiry): Simplify default value. * lisp/gnus/mml-smime.el (message-options-set): Remove declaration. * lisp/gnus/mml1991.el, lisp/gnus/mml2015.el: No longer a need for password-cache.
This commit is contained in:
parent
a1ef911f31
commit
56df61712a
@ -27,6 +27,8 @@
|
|||||||
|
|
||||||
(require 'gnus-util)
|
(require 'gnus-util)
|
||||||
(require 'epg)
|
(require 'epg)
|
||||||
|
(require 'password-cache)
|
||||||
|
(require 'mm-encode)
|
||||||
|
|
||||||
(autoload 'mail-strip-quoted-names "mail-utils")
|
(autoload 'mail-strip-quoted-names "mail-utils")
|
||||||
(autoload 'mml2015-sign "mml2015")
|
(autoload 'mml2015-sign "mml2015")
|
||||||
@ -35,6 +37,7 @@
|
|||||||
(autoload 'mml1991-encrypt "mml1991")
|
(autoload 'mml1991-encrypt "mml1991")
|
||||||
(autoload 'message-fetch-field "message")
|
(autoload 'message-fetch-field "message")
|
||||||
(autoload 'message-goto-body "message")
|
(autoload 'message-goto-body "message")
|
||||||
|
(autoload 'message-options-get "message")
|
||||||
(autoload 'mml-insert-tag "mml")
|
(autoload 'mml-insert-tag "mml")
|
||||||
(autoload 'mml-smime-sign "mml-smime")
|
(autoload 'mml-smime-sign "mml-smime")
|
||||||
(autoload 'mml-smime-encrypt "mml-smime")
|
(autoload 'mml-smime-encrypt "mml-smime")
|
||||||
@ -44,6 +47,8 @@
|
|||||||
(autoload 'mml-smime-verify-test "mml-smime")
|
(autoload 'mml-smime-verify-test "mml-smime")
|
||||||
(autoload 'epa--select-keys "epa")
|
(autoload 'epa--select-keys "epa")
|
||||||
|
|
||||||
|
(declare-function message-options-set "message" (symbol value))
|
||||||
|
|
||||||
(defvar mml-sign-alist
|
(defvar mml-sign-alist
|
||||||
'(("smime" mml-smime-sign-buffer mml-smime-sign-query)
|
'(("smime" mml-smime-sign-buffer mml-smime-sign-query)
|
||||||
("pgp" mml-pgp-sign-buffer list)
|
("pgp" mml-pgp-sign-buffer list)
|
||||||
@ -110,20 +115,15 @@ details."
|
|||||||
:group 'message
|
:group 'message
|
||||||
:type 'boolean)
|
:type 'boolean)
|
||||||
|
|
||||||
(defcustom mml-secure-cache-passphrase
|
;; FIXME If it's "NOT recommended", why is it the default?
|
||||||
(if (boundp 'password-cache)
|
(defcustom mml-secure-cache-passphrase password-cache
|
||||||
password-cache
|
|
||||||
t)
|
|
||||||
"If t, cache OpenPGP or S/MIME passphrases inside Emacs.
|
"If t, cache OpenPGP or S/MIME passphrases inside Emacs.
|
||||||
Passphrase caching in Emacs is NOT recommended. Use gpg-agent instead.
|
Passphrase caching in Emacs is NOT recommended. Use gpg-agent instead.
|
||||||
See Info node `(message) Security'."
|
See Info node `(message) Security'."
|
||||||
:group 'message
|
:group 'message
|
||||||
:type 'boolean)
|
:type 'boolean)
|
||||||
|
|
||||||
(defcustom mml-secure-passphrase-cache-expiry
|
(defcustom mml-secure-passphrase-cache-expiry password-cache-expiry
|
||||||
(if (boundp 'password-cache-expiry)
|
|
||||||
password-cache-expiry
|
|
||||||
16)
|
|
||||||
"How many seconds the passphrase is cached.
|
"How many seconds the passphrase is cached.
|
||||||
Whether the passphrase is cached at all is controlled by
|
Whether the passphrase is cached at all is controlled by
|
||||||
`mml-secure-cache-passphrase'."
|
`mml-secure-cache-passphrase'."
|
||||||
|
@ -356,10 +356,6 @@ Whether the passphrase is cached at all is controlled by
|
|||||||
|
|
||||||
(autoload 'mml-compute-boundary "mml")
|
(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)
|
(defun mml-smime-epg-sign (cont)
|
||||||
(let ((inhibit-redisplay t)
|
(let ((inhibit-redisplay t)
|
||||||
(boundary (mml-compute-boundary cont)))
|
(boundary (mml-compute-boundary cont)))
|
||||||
|
@ -25,11 +25,6 @@
|
|||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(eval-and-compile
|
|
||||||
(if (locate-library "password-cache")
|
|
||||||
(require 'password-cache)
|
|
||||||
(require 'password)))
|
|
||||||
|
|
||||||
(eval-when-compile
|
(eval-when-compile
|
||||||
(require 'cl)
|
(require 'cl)
|
||||||
(require 'mm-util))
|
(require 'mm-util))
|
||||||
|
@ -27,11 +27,6 @@
|
|||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(eval-and-compile
|
|
||||||
(if (locate-library "password-cache")
|
|
||||||
(require 'password-cache)
|
|
||||||
(require 'password)))
|
|
||||||
|
|
||||||
(eval-when-compile (require 'cl))
|
(eval-when-compile (require 'cl))
|
||||||
(require 'mm-decode)
|
(require 'mm-decode)
|
||||||
(require 'mm-util)
|
(require 'mm-util)
|
||||||
|
Loading…
Reference in New Issue
Block a user