* bbdb-wl.el (bbdb-wl-get-petname): Fixed docstring.

(bbdb-wl-from-func): Ditto.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 6033947..e499834 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-06  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * bbdb-wl.el (bbdb-wl-get-petname): Fixed docstring.
+       (bbdb-wl-from-func): Ditto.
+
 2001-09-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * bbdb-wl.el (bbdb-wl-extract-field-value-internal): Enclose the

diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index 45e758f..846fae9 100644 (file)
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -105,7 +105,7 @@
          (switch-to-buffer (get-buffer-create bbdb-buffer-name)))))))
 
 (defun bbdb-wl-get-petname (from)
-  "For `wl-summary-get-petname-func'."
+  "For `wl-summary-get-petname-function'."
   (let* ((address (wl-address-header-extract-address from))
         (record (bbdb-search-simple nil address)))
     (and record
@@ -113,7 +113,7 @@
             (car (bbdb-record-name record))))))
 
 (defun bbdb-wl-from-func (string)
-  "A candidate From field STRING.  For `wl-summary-from-func'."
+  "A candidate From field STRING.  For `wl-summary-from-function'."
   (let ((hit (bbdb-search-simple nil (wl-address-header-extract-address
                                      string)))
        first-name last-name from-str)