* elmo-archive.el (elmo-archive-get-archive-name): Cause an error when

[elisp/wanderlust.git] / wl / wl-address.el

diff --git a/wl/wl-address.el b/wl/wl-address.el
index 52e1ee2..259ae2b 100644 (file)
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -460,11 +460,11 @@ Matched address lists are append to CL."
             (let ((list (sort (all-completions pattern cl) 'string<)))
               (wl-complete-window-show list)))))))
 
-(defvar wl-address-init-function 'wl-local-address-init)
+(defvar wl-address-init-func 'wl-local-address-init)
 
 (defun wl-address-init ()
-  "Call `wl-address-init-function'."
-  (funcall wl-address-init-function))
+  "Call `wl-address-init-func'."
+  (funcall wl-address-init-func))
 
 (defun wl-local-address-init ()
   "Reload `wl-address-file'.