From b7b6eb0b352d81602a1af9b04c96fb615077de5e Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 30 Apr 2002 04:09:47 +0000 Subject: [PATCH] Fix the last change. --- bbdb-to-lsdb.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4