|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/url/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:22 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-mailto.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\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\311\300#\210\312H\203M \306H >\204\" \307\310\313\300#\210\211\314\306H >\2044 \307\310\311\300#\210\312H\315\306H >\204F \307\310\313\300#\210\314HQI\210)\306H >\204[ \307\310\313\300#\210\314H\316\211\211\211\211\211 2 3 4\317\320\"\203\216 \306\225\321\306\211\224O!4\322 \316O\323\211#3\202\223 \321!4\324\323!25\203\263 \325\3263\"\204\263 \326\3276\3307RD3B32\203\311 \325\3313\"\204\311 \3312D3B3\325\3323\"\211 8\203\357 4\333\230\204\370 84\3348\211 9A@)QC\241\210\202\370 \3324D3B3)\325\3263\"\243:\335=\203\335\316\211\211\336$\210\202#:\337=\203 \337\336!\210\202#: \2103\203\2073\211 9@@)\340\230\203Xeb\210\341\342;\342Q\316\323#\204Gdb\210\343\3443\211 9@A)\342#c\210\202~\3453\211 9@@)!\210\346\3473\211 9@@)P!\343\3503\211 9@A)\334#c\2103A\2113\204(5\204\242\351\316!\210 \203\233\345\316!\210\202\345\345\326!\210\202\345<\203\256\343\352<\333#\210db\2105c\210\353\354!\203\345p =:\335=\203\317>\355N\316!\210\202\337\356\357!\203\333\357 \210\202\337\360\316!\210\361=!\210).\316\207" [url cl-struct-url-tags #1=#:v headers-start func subject 0 error "%s accessing a non-%s" url-user 2 url-filename 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 x url-mail-command mail-header-separator url-request-extra-headers buffer mail-user-agent] 9 (#$ . 1179)]) (provide 'url-mailto)