[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/bbdb 4c5b098 1/3: bbdb.el: Declare functions used for i

From: Roland Winkler
Subject: [elpa] externals/bbdb 4c5b098 1/3: bbdb.el: Declare functions used for insinuation.
Date: Wed, 1 Jan 2020 23:18:32 -0500 (EST)

branch: externals/bbdb
commit 4c5b098f15036c942c36be394466fb3cd3bcac01
Author: Roland Winkler <address@hidden>
Commit: Roland Winkler <address@hidden>

    bbdb.el: Declare functions used for insinuation.
    (bbdb-init-functions): Renamed from bbdb-init-forms.
 bbdb.el | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/bbdb.el b/bbdb.el
index f8b16d5..979d495 100644
--- a/bbdb.el
+++ b/bbdb.el
@@ -1654,7 +1654,21 @@ You really should not disable debugging.  But it will 
speed things up."))
   "Bind this to t to quiet things down - do not set it.
 See also `bbdb-silent'.")
-(defvar bbdb-init-forms
+(declare-function bbdb-insinuate-gnus "bbdb-gnus" ())
+(declare-function bbdb-insinuate-mh "bbdb-mhe" ())
+(declare-function bbdb-insinuate-rmail "bbdb-rmail" ())
+(declare-function bbdb-insinuate-vm "bbdb-vm" ())
+(declare-function bbdb-insinuate-mail "bbdb-message" ())
+(declare-function bbdb-insinuate-message "bbdb-message" ())
+(declare-function bbdb-insinuate-mu4e "bbdb-m4e" ())
+(declare-function bbdb-insinuate-sc "bbdb-sc" ())
+(declare-function bbdb-pgp "bbdb-pgp" ())
+(declare-function bbdb-insinuate-wl "bbdb-wl" ())
+(declare-function bbdb-anniv-diary-entries "bbdb-anniv" ())
+(define-obsolete-variable-alias 'bbdb-init-forms
+  'bbdb-init-functions "3.0")
+(defvar bbdb-init-functions
   `((gnus                       ; gnus 3.15 or newer
      ,(lambda () (add-hook 'gnus-startup-hook #'bbdb-insinuate-gnus)))
     (mh-e                       ; MH-E
@@ -4751,7 +4765,7 @@ See also `bbdb-mua-auto-update-init'.  The latter is a 
separate function
 as this allows one to initialize the auto update feature for some MUAs only,
 for example only for outgoing messages."
   (dolist (mua muas)
-    (let ((init (cadr (assq mua bbdb-init-forms))))
+    (let ((init (cadr (assq mua bbdb-init-functions))))
       ;; Should we make sure that each insinuation happens only once?
        ((functionp init) (funcall init))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]