From 95bfcfe108e4c798711a7008b59cf2e3db7a13e3 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 6 Oct 2001 04:39:17 +0000 Subject: [PATCH] * bbdb-wl.el (bbdb-wl-get-petname): Fixed docstring. (bbdb-wl-from-func): Ditto. --- utils/ChangeLog | 5 +++++ utils/bbdb-wl.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/utils/ChangeLog b/utils/ChangeLog index 6033947..e499834 100644 --- a/utils/ChangeLog +++ b/utils/ChangeLog @@ -1,3 +1,8 @@ +2001-10-06 Hiroya Murata + + * bbdb-wl.el (bbdb-wl-get-petname): Fixed docstring. + (bbdb-wl-from-func): Ditto. + 2001-09-14 Katsumi Yamaoka * 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 --- 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) -- 1.7.10.4