From: kaoru <kaoru>
Date: Sun, 28 Apr 2002 08:12:45 +0000 (+0000)
Subject: * bbdb-wl.el (bbdb-wl-setup): Add `bbdb-offer-save' to
X-Git-Tag: elmo-mark-root~193
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d1e3133c0c3d748a02d7984f1faf26eac136b8ed;p=elisp%2Fwanderlust.git

* bbdb-wl.el (bbdb-wl-setup): Add `bbdb-offer-save' to
`wl-save-hook'.  Use `bbdb-initialize' instead of require
bbdb-autoloads.
---

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 6454558..b647226 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* bbdb-wl.el (bbdb-wl-setup): Add `bbdb-offer-save' to
+	`wl-save-hook'.  Use `bbdb-initialize' instead of require
+	bbdb-autoloads.
+
 2002-01-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* bbdb-wl.el (bbdb-wl-get-addresses-2): Bind unbound local
diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index e1444bc..10e73a7 100644
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -39,6 +39,7 @@
   (add-hook 'wl-summary-exit-hook 'bbdb-wl-hide-bbdb-buffer)
   (add-hook 'wl-message-window-deleted-hook 'bbdb-wl-hide-bbdb-buffer)
   (add-hook 'wl-exit-hook 'bbdb-wl-exit)
+  (add-hook 'wl-save-hook 'bbdb-offer-save)
   (add-hook 'wl-summary-toggle-disp-off-hook 'bbdb-wl-hide-bbdb-buffer)
   (add-hook 'wl-summary-toggle-disp-folder-on-hook 'bbdb-wl-hide-bbdb-buffer)
   (add-hook 'wl-summary-toggle-disp-folder-off-hook 'bbdb-wl-hide-bbdb-buffer)
@@ -56,14 +57,9 @@
 	     (lambda ()
 ;;;	       (local-set-key "\M-\t" 'bbdb-complete-name)
 	       (define-key (current-local-map) "\M-\t" 'bbdb-complete-name))))
-  ;; BBDB 2.00.06 or earlier:
-  ;;  auto-autoloads.el includes (provide 'bbdb-autoloads)
-  ;;  Don't exist bbdb-autoloads.el
-  (when (and (not (featurep 'bbdb-autoloads))
-	     (module-installed-p 'bbdb-autoloads))
-    ;; BBDB 2.20: bbdb-autoloads.el NOT includes (provide 'bbdb-autoloads)
-    (load "bbdb-autoloads"))
-  
+  (require 'bbdb)
+  (bbdb-initialize)
+
   (if (not (boundp 'bbdb-get-addresses-from-headers))
       (defvar bbdb-get-addresses-from-headers
 	'("From" "Resent-From" "Reply-To")))