;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:52 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/rfc2368.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`rfc2368.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@62 Regular expression to match and aid in parsing a mailto url. (defconst rfc2368-mailto-regexp "^\\(mailto:\\)\\([^?]+\\)*\\(\\?\\(.*\\)\\)*" (#$ . 621)) #@45 Describes the 'mailto:' portion of the url. (defconst rfc2368-mailto-scheme-index 1 (#$ . 779)) #@61 Describes the portion of the url between 'mailto:' and '?'. (defconst rfc2368-mailto-prequery-index 2 (#$ . 881)) #@45 Describes the portion of the url after '?'. (defconst rfc2368-mailto-query-index 4 (#$ . 1001)) #@37 Unhexify CHAR -- e.g. %20 -> . (defalias 'rfc2368-unhexify-char #[(char) "\301V\203\302Y\203\302Z\303\\\207\304Z\303\\\207\305Z\207" [char 57 97 10 65 48] 2 (#$ . 1103)]) #@59 Unhexify STRING -- e.g. 'hello%20there' -> 'hello there'. (defalias 'rfc2368-unhexify-string #[(string) "\305\306\307\310\n\"\2033\311\224\312\n T\234!\313_\312\n \314\\\234!\\\n\311 O\315\f!Q\n\311\225\316O*\202\nP\211*\207" [result case-fold-search string start hex-code t "" string-match "%[0-9a-f][0-9a-f]" 0 rfc2368-unhexify-char 16 2 char-to-string nil] 6 (#$ . 1294)]) #@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\f \"\203S\311 \"\311 \"\211\203'\312\313\314 \315\"\"\n\203O\316\317\"\203I\316\317\"\211A\320\nQ\241\210*\202O\317\nBB\202V\321\322!,\207" [headers-alist query prequery case-fold-search rfc2368-mailto-regexp mailto-url t nil 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 "&" assoc "To" ", " error "Failed to match a mailto: url" rfc2368-mailto-prequery-index rfc2368-mailto-query-index our-cons-cell our-cdr] 6 (#$ . 1689)]) (provide 'rfc2368)