;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:31 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/eudcb-bbdb.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)
(defvar eudc-bbdb-current-query nil)
(defvar eudc-bbdb-current-return-attributes nil)
#@51 Alist mapping EUDC attribute names to BBDB names.
(defvar eudc-bbdb-attributes-translation-alist '((name . lastname) (email . net) (phone . phones)) (#$ . 806))
(byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\307\303#\210\300\310\305\303#\210\300\311\305\303#\207" [eudc-protocol-set eudc-query-function eudc-bbdb-query-internal bbdb eudc-list-attributes-function nil eudc-protocol-attributes-translation-alist eudc-bbdb-attributes-translation-alist eudc-bbdb-conversion-alist eudc-protocol-has-default-query-attributes] 4)
#@66 Format a EUDC query alist into a list suitable to `bbdb-search'.
(defalias 'eudc-bbdb-format-query #[(query) "\301\236A\302\236A	\203\n\203	\306\nQ\206	\206\n\304\236A\305\236A\307\236A\310\236A\f
\257.\207" [query firstname lastname name company net " " notes phone] 5 (#$ . 1351)])
#@71 Return RECORD if it matches `eudc-bbdb-current-query', nil otherwise.
(defalias 'eudc-bbdb-filter-non-matching-record #[(record) "\300\301\215\207" [unmatch (byte-code "\306\211\203i\n@\211@	A\307\306\211\310>\203\\\311\312\313\314!P!\315D!\211<\203H\203>\311\316\317\320\"B!\202Y
\227\317\321\"\235\202Y\203T\322
\"\202Y
\227\227\230\204a\323\324\306\"\210,\nA\211\204*
\207" [eudc-bbdb-current-query condition --dolist-tail-- bbdb-val case-fold-search val nil t (firstname lastname aka company phones addresses net) eval intern "bbdb-record-" symbol-name record or mapcar #[(subval) "\302	\"\207" [val subval string-match] 3] downcase string-match throw unmatch attr eudc-bbdb-enable-substring-matches] 6)] 2 (#$ . 1671)])
(defalias 'eudc-bbdb-extract-phones #[(record) "\301\302\303!\"\207" [record mapcar #[(phone) "\203\302\303	!!\304	!B\207\305\306\307\303	!\304	!#B\207" [eudc-bbdb-use-locations-as-attribute-names phone intern bbdb-phone-location bbdb-phone-string phones format "%s: %s"] 6] bbdb-record-phones] 4])
(defalias 'eudc-bbdb-extract-addresses #[(record) "\304\211\211\305\306\307!\"+\207" [val c s record nil mapcar #[(address) "\306!\307\310\nW\203%\311\n	8\211G!\204
\f\312Q\nT\211\202	*\313!\314!
	G\310V\203D\fG\310V\203D	\315\fQ\202E	\316\317!R\203X\320\321!!
B\207\322\321!\312
QB\207" [address c n --dotimes-limit-- s val bbdb-address-streets 3 0 zerop "\n" bbdb-address-city bbdb-address-state ", " " " bbdb-address-zip intern bbdb-address-location addresses eudc-bbdb-use-locations-as-attribute-names] 6] bbdb-record-addresses] 4])
#@129 Format the BBDB RECORD as a EUDC query result record.
The record is filtered according to `eudc-bbdb-current-return-attributes'
(defalias 'eudc-bbdb-format-record-as-result #[(record) "\206\306\307\211\211\f@\211\fA\203\216\310=\203#\311
!\202I\312=\2030\313
!\202I\314>\203E\315\316\317\320!P!\305D!\202I\321\322!\210	\203\f	\323\232\204\f\324>\203a\325	\n\"\202\f	<\203w	G\326U\203w	@B\nB\202\f	G\327V\203\207	B\nB\202\f\321\330!\210\202\f\n\237,\207" [eudc-bbdb-current-return-attributes val eudc-rec attr attrs record (firstname lastname aka company phones addresses net notes) nil phones eudc-bbdb-extract-phones addresses eudc-bbdb-extract-addresses (firstname lastname aka company net notes) eval intern "bbdb-record-" symbol-name error "Unknown BBDB attribute" "" (phones addresses) append 1 0 "Unexpected attribute value"] 5 (#$ . 3307)])
#@216 Query BBDB  with QUERY.
QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid
BBDB attribute names.
RETURN-ATTRS is a list of attributes to return, defaulting to
`eudc-default-return-attributes'.
(defalias 'eudc-bbdb-query-internal #[(query &optional return-attrs) "	\306!\307\310 \307\211\f\203>G\311V\203>\312
@C\"@\2036\313\314\304
BB!A\202\315\316\317\307\320\321\317\307\320\322\f\"\"\"\"\"\210.\207" [query return-attrs filtered result records bbdb-attrs eudc-bbdb-format-query nil bbdb-records 0 append eval bbdb-search mapc #[(record) "\303!\211G\304V\203\305\306	\"\307\n	\"\211\207" [record filtered result eudc-filter-duplicate-attributes 1 mapcar #[(rec) "\301!\207" [rec reverse] 2] append] 4] delq mapcar eudc-bbdb-format-record-as-result eudc-bbdb-filter-non-matching-record query-attrs eudc-bbdb-current-return-attributes eudc-bbdb-current-query] 11 (#$ . 4201)])
#@30 Set the EUDC server to BBDB.
(defalias 'eudc-bbdb-set-server #[(dummy) "\301\302\"\210\303\304!\207" [dummy eudc-set-server bbdb message "BBDB server selected"] 3 (#$ . 5144) nil])
(byte-code "\300\301!\210\302\303!\207" [eudc-register-protocol bbdb provide eudcb-bbdb] 2)