From 1d1df709e13c089bdc4567d8553b53e8411edd1a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 9 Dec 2007 04:14:11 +0000 Subject: [PATCH] (declare-function): Add compatibility definition. (password-read, password-cache-add, password-cache-remove): Declare as functions. --- lisp/gnus/ChangeLog | 6 ++++-- lisp/gnus/sieve-manage.el | 7 +++++++ 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index e271520f14e..e54a5f4783e 100644 --- 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 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) -- 2.39.2