(if (setq value (bbdb-record-aka (car bbdb-records)))
(list (cons 'aka value)))
(if (setq value (bbdb-record-company (car bbdb-records)))
(list (cons 'company value)))
(if (setq value (bbdb-record-aka (car bbdb-records)))
(list (cons 'aka value)))
(if (setq value (bbdb-record-company (car bbdb-records)))
(list (cons 'company value)))