ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/url/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/url/url-mailto.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\300\303!\207" [require url-vars url-parse url-util] 2)
(defalias 'url-mail #[(&rest args) "\301\302!\203 \303\302\"\207\303\304\"\206 \305\306!\207" [args fboundp message-mail apply mail error "Mail aborted"] 3 nil "P"])
(defalias 'url-mail-goto-field #[(field) "\204 db\207\305\211\306\212eb\210\307\310\f!\305\306#\203 \311\224eb\210\307\312\310!\313Q\n\306#\2031 \311\224) \203> b\210\305\202L \nb\210\314!\315\261\210\212\316c)+\207" [field case-fold-search lim dest mail-header-separator nil t re-search-forward regexp-quote 0 "^" ":" capitalize ": " "\n"] 4])
#@32 Handle the mailto: URL syntax.
(defalias 'url-mailto #[(url) "\306H >\204 \307\310\300D\"\210\311H\203Q \306H >\204$ \307\310\300D\"\210\211\312\306H >\2047 \307\310\300D\"\210\311H\313\306H >\204J \307\310\300D\"\210\312HQI\210)\306H >\204` \307\310\300D\"\210\312H\314\211\211\211\211\211 0 1 2\315\316\"\203\223 \306\225\317\306\211\224O!2\320 \314O\321\211#1\202\230 \317!2\322\321!03\203\270 \323\3241\"\204\270 \324\3254\3265RD1B10\203\316 \323\3271\"\204\316 \3270D1B1\323\3301\"\211 6\203\360 2\331\230\204\371 62\3326A@QC\241\210\202\371 \3302D1B1)\323\3241\"\2437\333=\203\333\314\211\211\334$\210\202$7\335=\203 \335\334!\210\202$7 \2101\203t1@@\336\230\203Qeb\210\337\3408\340Q\314\321#\204Ddb\210\341\3421@A\340#c\210\202k\3431@@!\210\344\3451@@P!\341\3461@A\332#c\2101A\2111\204)3\204\217\347\314!\210
\203\210\343\314!\210\202\322\343\324!\210\202\3229\203\233\341\3509\331#\210db\2103c\210\351\352!\203\322p :7\333=\203\274;\353N\314!\210\202\314\354\355!\203\310\355 \210\202\314\356\314!\210\357:!\210).\314\207" [url cl-struct-url-tags #1=#:v headers-start func subject 0 signal wrong-type-argument 2 6 "@" nil string-match "\\?" url-unhex-string url-parse-query-string t url-view-url assoc "subject" "Automatic submission from " "/" "x-url-from" "to" "" ", " compose-mail new mail "body" search-forward "\n" mapconcat #[(string) "\301\302\303#\207" [string replace-regexp-in-string "
\n" "\n"] 4] url-mail-goto-field intern-soft "mail-" identity set-buffer-modified-p #[(x) "\301@!\210Ac\207" [x url-mail-goto-field] 2] y-or-n-p "Send this auto-generated mail? " sendfunc fboundp message-send-and-exit mail-send-and-exit kill-buffer source-url args to url-request-data url-package-name url-package-version tolist url-mail-command mail-header-separator url-request-extra-headers buffer mail-user-agent] 9 (#$ . 1032)])
(provide 'url-mailto)
Kontol Shell Bypass