Gecko [ goons4good.org ]

Name	Size	Permission	Date
ange-ftp.elc	119.46 KB	-rw-r--r--	2023-06-07 04:15
browse-url.elc	48.13 KB	-rw-r--r--	2023-06-07 04:15
dbus.elc	52.95 KB	-rw-r--r--	2023-06-07 04:15
dig.elc	6.32 KB	-rw-r--r--	2023-06-07 04:15
dns.elc	11.16 KB	-rw-r--r--	2023-06-07 04:16
eudc-bob.elc	8.76 KB	-rw-r--r--	2023-06-07 04:16
eudc-export.elc	5.84 KB	-rw-r--r--	2023-06-07 04:16
eudc-hotlist.elc	5.4 KB	-rw-r--r--	2023-06-07 04:16
eudc-vars.elc	13.99 KB	-rw-r--r--	2023-06-07 04:16
eudc.elc	31.94 KB	-rw-r--r--	2023-06-07 04:16
eudcb-bbdb.elc	5.29 KB	-rw-r--r--	2023-06-07 04:16
eudcb-ldap.elc	5.12 KB	-rw-r--r--	2023-06-07 04:16
eudcb-mab.elc	2.74 KB	-rw-r--r--	2023-06-07 04:16
eudcb-ph.elc	6.29 KB	-rw-r--r--	2023-06-07 04:16
gnutls.elc	7.86 KB	-rw-r--r--	2023-06-07 04:16
goto-addr.elc	9 KB	-rw-r--r--	2023-06-07 04:11
hmac-def.elc	2.01 KB	-rw-r--r--	2023-06-07 04:16
hmac-md5.elc	2.09 KB	-rw-r--r--	2023-06-07 04:16
imap.elc	101.96 KB	-rw-r--r--	2023-06-07 04:16
ldap.elc	15.05 KB	-rw-r--r--	2023-06-07 04:16
mairix.elc	24.06 KB	-rw-r--r--	2023-06-07 04:16
net-utils.elc	30.27 KB	-rw-r--r--	2023-06-07 04:16
netrc.elc	5.05 KB	-rw-r--r--	2023-06-07 04:16
network-stream.elc	10.07 KB	-rw-r--r--	2023-06-07 04:16
newst-backend.elc	65.62 KB	-rw-r--r--	2023-06-07 04:16
newst-plainview.elc	49.23 KB	-rw-r--r--	2023-06-07 04:16
newst-reader.elc	8.38 KB	-rw-r--r--	2023-06-07 04:16
newst-ticker.elc	7.51 KB	-rw-r--r--	2023-06-07 04:16
newst-treeview.elc	70.56 KB	-rw-r--r--	2023-06-07 04:16
newsticker.elc	830 B	-rw-r--r--	2023-06-07 04:16
ntlm.elc	11.63 KB	-rw-r--r--	2023-06-07 04:16
quickurl.elc	15.75 KB	-rw-r--r--	2023-06-07 04:16
rcirc.elc	98.21 KB	-rw-r--r--	2023-06-07 04:16
rcompile.elc	3.15 KB	-rw-r--r--	2023-06-07 04:16
rlogin.elc	10.83 KB	-rw-r--r--	2023-06-07 04:16
sasl-cram.elc	1.1 KB	-rw-r--r--	2023-06-07 04:16
sasl-digest.elc	3.47 KB	-rw-r--r--	2023-06-07 04:16
sasl-ntlm.elc	1.76 KB	-rw-r--r--	2023-06-07 04:16
sasl.elc	6.73 KB	-rw-r--r--	2023-06-07 04:16
secrets.elc	21.06 KB	-rw-r--r--	2023-06-07 04:16
snmp-mode.elc	14.64 KB	-rw-r--r--	2023-06-07 04:16
soap-client.elc	140.7 KB	-rw-r--r--	2023-06-07 04:16
soap-inspect.elc	14.6 KB	-rw-r--r--	2023-06-07 04:16
socks.elc	13.76 KB	-rw-r--r--	2023-06-07 04:16
telnet.elc	9.33 KB	-rw-r--r--	2023-06-07 04:16
tls.elc	7.8 KB	-rw-r--r--	2023-06-07 04:16
tramp-cache.elc	15.15 KB	-rw-r--r--	2023-06-07 04:16
tramp-cmds.elc	9.49 KB	-rw-r--r--	2023-06-07 04:16
tramp-compat.elc	16.15 KB	-rw-r--r--	2023-06-07 04:16
tramp-ftp.elc	5.49 KB	-rw-r--r--	2023-06-07 04:16
tramp-gvfs.elc	83.6 KB	-rw-r--r--	2023-06-07 04:16
tramp-gw.elc	13.8 KB	-rw-r--r--	2023-06-07 04:16
tramp-loaddefs.el	34.92 KB	-rw-r--r--	2023-06-07 03:59
tramp-sh.elc	251.02 KB	-rw-r--r--	2023-06-07 04:16
tramp-smb.elc	98.83 KB	-rw-r--r--	2023-06-07 04:16
tramp-uu.elc	1.95 KB	-rw-r--r--	2023-06-07 04:16
tramp.elc	134.83 KB	-rw-r--r--	2023-06-07 04:16
trampver.elc	1.11 KB	-rw-r--r--	2023-06-07 04:16
webjump.elc	13.71 KB	-rw-r--r--	2023-06-07 04:16
xesam.elc	24.97 KB	-rw-r--r--	2023-06-07 04:16
zeroconf.elc	18.31 KB	-rw-r--r--	2023-06-07 04:16

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:16:00 2023
;;; 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\202�AD\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 (#$ . 718)])
#@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) ";\204�9\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 (#$ . 2435)])
#@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 (#$ . 2935)])
#@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 (#$ . 3956)])
#@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 (#$ . 4867) 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 (#$ . 5272) 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 (#$ . 5644) nil])