ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/mail/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/mail/rfc2368.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@62 Regular expression to match and aid in parsing a mailto url.
(defconst rfc2368-mailto-regexp "^\\(mailto:\\)\\([^?]+\\)*\\(\\?\\(.*\\)\\)*" (#$ . 410))
#@45 Describes the `mailto:' portion of the url.
(defconst rfc2368-mailto-scheme-index 1 (#$ . 568))
#@61 Describes the portion of the url between `mailto:' and `?'.
(defconst rfc2368-mailto-prequery-index 2 (#$ . 670))
#@45 Describes the portion of the url after `?'.
(defconst rfc2368-mailto-query-index 4 (#$ . 790))
#@59 Unhexify STRING -- e.g. `hello%20there' -> `hello there'.
(defalias 'rfc2368-unhexify-string #[(string) "\301\302\303\304\211%\207" [string replace-regexp-in-string "%[[:xdigit:]]\\{2\\}" #[(match) "\301\302\303\304O\305\"!\207" [match string string-to-number 1 nil 16] 5] t] 6 (#$ . 891)])
#@397 Parse MAILTO-URL, and return an alist of header-name, header-value pairs.
MAILTO-URL should be a RFC 2368 (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.
(defalias 'rfc2368-parse-mailto-url #[(mailto-url) "\306\307\211\211\310\311\312\f#\313
\f\"\203] \314\f\"\314\f\"\211\203- \315\316\317 \320\"\"\n\203Y \321\n!\322\323\"\203S \322\323\"\211 A \n\324Q\241\210*\202Y \323\nBB\202` \325\326!,\207" [headers-alist query prequery case-fold-search mailto-url rfc2368-mailto-regexp t nil replace-regexp-in-string "\n" " " string-match match-string mapcar #[(x) "\304\305\"\211@ A@\306\307\n!!\307 !+B\207" [x temp-list header-name header-value split-string "=" capitalize rfc2368-unhexify-string] 4] split-string "&" rfc2368-unhexify-string assoc "To" ", " error "Failed to match a mailto: url" rfc2368-mailto-prequery-index rfc2368-mailto-query-index our-cons-cell our-cdr] 6 (#$ . 1191)])
(provide 'rfc2368)
Kontol Shell Bypass