|
Server IP : 111.118.215.189 / Your IP : 18.116.170.100 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/mail/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;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. & -> &), 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@ \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)