diff options
Diffstat (limited to 'lisp/net/eudc-export.el')
| -rw-r--r-- | lisp/net/eudc-export.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el index ba86958142c..5c966281499 100644 --- a/lisp/net/eudc-export.el +++ b/lisp/net/eudc-export.el @@ -78,12 +78,11 @@ If SILENT is non-nil then the created BBDB record is not displayed." record t))) ;; BBDB custom fields (setq bbdb-notes (append (list (and bbdb-notes (cons 'notes bbdb-notes))) - (mapcar (function - (lambda (mapping) - (if (and (not (memq (car mapping) - '(name company net address phone notes))) - (setq value (eudc-parse-spec (cdr mapping) record nil))) - (cons (car mapping) value)))) + (mapcar (lambda (mapping) + (if (and (not (memq (car mapping) + '(name company net address phone notes))) + (setq value (eudc-parse-spec (cdr mapping) record nil))) + (cons (car mapping) value))) conversion-alist))) (setq bbdb-notes (delq nil bbdb-notes)) (setq bbdb-record (bbdb-create-internal |