;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@62 Regular expression to match and aid in parsing a mailto url.
(defconst rfc2368-mailto-regexp "^\\(mailto:\\)\\([^?]+\\)?\\(\\?\\(.*\\)\\)*" (#$ . 84))
#@45 Describes the `mailto:' portion of the url.
(defconst rfc2368-mailto-scheme-index 1 (#$ . 241))
#@61 Describes the portion of the url between `mailto:' and `?'.
(defconst rfc2368-mailto-prequery-index 2 (#$ . 343))
#@45 Describes the portion of the url after `?'.
(defconst rfc2368-mailto-query-index 4 (#$ . 463))
#@72 Unhexify STRING -- e.g. `hello%20there' -> `hello there'.

(fn STRING)
(defalias 'rfc2368-unhexify-string #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "%[[:xdigit:]]\\{2\\}" #[257 "\300\301\302\303O\304\"!\207" [string string-to-number 1 nil 16] 6 "\n\n(fn MATCH)"] t] 7 (#$ . 564)])
#@414 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.

(fn MAILTO-URL)
(defalias 'rfc2368-parse-mailto-url #[257 "\304\305\211\211\306\307\310#\262\311	\"\203]\312\n\"\262\312\"\262
\2031\313\314\315\316\"\"\262
\203Y\317!\262\320\321\"\203R\320\321\"\211A
\322Q\241\266\202Y\321B
B\262
\211\202`\323\324!)\207" [case-fold-search rfc2368-mailto-regexp rfc2368-mailto-prequery-index rfc2368-mailto-query-index t nil string-replace "\n" " " string-match match-string mapcar #[257 "\300
\301\"\211@
A@\302\303!!\303!B\207" [split-string "=" capitalize rfc2368-unhexify-string] 7 "\n\n(fn X)"] split-string "&" rfc2368-unhexify-string assoc "To" ", " error "Failed to match a mailto: url"] 11 (#$ . 872)])
(provide 'rfc2368)