From: ueno <ueno>
Date: Tue, 30 Apr 2002 04:09:47 +0000 (+0000)
Subject: Fix the last change.
X-Git-Tag: lsdb-0_4~2
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Flsdb.git;a=commitdiff_plain;h=b7b6eb0b352d81602a1af9b04c96fb615077de5e

Fix the last change.
---

diff --git a/bbdb-to-lsdb.el b/bbdb-to-lsdb.el
index e13f61a..12a89cb 100644
--- a/bbdb-to-lsdb.el
+++ b/bbdb-to-lsdb.el
@@ -38,9 +38,11 @@
   (while bbdb-records
     (when (setq value (bbdb-record-net (car bbdb-records)))
       (lsdb-update-record
+       (list (bbdb-record-name (car bbdb-records))
+	     (car value))
        (nconc
-	(list (bbdb-record-name (car bbdb-records))
-	      (cons 'net value))
+	(if (cdr value)
+	    (list (cons 'net (cdr value))))
 	(if (setq value (bbdb-record-aka (car bbdb-records)))
 	    (list (cons 'aka value)))
 	(if (setq value (bbdb-record-company (car bbdb-records)))