;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:16:35 2003 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/lisp/url-mail.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; 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 "`url-mail.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require url-vars url-parse] 2) (defalias 'url-mailserver-skip-chunk '(macro . #[nil "\300\207" [(while (and (not (looking-at "/")) (not (eobp))) (forward-sexp 1))] 1])) (defalias 'url-mail #[(&rest args) "\301\302!\203 \303\302\"\207\303\304\"\206\305\306!\207" [args fboundp message-mail apply mail error "Mail aborted"] 3 nil "P"]) (defalias 'url-mail-goto-field #[(field) "\204db\207\305\211\306\212eb\210\307\310\f!\305\306#\203\311\224eb\210\307\312\310!\313Q\n\306#\2031\311\224) \203> b\210\305\202L\nb\210\314!\315\261\210\212\316c)+\207" [field case-fold-search lim dest mail-header-separator nil t re-search-forward regexp-quote 0 "^" ":" capitalize ": " "\n"] 4]) (defalias 'url-mailto #[(url) "\306\307\"\203\310\224S\311=\203\312\313\314\"\210\202\315\316\"\210\310\224\317O\320 !\203,\321 !\210\317\211\211\211\211\211-.\306\322\323!\"\203[\324\225\325\324\211\224O!.\326\n\317O\327\"-\202`\325!.\330\327!/\203\331\332-\"\204\332\3330\3341RD-B- \203\223\331\335-\"\204\223\335 D-B-\331\336-\"\203\256\331\336-\".\331\336-\"AB\241\210\202\267\336.D-B-\331\332-\"\243\3372!\203\3142 \210\202\317\340 \210-\203$-\2113@@)\341\230\203\365db\210\342\343-\2113@A)\344#c\210\202\345-\2113@@)!\210\346\347-\2113@@)P!\342\343-\2113@A)\350#c\210-A\211-\204\324\345\351!\2100\3341\261\210/\204E\f\203?\345\317!\202[\345\332!\202[4\203Q\342\3524\353#\210db\210/c\210\354\317!.\207" [url url-working-buffer headers-start func subject source-url string-match "mailto:/*\\(.*\\)" 1 47 w3-debug-html :style "mailto URL with slashes before mailbox." error "Malformed mailto link: %s" nil get-buffer kill-buffer regexp-quote "?" 0 url-unhex-string url-parse-query-string t url-view-url assoc "subject" "Automatic submission from " "/" "x-url-from" "to" fboundp mail "body" mapconcat identity "\n" url-mail-goto-field intern-soft "mail-" ", " "X-Mailer" #[(x) "\301@!\210Ac\207" [x url-mail-goto-field] 2] "" mail-send-and-exit args to url-request-data url-package-name url-package-version url-mail-command x url-request-extra-headers] 7]) (defalias 'url-mailserver #[(url) "\306!\203\n\307!\210\310\311!q\210\312 \210 c\210eb\210\313\n!\210\314\315w\210\316\315w\210\317\320!\2033\321\301\322\"\210\320\315w\210`\323\324!\315\211\211*\317\320!\204Qm\204Q\325\326!\210\202@*`{\326u\210`*\317\320!\204mm\204m\325\326!\210\202\\*`{m\204}\326u\210`d{\327+!\203\213+ \210\202\216\330 \210\331\332!\210 c\210 \203\246 \333\230\204\246\331\334!\210 c\210\331\335!\210,\320-\261\210\331\336!\210\f\203\347\337\f!\211GS\340././X\203\346\f.H\341>\203\335\f.\342I\210.T\211.\202\310*\fc\2100\203\372eb\210\343\3440\333#c\210db\210 \203. GS\340././X\203) .H\345U\203  .\346I\210.T\211.\202 \337 !* \2035 c\2101\203>1c\210 \204G1\205T2\347 \350Q!\205T\351\315!-\207" [url-working-buffer url url-mailserver-syntax-table body subject rfc822-addr get-buffer kill-buffer get-buffer-create " *mailserver*" erase-buffer set-syntax-table "^:" nil ":" looking-at "/" url-warn "Invalid mailserver URL... attempting to cope." url-view-url t forward-sexp 1 fboundp mail url-mail-goto-field "to" "" "X-URL-From" "X-Mailer" "subject" url-unhex-string 0 (13 10) 32 mapconcat #[(x) "\301@!\210Ac\207" [x url-mail-goto-field] 2] 47 10 "Send message to " "? " mail-send-and-exit save-pos url-mail-command url-package-name url-package-version y x url-request-extra-headers url-request-data url-confirmation-func] 6]) (provide 'url-mail)