diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-12-09 04:14:11 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-12-09 04:14:11 +0000 |
| commit | 1d1df709e13c089bdc4567d8553b53e8411edd1a (patch) | |
| tree | 48e18d8558add7975dad62ff2e0d2a0cc2f7131e /lisp/gnus/sieve-manage.el | |
| parent | 8d0f97a4a39b2624476ccc52452299fef53d1dc7 (diff) | |
| download | emacs-1d1df709e13c089bdc4567d8553b53e8411edd1a.tar.gz emacs-1d1df709e13c089bdc4567d8553b53e8411edd1a.tar.bz2 emacs-1d1df709e13c089bdc4567d8553b53e8411edd1a.zip | |
(declare-function): Add compatibility definition.
(password-read, password-cache-add, password-cache-remove): Declare as
functions.
Diffstat (limited to 'lisp/gnus/sieve-manage.el')
| -rw-r--r-- | lisp/gnus/sieve-manage.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el index 5cf14f7eb32..a4b763650c8 100644 --- a/lisp/gnus/sieve-manage.el +++ b/lisp/gnus/sieve-manage.el @@ -76,6 +76,9 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) (or (require 'password-cache nil t) (require 'password)) (eval-when-compile @@ -193,6 +196,10 @@ Valid states are `closed', `initial', `nonauth', and `auth'.") (when (fboundp 'set-buffer-multibyte) (set-buffer-multibyte nil))) +(declare-function password-read "password-cache" (prompt &optional key)) +(declare-function password-cache-add "password-cache" (key password)) +(declare-function password-cache-remove "password-cache" (key)) + ;; Uses the dynamically bound `reason' variable. (defvar reason) (defun sieve-manage-interactive-login (buffer loginfunc) |