(declare-function): Add compatibility definition.

(password-read, password-cache-add, password-cache-remove): Declare as
functions.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index e271520f14eb619ff830e34d0143c960e3572911..e54a5f4783e2c6d1e9c660005ae6068734521eef 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -3,8 +3,8 @@
        * gnus-uu.el (gnus-uu-yenc-article): Use insert-buffer-substring.
 
        * gnus-art.el, gnus-spec.el, gnus-sum.el, gnus-util.el:
-       * message.el, mm-view.el, smime.el: Add declare-function compatibility
-       definition.
+       * message.el, mm-view.el, sieve-manage, smime.el:
+       Add declare-function compatibility definition.
 
        * gnus-art.el (w3-region, w3m-region, Info-menu):
        * gnus-spec.el (gnus-summary-from-or-to-or-newsgroups):
@@ -13,6 +13,8 @@
        * message.el (mail-abbrev-in-expansion-header-p):
        * mm-view.el (w3-do-setup, w3-region, w3-prepare-buffer)
        (w3m-detect-meta-charset, w3m-region):
+       * sieve-manage.el (password-read, password-cache-add)
+       (password-cache-remove):
        * smime.el (password-read-and-add): Declare as functions.
 
 2007-12-08  David Kastrup  <dak@gnu.org>

diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el
index 5cf14f7eb32b6fc8b047529c52e9ea5f74eb7a50..a4b763650c807b7a2142d67af10552712979ad61 100644 (file)
--- 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)