1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / thread-self / root / usr / share / emacs / 24.3 / lisp / mail /
Filename : rfc2368.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:43 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/rfc2368.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@62 Regular expression to match and aid in parsing a mailto url.
(defconst rfc2368-mailto-regexp "^\\(mailto:\\)\\([^?]+\\)*\\(\\?\\(.*\\)\\)*" (#$ . 555))
#@45 Describes the 'mailto:' portion of the url.
(defconst rfc2368-mailto-scheme-index 1 (#$ . 713))
#@61 Describes the portion of the url between 'mailto:' and '?'.
(defconst rfc2368-mailto-prequery-index 2 (#$ . 815))
#@45 Describes the portion of the url after '?'.
(defconst rfc2368-mailto-query-index 4 (#$ . 935))
#@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 (#$ . 1036)])
#@396 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. &amp; -> &), 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\"\211A\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@	\211A@)\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 (#$ . 1337)])
(provide 'rfc2368)