;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. #@62 Regular expression to match and aid in parsing a mailto url. (defconst rfc2368-mailto-regexp "^\\(mailto:\\)\\([^?]+\\)?\\(\\?\\(.*\\)\\)*" (#$ . 83))#@45 Describes the `mailto:' portion of the url. (defconst rfc2368-mailto-scheme-index 1 (#$ . 239))#@61 Describes the portion of the url between `mailto:' and `?'. (defconst rfc2368-mailto-prequery-index 2 (#$ . 340))#@45 Describes the portion of the url after `?'. (defconst rfc2368-mailto-query-index 4 (#$ . 459))#@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 (#$ . 559)])#@418 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 with a key of `Body' is a special case and is considered a header for this purpose. The returned alist is intended for use with 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\321BB\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 (#$ . 866)]) (provide 'rfc2368)