From: ueno <ueno>
Date: Thu, 2 May 2002 09:18:42 +0000 (+0000)
Subject: * lsdb.el (lsdb-extract-address-components): Ignore empty address string.
X-Git-Tag: lsdb-0_6~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bdd0c0fc3766e90640928ca6c0b9eb6f017726bd;p=elisp%2Flsdb.git

* lsdb.el (lsdb-extract-address-components): Ignore empty address string.
---

diff --git a/lsdb.el b/lsdb.el
index 7d049a9..cee99c3 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -461,7 +461,11 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 
 (defun lsdb-extract-address-components (string)
   (let ((components (std11-extract-address-components string)))
-    (if (nth 1 components)
+    (if (and (nth 1 components)
+	     ;; When parsing a group address,
+	     ;; std11-extract-address-components is likely to return
+	     ;; the ("GROUP" "") form.
+	     (not (equal (nth 1 components) "")))
 	(if (car components)
 	    (list (funcall lsdb-canonicalize-full-name-function
 			   (car components))