;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/eudc-export.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303!\204\304\305!\210\302\306!\204\304\307!\210\300\207" [require eudc featurep bbdb load-library "bbdb" bbdb-com "bbdb-com"] 2)
#@250 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.
(defalias 'eudc-create-bbdb-record #[(record &optional silent) "\301\302\303\304\305\"\306\"\307BB!\207" [record eval let* append mapcar #[(c) "@A<\203\301AD\202AD\207" [c quote] 3] (bbdb-name bbdb-company bbdb-net bbdb-address bbdb-phones bbdb-notes spec bbdb-record value (conversion-alist (symbol-value eudc-bbdb-conversion-alist))) ((setq bbdb-name (eudc-parse-spec (cdr (assq 'name conversion-alist)) record nil) bbdb-company (eudc-parse-spec (cdr (assq 'company conversion-alist)) record nil) bbdb-net (eudc-parse-spec (cdr (assq 'net conversion-alist)) record nil) bbdb-notes (eudc-parse-spec (cdr (assq 'notes conversion-alist)) record nil)) (setq spec (cdr (assq 'address conversion-alist))) (setq bbdb-address (delq nil (eudc-parse-spec (if (listp (car spec)) spec (list spec)) record t))) (setq spec (cdr (assq 'phone conversion-alist))) (setq bbdb-phones (delq nil (eudc-parse-spec (if (listp (car spec)) spec (list spec)) record t))) (setq bbdb-notes (append (list (and bbdb-notes (cons 'notes bbdb-notes))) (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 bbdb-name bbdb-company bbdb-net bbdb-address bbdb-phones bbdb-notes)) (or silent (bbdb-display-records (list bbdb-record))))] 6 (#$ . 722)])
#@104 Parse the conversion SPEC using RECORD.
If RECURSE is non-nil then SPEC may be a list of atomic specs.
(defalias 'eudc-parse-spec #[(spec record recurse) ";\2049\204<\203!@9\203!\302@!\203!\303\304\305\217\207	\203/<\203/\306\307\"\207\310\311\"\207" [spec recurse fboundp nil (eval spec) ((void-variable)) mapcar #[(spec-elem) "\302	\303#\207" [spec-elem record eudc-parse-spec nil] 4] error "Invalid specification for `%s' in `eudc-bbdb-conversion-alist'"] 3 (#$ . 2439)])
#@250 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.
(defalias 'eudc-bbdbify-address #[(addr location) "<\203\306!\202\306\307\310\"!\211\211A@	\211A@\311\211\311	\237\312\313\n\"\204O\n\312\314\"\203H\315\316\"\317\315\320\"!\202\205\321\322!\210\202\205\312\323\n\"\203k\315\320\n\"\315\316\n\"\317\315\324\n\"!\202\205\312\314\n\"\203\201\315\316\n\"\317\315\320\n\"!\202\205\321\322!\210\325	@\206\216\326	A@\206\225\326\316	8\206\234\326
\206\241\326\206\247\326\f&.\207" [addr addr-components last1 last2 zip city 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 "" state location] 9 (#$ . 2939)])
#@210 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.
(defalias 'eudc-bbdbify-phone #[(phone location) ";\203\303\304\305\306\217\210	G\307U\203\310	\311\"\312\313\n	#)\207<\203-\313\n\314\315\316#\"\207\317\320!\207" [phone phone-list location nil err (byte-code "\302!\302\207" [phone phone-list bbdb-parse-phone-number] 2) ((error (byte-code "\303!\304\230\203 \305\306\307	\"!\204\310\311!\210\202'\312	!C\202'\313@A\"\210\303\207" [err phone phone-list eudc-cadr "phone number unparsable." y-or-n-p format "BBDB claims %S to be unparsable--insert anyway? " error "Phone number unparsable" bbdb-string-trim signal] 4))) 3 append (nil) apply vector mapconcat identity ", " error "Invalid phone specification"] 6 (#$ . 3960)])
#@65 Insert all the records returned by a directory query into BBDB.
(defalias 'eudc-batch-export-records-to-bbdb #[nil "eb\210\302\303\304 \203+\305`!\203\306\305`!@\307\"\211\203	T\203\310\311\"\210\202\312\313	\"*\207" [record nbrec 0 nil eudc-move-to-next-record overlays-at overlay-get eudc-record eudc-create-bbdb-record t message "%d records imported into BBDB"] 3 (#$ . 4871) 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 #[nil "\301`!\205
\302\301`!@\303\"\211\204\304\305!\202\306!)\207" [record overlays-at overlay-get eudc-record error "Point is not over a record" eudc-create-bbdb-record] 4 (#$ . 5276) nil])
#@62 Call `eudc-insert-record-at-point-into-bbdb' if on a record.
(defalias 'eudc-try-bbdb-insert #[nil "\300\301!\204\302\303!\304\305!\210\205\"\306`!\205\"\307\306`!@\310\"\205\"\311 \207" [featurep bbdb locate-library "bbdb" message "" overlays-at overlay-get eudc-record eudc-insert-record-at-point-into-bbdb] 3 (#$ . 5648) nil])