HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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\300\302!\207" [require eudc executable] 2)
(defvar eudc-mab-conversion-alist nil)
(defvar eudc-buffer-time nil)
(defvar eudc-contacts-file "~/Library/Application Support/AddressBook/AddressBook.data")
(byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\305\303#\210\300\307\305\303#\207" [eudc-protocol-set eudc-query-function eudc-mab-query-internal mab eudc-list-attributes-function nil eudc-mab-conversion-alist eudc-protocol-has-default-query-attributes] 4)
#@214 Query MAB  with QUERY.
QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid
MAB attribute names.
RETURN-ATTRS is a list of attributes to return, defaulting to
`eudc-default-return-attributes'.
(defalias 'eudc-mab-query-internal #[(query &optional return-attrs) "\306\307\310!\311\312!8\313rq\210\314\305!\210eb\210m\204$\315
\n\"\2037\316 \210\317\320\321!\313\322\313\323\324\325\f&\210\neb\210m\204\353\326`\327 {\330\"\211&@#&A@\"\331&8$\332&8'\322(\333\334'\"\203q\335\336\313\211'$')\313*\211+\203\300+@\211*@\337=\203\234\333*A\"\340#Q\"\204\267\313(\202\267*@\341=\203\263*A'\230\204\267\313(\202\267*@\210+A\211+\204|*(\203\343\342\"B\343#B\337\"\340#QB\344$B\341'B\257	B.\313y\210\202:),\204\365	\202d
\313-	\313.\211+\203`
+@.\313\211/0.\3131\211+\203D
+@\2111@,>\203;
1AG\345U\2034
\322/\202;
10B0+A\211+\204
*0\203V
/\204V
0-B-*+A\211+\204
*-),\207" [eudc-contacts-file result modified mab-buffer fmt-string eudc-buffer-time "%ln:%fn:%p:%e" get-buffer-create " *mab contacts*" 5 file-attributes nil make-local-variable time-less-p erase-buffer call-process executable-find "contacts" t "-H" "-l" "-f" split-string line-end-position "\\s-*:\\s-*" 2 3 string-match "\\s-+\\'" replace-match "" name " " email firstname lastname phone 0 args mail matched query term --dolist-tail-- return-attrs eudc-result entry abort entry-attrs attr] 10 (#$ . 908)])
#@29 Set the EUDC server to MAB.
(defalias 'eudc-mab-set-server #[(dummy) "\301\302\"\210\303\304!\207" [dummy eudc-set-server mab message "MAB server selected"] 3 (#$ . 2387) nil])
(byte-code "\300\301!\210\302\303!\207" [eudc-register-protocol mab provide eudcb-mab] 2)