2002-06-03 KOBAYASHI Shinji <kobayashi_shinji@nifty.com>

	* bbdb-wl.el (bbdb-wl-canonicalize-spaces-and-dots): Remove
	the preceding spaces.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index a493da8..b06e1b0 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-03  KOBAYASHI Shinji <kobayashi_shinji@nifty.com>
+
+       * bbdb-wl.el (bbdb-wl-canonicalize-spaces-and-dots): Remove
+       the preceding spaces.
+
 2002-06-03  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * ptexinfmt.el: discard @cartouche.  @anchor discard for Mule 2.3.

diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index e225495..fa15d70 100644 (file)
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -38,8 +38,10 @@
   "Way to canonicalize full name.")
 
 (defun bbdb-wl-canonicalize-spaces-and-dots (string)
-  (while (string-match "  +\\|[\f\t\n\r\v]+\\|\\." string)
+  (while (and string (string-match "  +\\|[\f\t\n\r\v]+\\|\\." string))
     (setq string (replace-match " " nil t string)))
+  (and string (string-match "^ *" string)
+       (setq string (replace-match "" nil t string)))
   string)
 
 ;;;###autoload