;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302\303\304#\210\300\305\303\304#\210\300\306!\207" [require eudc bbdb nil t bbdb-com cl-lib] 4)
#@280 Create a BBDB record using the RECORD alist.
RECORD is an alist of (KEY . VALUE) where KEY is a directory attribute name
symbol and VALUE is the corresponding value for the record.
If SILENT is non-nil then the created BBDB record is not displayed.

(fn RECORD &optional SILENT)
(defalias 'eudc-create-bbdb-record #[513 "\300\301!\210\302\303\"\302\304\"\305\306#\307\203,\211A\262\242\310\211A\262\242DD
B\262
\202\311\312\237\313\310DDE!\207" [require bbdb mapcar car cdr make-closure #[0 "\303\211\211\211\211\211\211\211\211C\nJ\304\305\236A\300\303#\262\n\304\306\236A\300\303#\262	\304\307\236A\300\303#\262\304\310\236A\300\303#\262\311
\236A\262\312\303\304@<\203I\202LC\300\313#\"\262\314
\236A\262\312\303\304@<\203g\202jC\300\313#\"\262\315\205y\310BC\316\317\320\300#\"\"\262\312\303\"\262\321\322\315\323 \205\230\324

D\323 \203\252
D\202\257\f\fDC$B\"\262\301\206\277\325C!\207" [V0 V1 eudc-bbdb-conversion-alist nil eudc-parse-spec name company net notes address delq t phone append mapcar make-closure #[257 "\211@\302>?\205\301\303A\300\304#\240\205\211@\301\242B\207" [V0 V1 (name company net address phone notes) eudc-parse-spec nil] 6 "\n\n(fn MAPPING)"] apply bbdb-create-internal eudc--using-bbdb-3-or-newer-p (nil nil) bbdb-display-records] 18] nil quote eval let funcall] 12 (#$ . 212)])
#@130 Parse the conversion SPEC using RECORD.
If RECURSE is non-nil then SPEC may be a list of atomic specs.

(fn SPEC RECORD RECURSE)
(defalias 'eudc-parse-spec #[771 ";\2049\204<\203)@9\203)\300@!\203)\3011&\302\303\"0\207\210\304\207\211\203:<\203:\305\306\307\"\"\207\310\311\"\207" [fboundp (void-variable) eval t nil mapcar make-closure #[257 "\301
\300\302#\207" [V0 eudc-parse-spec nil] 5 "\n\n(fn SPEC-ELEM)"] error "Invalid specification for `%s' in `eudc-bbdb-conversion-alist'"] 7 (#$ . 1606)])
#@270 Parse ADDR into a vector compatible with BBDB.
ADDR should be an address string of no more than four lines or a
list of lines.
The last two lines are searched for the zip code, city and state name.
LOCATION is used as the address location for bbdb.

(fn ADDR LOCATION)
(defalias 'eudc-bbdbify-address #[514 "
<\203\300!\202\300\301\302\"!\211
A\262\242
\211A\262\242\303\211\211\237\262\304\305\"\204O\262
\304\306\"\203H\307\310\"\262\311\307\312\"!\262\202\220\313\314!\210\202\220\304\315\"\203q\307\312\"\262\307\310\"\262
\311\307\316\"!\262\202\220\304\306\"\203\214\307\310\"\262\311\307\312\"!\262\202\220\313\314!\210\317@\206\232\320A@\206\242\320\310\n8\206\252\320\206\260\320\206\266\320	&\207" [reverse split-string "\n" nil string-match "[0-9][0-9][0-9]" "\\([0-9]+\\)[ 	]+\\(.*\\)" match-string 2 string-to-number 1 error "Cannot parse the address" "\\(\\w+\\)\\W*\\([A-Z][A-Z]\\)\\W*\\([0-9]+\\)" 3 vector ""] 16 (#$ . 2134)])
#@80 Return ORGANIZATIONS as a list compatible with BBDB.

(fn &rest ORGANIZATIONS)
(defalias 'eudc-bbdbify-company #[128 "\207" [] 2 (#$ . 3147)])
#@231 Parse PHONE into a vector compatible with BBDB.
PHONE is either a string supposedly containing a phone number or
a list of such strings which are concatenated.
LOCATION is used as the phone location for BBDB.

(fn PHONE LOCATION)
(defalias 'eudc-bbdbify-phone #[514 "\300\301!\210
;\203c\302\3031$\304 \203\305!\202\306!\211\2620\210\202P\211A@\307\230\203H\310\311\312\"!\204>\313\314!\266\202P\315!C\211\266\203\202P\316
@A\"\266\211G\317U\203]\320
\321\"\262
\322\323#\207
<\203q\323
\324\325\326#\"\207\313\327!\207" [require bbdb nil (error) eudc--using-bbdb-3-or-newer-p bbdb-parse-phone bbdb-parse-phone-number "phone number unparsable." y-or-n-p format "BBDB claims %S to be unparsable--insert anyway? " error "Phone number unparsable" bbdb-string-trim signal 3 append (nil) apply vector mapconcat identity ", " "Invalid phone specification"] 8 (#$ . 3297)])
#@65 Insert all the records returned by a directory query into BBDB.
(defalias 'eudc-batch-export-records-to-bbdb #[0 "\300\301!\210eb\210\302\303 \203(\304`!\203\305\304`!@\306\"\211\262\203\307
\310\"\210\202\311\312\313\"\207" [require bbdb nil eudc-move-to-next-record overlays-at overlay-get eudc-record eudc-create-bbdb-record t message "%d records imported into BBDB" 0] 4 (#$ . 4195) nil])
#@119 Insert record at point into the BBDB database.
This function can only be called from a directory query result buffer.
(defalias 'eudc-insert-record-at-point-into-bbdb #[0 "\300\301!\210\302`!\205\303\302`!@\304\"\211\204\305\306!\207\307
!\207" [require bbdb overlays-at overlay-get eudc-record error "Point is not over a record" eudc-create-bbdb-record] 3 (#$ . 4603) nil])
#@62 Call `eudc-insert-record-at-point-into-bbdb' if on a record.
(defalias 'eudc-try-bbdb-insert #[0 "\300\301!\210\302`!\205\303\302`!@\304\"\205\305 \207" [require bbdb overlays-at overlay-get eudc-record eudc-insert-record-at-point-into-bbdb] 3 (#$ . 4988) nil])