From bdd0c0fc3766e90640928ca6c0b9eb6f017726bd Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 2 May 2002 09:18:42 +0000 Subject: [PATCH] * lsdb.el (lsdb-extract-address-components): Ignore empty address string. --- lsdb.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4