Commit 1d1df709 authored by Glenn Morris's avatar Glenn Morris
Browse files

(declare-function): Add compatibility definition.

(password-read, password-cache-add, password-cache-remove): Declare as
parent 8d0f97a4
......@@ -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
* 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)
* smime.el (password-read-and-add): Declare as functions.
2007-12-08 David Kastrup <>
......@@ -76,6 +76,9 @@
;;; Code:
;; For Emacs < 22.2.
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(or (require 'password-cache nil t)
(require 'password))
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment