From: teranisi <teranisi>
Date: Tue, 25 Jun 2002 05:26:04 +0000 (+0000)
Subject: 2002-06-03  KOBAYASHI Shinji <kobayashi_shinji@nifty.com>
X-Git-Tag: elmo-mark-root~70
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7e46ded59dc9e84d72795a87837c66661f3fdcf6;p=elisp%2Fwanderlust.git

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
--- 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
--- 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