Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ange-ftp.elc	126.4 KB	-rw-r--r--
browse-url.elc	54.35 KB	-rw-r--r--
dbus.elc	55.05 KB	-rw-r--r--
dig.elc	6.34 KB	-rw-r--r--
dns.elc	11.52 KB	-rw-r--r--
eudc-bob.elc	8.58 KB	-rw-r--r--
eudc-export.elc	5.97 KB	-rw-r--r--
eudc-hotlist.elc	6.69 KB	-rw-r--r--
eudc-vars.elc	14.68 KB	-rw-r--r--
eudc.elc	33.77 KB	-rw-r--r--
eudcb-bbdb.elc	5.97 KB	-rw-r--r--
eudcb-ldap.elc	5.5 KB	-rw-r--r--
eudcb-mab.elc	2.58 KB	-rw-r--r--
eww.elc	68.31 KB	-rw-r--r--
gnutls.elc	12.62 KB	-rw-r--r--
goto-addr.elc	10 KB	-rw-r--r--
hmac-def.elc	1.87 KB	-rw-r--r--
hmac-md5.elc	2.11 KB	-rw-r--r--
imap.elc	102.11 KB	-rw-r--r--
ldap.elc	16.8 KB	-rw-r--r--
mailcap.elc	27.34 KB	-rw-r--r--
mairix.elc	25.1 KB	-rw-r--r--
net-utils.elc	35.04 KB	-rw-r--r--
netrc.elc	4.95 KB	-rw-r--r--
network-stream.elc	12.02 KB	-rw-r--r--
newst-backend.elc	65.76 KB	-rw-r--r--
newst-plainview.elc	48.96 KB	-rw-r--r--
newst-reader.elc	9.66 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	76.37 KB	-rw-r--r--
newsticker.elc	769 B	-rw-r--r--
nsm.elc	34.82 KB	-rw-r--r--
ntlm.elc	13.79 KB	-rw-r--r--
pop3.elc	20.1 KB	-rw-r--r--
puny.elc	4.92 KB	-rw-r--r--
quickurl.elc	17.83 KB	-rw-r--r--
rcirc.elc	105.35 KB	-rw-r--r--
rfc2104.elc	1.2 KB	-rw-r--r--
rlogin.elc	10.97 KB	-rw-r--r--
sasl-cram.elc	1003 B	-rw-r--r--
sasl-digest.elc	3.33 KB	-rw-r--r--
sasl-ntlm.elc	1.62 KB	-rw-r--r--
sasl-scram-rfc.elc	3.6 KB	-rw-r--r--
sasl.elc	6.58 KB	-rw-r--r--
secrets.elc	23.55 KB	-rw-r--r--
shr-color.elc	8.82 KB	-rw-r--r--
shr.elc	69.72 KB	-rw-r--r--
sieve-manage.elc	15.31 KB	-rw-r--r--
sieve-mode.elc	6.94 KB	-rw-r--r--
sieve.elc	11.62 KB	-rw-r--r--
snmp-mode.elc	14.51 KB	-rw-r--r--
soap-client.elc	221.75 KB	-rw-r--r--
soap-inspect.elc	20.04 KB	-rw-r--r--
socks.elc	12.5 KB	-rw-r--r--
telnet.elc	9.65 KB	-rw-r--r--
tramp-adb.elc	107.17 KB	-rw-r--r--
tramp-archive.elc	25.39 KB	-rw-r--r--
tramp-cache.elc	23.77 KB	-rw-r--r--
tramp-cmds.elc	18.89 KB	-rw-r--r--
tramp-compat.elc	9.57 KB	-rw-r--r--
tramp-ftp.elc	4.38 KB	-rw-r--r--
tramp-gvfs.elc	107.3 KB	-rw-r--r--
tramp-integration.elc	7.03 KB	-rw-r--r--
tramp-loaddefs.el	60.78 KB	-rw-r--r--
tramp-rclone.elc	39.17 KB	-rw-r--r--
tramp-sh.elc	306.37 KB	-rw-r--r--
tramp-smb.elc	140 KB	-rw-r--r--
tramp-sudoedit.elc	76.86 KB	-rw-r--r--
tramp-uu.elc	1.91 KB	-rw-r--r--
tramp.elc	242.21 KB	-rw-r--r--
trampver.elc	2.15 KB	-rw-r--r--
webjump.elc	9.85 KB	-rw-r--r--
zeroconf.elc	18.4 KB	-rw-r--r--

Code Editor : eudc-export.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\303\304#\210\300\305\303\304#\207" [require eudc bbdb nil t bbdb-com] 4)
#@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!\210\303\304\305\306\307\"\310\"\311\312\313\314\315\316\317\320\321\322\323\305\324 \205�\325\326\324 \203)�\327\202*�\330\331$BBE\332BBBBBBBBBB!\207" [record require bbdb 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 eudc--using-bbdb-3-or-newer-p (nil nil) (bbdb-company bbdb-net) (bbdb-phones bbdb-address) (bbdb-address bbdb-phones) (bbdb-notes) ((or silent (bbdb-display-records (list bbdb-record))))] 19 (#$ . 516)])
#@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(�\3031%�\304!0\207\210\305\207	\2036�<\2036�\306\307\"\207\310\311\"\207" [spec recurse fboundp (void-variable) eval nil 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 (#$ . 2437)])
#@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\242	\211A\242\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 (#$ . 2938)])
#@54 Return ORGANIZATIONS as a list compatible with BBDB.
(defalias 'eudc-bbdbify-company #[(&rest organizations) "\207" [organizations] 1 (#$ . 3964)])
#@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) "\304\305!\210;\203_�\306\3071#�\310 \203�\311!\202�\312!\2110\202K�\211A@\313\230\203D�\314\315\316\"!\204;�\317\320!\202J�\321!C\211\202J�\322\n@\nA\")\210	G\323U\203X�\324	\325\"\326\327	#)\207<\203m�\327\330\331\332#\"\207\317\333!\207" [phone phone-list err location 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"] 7 (#$ . 4120)])
#@65 Insert all the records returned by a directory query into BBDB.
(defalias 'eudc-batch-export-records-to-bbdb #[nil "\302\303!\210eb\210\304\305\306 \203/�\307`!\203�\310\307`!@\311\"\211\203�	T\203�\312\313\"\210\202�\314\315	\"*\207" [record nbrec require bbdb 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 (#$ . 5017) 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\302!\210\303`!\205�\304\303`!@\305\"\211\204�\306\307!\202�\310!)\207" [record require bbdb overlays-at overlay-get eudc-record error "Point is not over a record" eudc-create-bbdb-record] 4 (#$ . 5448) nil])
#@62 Call `eudc-insert-record-at-point-into-bbdb' if on a record.
(defalias 'eudc-try-bbdb-insert #[nil "\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 (#$ . 5846) nil])

${this.title}

Code Editor : eudc-export.elc