;ELC   
;;; Compiled by amu@daemon on Thu Jan 11 15:04:18 2001
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/webmail.el
;;; in Emacs version 20.7.2
;;; with bytecomp version 2.56
;;; 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 "`webmail.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\207" [require nnoo message gnus-util gnus nnmail mm-util mml] 2)
(progn (require 'w3) (require 'url) (require 'url-cookie) (require 'w3-forms) (require 'nnweb))
(byte-code "\304\300!\204 \305\300	B\304\302!\204 \306\302	B\307\303	B\304\207" [webmail-type-definition current-load-list webmail-variables webmail-version boundp ((hotmail (paranoid agent cookie post) (address . "www.hotmail.com") (open-url "http://www.hotmail.com/") (open-snarf . webmail-hotmail-open) (login-url "http://%s/cgi-bin/dologin?login=%s&passwd=%s&enter=Sign+in&sec=no&curmbox=ACTIVE&_lang=&js=yes&id=2&tw=-10000&beta=" webmail-aux user password) (list-snarf . webmail-hotmail-list) (article-snarf . webmail-hotmail-article) (trash-url "%s&login=%s&f=33792&curmbox=ACTIVE&_lang=&foo=inbox&js=&page=&%s=on&_HMaction=MoveTo&tobox=trAsH&nullbox=" webmail-aux user id)) (yahoo (paranoid agent cookie post) (address . "mail.yahoo.com") (open-url "http://mail.yahoo.com/") (open-snarf . webmail-yahoo-open) (login-url content ("%s" webmail-aux) ".tries=&.src=ym&.last=&promo=&.intl=&.bypass=&.partner=&.chkP=Y&.done=&login=%s&passwd=%s" user password) (login-snarf . webmail-yahoo-login) (list-url "%s&rb=Inbox&YN=1" webmail-aux) (list-snarf . webmail-yahoo-list) (article-snarf . webmail-yahoo-article) (trash-url "%s/ym/ShowFolder?YY=52107&inc=50&order=down&sort=date&pos=0&box=Inbox&DEL=Delete&destBox=&Mid=%s&destBox2=" webmail-aux id)) (netaddress (paranoid cookie post) (address . "www.netaddress.com") (open-url "http://www.netaddress.com/") (open-snarf . webmail-netaddress-open) (login-url content ("%s" webmail-aux) "LoginState=2&SuccessfulLogin=%%2Ftpl&NewServerName=www.netaddress.com&JavaScript=JavaScript1.2&DomainID=4&NA31site=classic.netaddress.com&NA31port=80&UserID=%s&passwd=%s" user password) (login-snarf . webmail-netaddress-login) (list-url "http://www.netaddress.com/tpl/Mail/%s/List?FolderID=-4&SortUseCase=True" webmail-session) (list-snarf . webmail-netaddress-list) (article-url "http://www.netaddress.com/") (article-snarf . webmail-netaddress-article) (trash-url "http://www.netaddress.com/tpl/Message/%s/Move?FolderID=-4&Q=%s&N=&Sort=Date&F=-1" webmail-session id)) (netscape (paranoid cookie post agent) (address . "webmail.netscape.com") (open-url "http://ureg.netscape.com/iiop/UReg2/login/login?U2_LA=en&U2_BACK_FROM_CJ=true&U2_CS=iso-8859-1&U2_ENDURL=http://webmail.netscape.com/tpl/Subscribe/Step1&U2_NEW_ENDURL=http://webmail.netscape.com/tpl/Subscribe/Step1&U2_EXITURL=http://home.netscape.com/&U2_SOURCE=Webmail") (open-snarf . webmail-netscape-open) (login-url content ("http://ureg.netscape.com/iiop/UReg2/login/loginform") "U2_USERNAME=%s&U2_PASSWORD=%s%s" user password webmail-aux) (login-snarf . webmail-netaddress-login) (list-url "http://webmail.netscape.com/tpl/Mail/%s/List?FolderID=-4&SortUseCase=True" webmail-session) (list-snarf . webmail-netaddress-list) (article-url "http://webmail.netscape.com/") (article-snarf . webmail-netscape-article) (trash-url "http://webmail.netscape.com/tpl/Message/%s/Move?FolderID=-4&Q=%s&N=&Sort=Date&F=-1" webmail-session id)) (my-deja (paranoid cookie post) (address . "www.my-deja.com") (open-url "http://www.deja.com/my/pr.xp") (open-snarf . webmail-my-deja-open) (login-url content ("%s" webmail-aux) "member_name=%s&pw=%s&go=&priv_opt_MyDeja99=" user password) (list-url "http://www.deja.com/rg_gotomail.xp") (list-snarf . webmail-my-deja-list) (article-snarf . webmail-my-deja-article) (trash-url webmail-aux id))) (address article-snarf article-url list-snarf list-url login-url login-snarf open-url open-snarf site articles post-process paranoid trash-url) "webmail 1.0"] 2)
#@23 Only fetch new mails.
(defvar webmail-newmail-only nil (#$ . 4373))
#@40 Move mail to trash can after fetch it.
(defvar webmail-move-to-trash-can t (#$ . 4447))
(byte-code "\306\300!\204 \307\300	B\306\302!\204 \307\302	B\306\303!\204  \307\303	B\306\304!\204, \307\304	B\306\305!\2048 \307\305	B\306\310!\204E \307\310	B\306\311!\204R \307	\311	B\306\312!\204_ \307\n\312	B\306\313!\204l \307\313	B\306\314!\204y \307\f\314	B\306\315!\204\206 \307\315	B\306\316!\204\223 \307\316	B\306\317!\204\240 \307\317	B\306\320!\204\255 \307\320	B\306\321!\204\272 \307\321	B\306\322!\204\307 \307\322	B\306\323!\204\324 \307\323	B\306\324!\204\341 \307\324	B\306\325!\204\356 \307\325	B\306\326!\204\373 \327\326	B\307\207" [webmail-address current-load-list webmail-paranoid webmail-aux webmail-session webmail-article-snarf boundp nil webmail-article-url webmail-list-snarf webmail-list-url webmail-login-url webmail-login-snarf webmail-open-snarf webmail-open-url webmail-trash-url webmail-articles webmail-post-process webmail-buffer webmail-buffer-list webmail-type webmail-error-function webmail-debug-file "~/.emacs-webmail-debug"] 2)
(defalias 'webmail-debug #[(str) "\304\305\306!!\307\216rq\210\310	\311\261\210\312\313\314\"\210\315c\210\316\n!\210\317c\210\320ed#+\207" [#1=#:temp-buffer str webmail-buffer webmail-debug-file get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "\n---------------- A bug at " " ------------------\n" mapcar #[(sym) "\301!\205 \302\303\304\305!DEp\"\207" [sym boundp pp setq quote eval] 6] (webmail-type user) "---------------- webmail buffer ------------------\n\n" insert-buffer-substring "\n---------------- end of buffer ------------------\n\n" append-to-file] 4])
(defalias 'webmail-error #[(str) "\203 	!\210\303\304\n	#\210\305\304\n	#\207" [webmail-error-function str webmail-type message "%s HTML has changed or your w3 package is too old.(%s)" error] 4])
(defalias 'webmail-setdefault #[(type) "	\236A\n\306\n\f\306\211\f\203F \f@\211\236\211\2032 \307\310\311!P!AL\210\202= \307\310\311!P!\306L\210\fA\211\f\204 -\306\207" [type webmail-type-definition webmail-variables pair vars type-def nil intern "webmail-" symbol-name webmail-type var #1=#:--dolist-temp--89078] 5])
#@33 Return PAIRS encoded for forms.
(defalias 'webmail-encode-www-form-urlencoded #[(pairs) "\301\302\303#\207" [pairs mapconcat #[(data) "\301@!\302\301A!Q\207" [data w3-form-encode-xwfu "="] 4] "&"] 4 (#$ . 6767)])
(defalias 'webmail-fetch-simple #[(url content) "\305\306\307\f!\210+\310\207" [content url-request-extra-headers url-request-method url-request-data url "POST" (("Content-type" . "application/x-www-form-urlencoded")) nnweb-insert t] 3])
(defalias 'webmail-fetch-form #[(url pairs) "\305!\306\307\310\f!\210+\311\207" [pairs url-request-extra-headers url-request-method url-request-data url webmail-encode-www-form-urlencoded "POST" (("Content-type" . "application/x-www-form-urlencoded")) nnweb-insert t] 3])
(defalias 'webmail-eval #[(expr) ":\203 \301@!\301A!B\2079\203 \302!\207\207" [expr webmail-eval eval] 3])
(defalias 'webmail-url #[(xurl) "\304\305!\204g \306\300!\203g \203g \307\310!\203g p\311\216\312\310\312!\210@\313=\203H A\314@;\2036 @\202= \315\316\317@!\"\315\316\317A!\"\"\202e @\320=\203] A\321@\317A!\"\202e \322\315\316\317!\"!+\207\312@\313=\203\221 A\314@;\203 @\202\206 \315\316\317@!\"\315\316\317A!\"\"\202\256 @\320=\203\246 A\321@\317A!\"\202\256 \322\315\316\317!\"!)\207" [enable-multibyte-characters #1=#:buffer default-enable-multibyte-characters xurl featurep xemacs boundp fboundp set-buffer-multibyte ((byte-code "q\210\301\302!\207" [#1# set-buffer-multibyte t] 2)) nil content webmail-fetch-simple apply format webmail-eval post webmail-fetch-form nnweb-insert] 6])
#@30 Initialize buffers and such.
(defalias 'webmail-init #[nil "\211\205 \302	!\205 \303\302	!!)\203 q\207\304\305!\306\307!?\205, \310\311!\205, \311\312!\207" [webmail-buffer buffer get-buffer buffer-name nnheader-set-temp-buffer " *webmail*" featurep xemacs fboundp set-buffer-multibyte nil] 4 (#$ . 8343)])
(byte-code "\301B\302B\303B\304B\301\207" [current-load-list url-package-name url-package-version url-cookie-multiple-line url-confirmation-func] 2)
(defalias 'webmail-url-confirmation-func #[(prompt) "\301\232\203 \302\207\303\232\203 \304\207\305!\207" [prompt "Honor redirection with non-GET method (possible security risks)? " nil "Continue (with method of GET)? " t error] 2])
#@31 Redirect refresh url in META.
(defalias 'webmail-refresh-redirect #[nil "eb\210\304\305\306\307#\205H \310\311!\312 \210\313\314!\204: \315\301!\203: 	\203: \316\317!\203: p\320\216\306\317\306!\210\321!\210+\202A \306\321!\210))eb\210\202 \207" [url enable-multibyte-characters #1=#:buffer default-enable-multibyte-characters re-search-forward "<meta[ 	\n]*http-equiv=\"Refresh\"[^>]*URL=\\([^\"]+\\)\"" nil t match-string 1 erase-buffer featurep xemacs boundp fboundp set-buffer-multibyte ((byte-code "q\210\301\302!\207" [#1# set-buffer-multibyte t] 2)) nnweb-insert] 4 (#$ . 9058)])
(defalias 'webmail-fetch #[(file subtype user password) "\212\306!\210\307	>\203 \310\202 \n\307	>\203 \311\202 \312	>?\205# \f\313	>\203- \314\202. \315\316\211\211\211\211\317!\"#$%&'\320 \210\316()\203Z \321 \210\322)!\210*\203c * \210+\203p \321 \210\322+!\210,\203y , \210-\203\206 \321 \210\322-!\210.\203\217 . \210(\211A(@\211#\203\n\323\324!T\211!\"\210\321 \210\325\326!\204\326 \327\330!\203\326 \203\326 \331\332!\203\326 p/\333\216\3160\332\316!\210\334#A!\210+\202\340 \3160\334#A!\210)#@\"1\203\362 12\"\"\2103\203\217 4\203\217 \323\335!\"\210\336\337\340\217\210\202\217 .5\2055 )\207" [subtype webmail-paranoid url-package-name url-package-version url-cookie-multiple-line url-confirmation-func webmail-setdefault agent "Mozilla" "4.0" cookie post webmail-url-confirmation-func t nil 0 webmail-init erase-buffer webmail-url message "Fetching mail #%d..." featurep xemacs boundp enable-multibyte-characters fboundp set-buffer-multibyte ((byte-code "q\210\301\302!\207" [#1=#:buffer set-buffer-multibyte t] 2)) nnweb-insert "Move mail #%d to trash can..." err (byte-code "\303!\210\304\n\211A@\211\203 \305	!\210\202 )\304\207" [webmail-trash-url buf webmail-buffer-list webmail-url nil kill-buffer] 2) ((error (byte-code "\303	\211A@\211\203 \304!\210\202 )\305\n!\207" [buf webmail-buffer-list err nil kill-buffer error] 2))) n id item url-cookie-confirmation url-cookie-secure-storage url-cookie-storage url-http-silence-on-insecure-redirection webmail-articles webmail-open-url webmail-open-snarf webmail-login-url webmail-login-snarf webmail-list-url webmail-list-snarf #1# default-enable-multibyte-characters webmail-article-snarf file webmail-trash-url webmail-move-to-trash-can webmail-post-process] 11])
(defalias 'webmail-encode-8bit #[nil "eb\210\300\301w\210m?\205  \302\303\304\301f!\"c\210\305\306!\210\300\301w\210\202 \207" ["^\200-\377" nil format "&%d;" mm-char-int delete-char 1] 4])
(defalias 'webmail-hotmail-open #[nil "eb\210\301\302\303\304#\203 \305\306!\211\207\307\310!\207" [webmail-aux re-search-forward "action=\"https?://\\([^/]+\\)/cgi-bin/dologin" nil t match-string 1 webmail-error "open@1"] 4])
(defalias 'webmail-hotmail-login #[nil "\302eb\210\303\304\302\305#\203 \306\307!\202 \310\311!\210eb\210\303\312\302\305#\203. \313\306\307!Q\211\2021 \310\314!)\207" [site webmail-aux nil re-search-forward "https?://\\([^/]+hotmail\\.msn\\.com\\)/cgi-bin/" t match-string 1 webmail-error "login@1" "\\(/cgi-bin/HoTMaiL\\?[^\"]*a=b[^\"]*\\)" "http://" "login@2"] 4])
(defalias 'webmail-hotmail-list #[nil "eb\210\306\307w\210\307\211\211\310m\203 \310\202G \311\312\307\313#\203/ \314\315\316\317!\211\316\320!#\210\202G \311\321\307\313#\203C \314\322\316\317!\211\"\210\202G \323\324!\210\310\232?\205\301 eb\210\311\325\307\313#\203` \316\317!\202d \323\326!\210eb\210\311\327\307\313#\203z \330\331\316\317!R\202~ \323\332!\210db\210\333\334\307\313#\205\301 \316\317!\211\203\274 	\204\231 \204\267 \307 \335\336\n\"\203\251 \316\317\n\"  \330\n\337RB!B!)\307\202\201 \313\202\201 ,\207" [total newp url site webmail-aux webmail-newmail-only " 	\n" nil "0" re-search-forward "\\([0-9]+\\) *<b>(\\([0-9]+\\) new)" t message "Found %s (%s new)" match-string 1 2 "\\([0-9]+\\) new" "Found %s new" webmail-error "list@0" "https?://\\([^/]+hotmail\\.msn\\.com\\)/cgi-bin/" "list@1" "disk=\\([^&]*\\)&" "http://" "/cgi-bin/HoTMaiL?disk=" "list@2" re-search-backward "newmail\\.gif\\|href=\"\\(/cgi-bin/getmsg\\?[^\"]+\\)\"" string-match "msg=\\([^&]+\\)" "&raw=0" id webmail-articles] 5])
(defalias 'webmail-hotmail-article #[(file id) "eb\210\303\304w\210m?\205w \305\306\304\307#\204 \310\311!\210\312\304w\210e`|\210\305\313\304\307#\204, \310\314!\210\315\224d|\210\316 \210\317B\320 \210)eb\210\321\322\304\307#\203N \323\324!\210\202? eb\210\325c\210\326\327!\204d \330\331 \324\261\210\202g \304y\210\332\333J\334\335	!\324\261\210\336ed\n#\207" [w3-html-entities webmail-type file " 	\n" nil search-forward "<pre>" t webmail-error "article@3" "\n	 " "</pre>" "article@3.1" 0 nnweb-remove-markup (nbsp . 32) nnweb-decode-entities re-search-forward "\n?" replace-match "\n" "\n\n" looking-at "\n*From " "From nobody " current-time-string "X-Gnus-Webmail: " user "@" symbol-name mm-append-to-file] 5])
(defalias 'webmail-hotmail-article-old #[(file id) "\306\211\211\211\211\214\307 \210eb\210\310\311\306\312#\204- \310\313\306\312#\204( \314\315!\210\2021 \312\2021 \316\224b\210e`}\210\317\320\306\312\321$\204B \314\322!\210e\316\224|\210\310\323\306\312#\203` \316\224\310\324\306\312#\210\f\316\225|\210\202G \325 \210\326B\327 \210)eb\210\330 \210eb\210\310\331\306\312#\203\203 \332 \210`d|\210db\210~\210\333c\210`\334\335\306\312#\203\210\336\337!\211\203\367 \336\321!\306@A\f\316\225|\210\212\340\341!q\210\342!\210pBBB\343 @)\312\344A\203\331 \345\346A\"\203\331 \347\336\316A\"!\206\332 \350\261\210\351@\352\261\210\353A\352\261\210\354c\210\355c\210`*\202\215 \f\316\225|\210\203\310\356\306\312#\204\314\357!\210\202G\316\224\316\225|\210\202G\337\n\316V\203G\334\360\306\312#\203G\336\337!\2035\nT\211\202\nS\211\316U\203\316\224\316\225|\210\202\f`}\210eb\210\361\362!\203s\316\225b\210\361\363!\203a\306u\210e`|\210\325 \210\364B\327 \210)\202~\312\365c\210db\210\366c\210db\210`~\210\202\215 \fd|\210eb\210\367\370 \333\261\210\371\372J\373\374C!\333\261\210D\203\256\375\376D\"c\210\361\363!\204\310\310\331\306\312#\203\302\377y\210\202\310\314\201G !\210`d}\210	\203\336\201H \201I  ed|\210\261\210eb\210~\210\306E\334\201J \306\312#\203\373\316y\210\201K c\210\202\346*\201L edF#-\207" [hotmail-direct mime count attachment p w3-html-entities nil webmail-encode-8bit search-forward "<DIV>" t "Reply&nbsp;All" webmail-error "article@1" 0 search-backward "<table" 2 "article@1.1" "<a href=" "</a>" nnweb-remove-markup (nbsp . 32) nnweb-decode-entities delete-blank-lines "\n\n" backward-char "\n" re-search-forward "<tt>\\|<div>\\|\\(http://[^/]+/cgi-bin/getmsg/\\([^?]+\\)?[^\"]*\\)\"" match-string 1 generate-new-buffer " *webmail-att*" nnweb-insert buffer-name "<#part type=" string-match "\\.[^\\.]+$" mailcap-extension-to-mime "application/octet-stream" " buffer=\"" "\"" " filename=\"" " disposition=\"inline\"" "><#/part>\n" "</tt>" "article@1.2" "</div>\\|\\(<div>\\)" looking-at "<pre>" "$" (nbsp . 32) "<#part type=\"text/html\" disposition=inline>" "<#/part>" "\n\nFrom nobody " current-time-string "X-Gnus-Webmail: " user "@" symbol-name format "X-Message-ID: <%s@hotmail.com>\n" -1 bufname filename webmail-buffer-list webmail-type id case-fold-search file "article@2" "MIME-Version: 1.0\n" mml-generate-mime "^From " ">" mm-append-to-file] 6])
(defalias 'webmail-yahoo-open #[nil "eb\210\301\302\303\304#\203 \305\306!\211\207\307\310!\207" [webmail-aux re-search-forward "action=\"\\([^\"]+\\)\"" nil t match-string 1 webmail-error "open@1"] 4])
(defalias 'webmail-yahoo-login #[nil "eb\210\301\302\303\304#\203 \305\306!\202 \307\310!\210\301\311\303\304#\203' \312\305\306!Q\211\207\307\313!\207" [webmail-aux re-search-forward "http://[^/]+[0-9]\\.mail\\.yahoo\\.com/" nil t match-string 0 webmail-error "login@1" "YY=[0-9]+" "ym/ShowFolder?" "login@2"] 4])
(defalias 'webmail-yahoo-list #[nil "\306\307\310eb\210\311\312\306\307#\203 \313\314\315\316!\"\210\317\320\"\203' \315\310\"\202+ \321\322!\210eb\210\311\323\306\307#\203^ \315\324!\211\203Y 	\204F \f\204T \315\316!\n\325QBBT\307\202. \306\202. \237\313\326\"+\207" [tofetch newp url webmail-aux webmail-newmail-only webmail-articles nil t 0 re-search-forward "showing [0-9]+-\\([0-9]+\\) of \\([0-9]+\\)" message "Found %s mail(s)" match-string 2 string-match "http://[^/]+" webmail-error "list@1" "bgcolor=\"#eeeeee\"\\|href=\"\\(/ym/ShowLetter\\?MsgId=\\([^&]+\\)&[^\"]*\\)\"" 1 "&toc=1" "Fetching %d mail(s)"] 4])
(defalias 'webmail-yahoo-article #[(file id) "\306\211\214eb\210\307\310\306\311#\204 \312\313!\210\307\314\306\311#\204  \312\315!\210e\316\224|\210\307\317\306\311#\2041 \312\320!\210e\316\225}\210\307\321\306\311#\203O \316\224\307\322\306\311#\210	\316\225|\210\2026 \323 \210\324\nB\325 \210)eb\210\326 \210db\210~\210\327c\210`\330\331\306\311#\203#\332\316!\306\211\211\211\211@A\307\314\306\311#\204\216 \312\333!\210	\316\224|\210\307\317\306\311#\204\237 \312\334!\210	\316\225}\210\323 \210\335\nB\325 \210)eb\210\326 \210\336\337!@\340\341\342\217\336\343!\336\344!\336\345!Bed|\210~\210\212\346\347!q\210\350CP!\210pDBD\351 A)\352c\210\203\377 @\353\232\204\377 \354@\355\261\210\356A\355\261\210\f\203\357\f\355\261\210\203\360\355\261\210\361c\210`-\202j 	d|\210eb\210\362\363 \327\261\210\364\365J\366\367E!\327\261\210B\203I\370\371B\"c\210\372\373!\204a\307\374\306\311#\203]\375y\210\202a\312\315!\210`d}\210\376\377 ed|\210\261\210eb\210~\210\306F\330\201H \306\311#\203\214\316y\210\201I c\210\202w*\201J edG#*\207" [attachment p w3-html-entities description cd ctl nil search-forward "value=\"Done\"" t webmail-error "article@1" "<table" "article@2" 0 "</table>" "article@3" "<a href=" "</a>" nnweb-remove-markup (nbsp . 32) nnweb-decode-entities delete-blank-lines "\n" re-search-forward "[^\"]*/ShowLetter/[^?]+?[^\"]*" match-string "article@4" "article@5" (nbsp . 32) mail-fetch-field "content-type" #1=#:G89079 (mail-header-parse-content-type ct) ((error)) "content-disposition" "content-description" "content-id" generate-new-buffer " *webmail-att*" nnweb-insert buffer-name "<#part" "text/" " type=\"" "\"" " buffer=\"" " disposition=\"" " description=\"" "><#/part>\n" "\n\nFrom nobody " current-time-string "X-Gnus-Webmail: " user "@" symbol-name format "X-Message-ID: <%s@yahoo.com>\n" looking-at "$" "\n\n" -1 "MIME-Version: 1.0\n" mml-generate-mime ct bufname id webmail-aux webmail-buffer-list webmail-type case-fold-search file "^From " ">" mm-append-to-file] 5])
(defalias 'webmail-netscape-open #[nil "eb\210\301\302\303\304\305#\205 \306\307\310!\311\307\312!\260\202 \207" [webmail-aux "" re-search-forward "TYPE=hidden *NAME=\\([^ ]+\\) *VALUE=\"\\([^\"]+\\)" nil t "&" match-string 1 "=" 2] 6])
(defalias 'webmail-netaddress-open #[nil "eb\210\302\303\304\305#\203 @\306\307!P\211\207\310\311!\207" [webmail-open-url webmail-aux re-search-forward "action=\"\\([^\"]+\\)\"" nil t match-string 1 webmail-error "open@1"] 4])
(defalias 'webmail-netaddress-login #[nil "\301 \210eb\210\302\303\304\305#\203 \306\307!\211\207\310\311!\207" [webmail-session webmail-refresh-redirect re-search-forward "tpl/[^/]+/\\([^/]+\\)" nil t match-string 1 webmail-error "login@1"] 4])
(defalias 'webmail-netaddress-list #[nil "\306 \210\307\211eb\210\310\311\307\312#\203 \313\314\315\316!\315\317!#\210eb\210\310\320\307\312#\203O \315\316!\211\203< \321\322\n@$B\202 \f\203H \315\317!\323\232\203 	B\202 \237\211*\207" [id item webmail-article-url webmail-session webmail-newmail-only webmail-articles webmail-refresh-redirect nil re-search-forward "(\\([0-9]+\\) unread, \\([0-9]+\\) total)" t message "Found %s mail(s), %s unread" match-string 2 1 "MR\\[i\\]\\.R='\\([^']*\\)'\\|MR\\[i\\]\\.Q='\\([^']+\\)'" format "%s/tpl/Message/%s/Read?Q=%s&FolderID=-4&SortUseCase=True&Sort=Date&Headers=True" "True"] 6])
(defalias 'webmail-netaddress-single-part #[nil "eb\210\301\302!\203; \303\304!\210\305\306\307\310#\203 \303\311!\210\202 eb\210\305\312\307\310#\203. \303\313!\210\202 \314 \210\315B\316 \210)\307\207\317c\210db\210\320c\210\310\207" [w3-html-entities looking-at "[	 \n]*<font face=[^>]+>[	 \n]*" replace-match "" re-search-forward "[	 \n]+" nil t " " "<br>" "\n" nnweb-remove-markup (nbsp . 32) nnweb-decode-entities "<#part type=\"text/html\" disposition=inline>" "<#/part>"] 4])
(defalias 'webmail-netaddress-article #[(file id) "\306 \210\307\211\211\211\211\211\214\310 \210eb\210\311\312\307\313#\204\" \314\315!\210\311\316\307\313#\204. \314\317!\210e\320\224|\210\311\321\307\313#\204? \314\322!\210e\320\225}\210eb\210\323\324\307\313#\203V \325\326!\210\202G eb\210\311\327\307\313#\203h \325\330!\210\202Y \331 \210\332@B@\333 \210)eb\210\334 \210eb\210\323\335\307\313#\203\215 \325\336!\210\202~ eb\210\323\337\307\313#\203\237 \325\326!\210\202\220 db\210~\210\340c\210`\311\341\307\313#\204\265 \314\342!\210\343y\210`|\210db\210\344\345\313#\204\313 \314\346!\210`d|\210b\210\311\347\307\313\350$\203m\313\311\351\307\313#\204\351 \314\352!\210`\353\354\313#\203K\323\355\f\313#\204\377 \314\356!\210\357\360!\357\350!\311\351\307\313#\204\314\361!\210`|\210\307A\212\362\363!q\210\364B@P!\210pCBC\365 A)\366\261\210\367A\370\261\210\371c\210\372c\210`)\202\322 \f|\210\311\347\307\313#\203]\320\224\202^d}\210\373 \210db\210`~\210\202\322 	\204zd}\210\373 ~\210eb\210\374\375 \330\261\210\376\377J\201I \201J D!\330\261\210E\203\246\201K \201L EF#c\210\201M \201N !\204\304\311\340\307\313#\203\300\201O y\210\202\304\314\317!\210	\203e`}\210eb\210m\204\375\201M \201P !\203\367`\360y\210\323\201Q \307\313#\203\361\320\224b\202\362d|\210\202\317\360y\210\202\317db\210~\210`d}\210\201R \201S  ed|\210\261\210eb\210~\210\307G\323\201T \307\313#\2031\320y\210\201U c\210\202*\201V edH#.\207" [type mime count attachment p1 p webmail-refresh-redirect nil webmail-encode-8bit search-forward "Trash" t webmail-error "article@1" "<form>" "article@2" 0 "</form>" "article@3" re-search-forward "[ 	\n]+" replace-match " " "<b>" "\n" nnweb-remove-markup (nbsp . 32) nnweb-decode-entities delete-blank-lines "^ +\\| +$" "" " +" "\n\n" "<!-- Data -->" "article@4" 14 re-search-backward "[ 	]*<br>[ 	\n]*<br>[ 	\n]*<form" "article@5" "<TABLE border=\"0\" WIDTH=\"98%\" cellpadding=0 cellspacing=0>" 2 "</TABLE>" "article@6" search-backward "<IMG " "HREF=\"\\(/tpl/Attachment/[^/]+/\\([^/]+/[^?]+\\)[^\"]+\\)\"" "article@7" match-string 1 "article@8" generate-new-buffer " *webmail-att*" nnweb-insert buffer-name "<#part type=" " buffer=\"" "\"" " disposition=\"inline\"" "><#/part>\n" webmail-netaddress-single-part "\n\nFrom nobody " current-time-string "X-Gnus-Webmail: " user w3-html-entities bufname webmail-open-url webmail-buffer-list webmail-type id webmail-address case-fold-search file "@" symbol-name format "X-Message-ID: <%s@%s>\n" looking-at "$" -1 "MIME-Version\\|Content-Type" "^[^ 	]" "MIME-Version: 1.0\n" mml-generate-mime "^From " ">" mm-append-to-file] 6])
(defalias 'webmail-netscape-article #[(file id) "\306\211\211\211\211\211\214\307 \210eb\210\310\311\306\312#\204 \313\314!\210\310\315\306\312#\204+ \313\316!\210e\317\224|\210\310\320\306\312#\204< \313\321!\210e\317\225}\210eb\210\322\323\306\312#\203S \324\325!\210\202D eb\210\322\326\306\312#\203e \324\327!\210\202V eb\210\310\330\306\312#\203w \324\331!\210\202h \332 \210\333@B@\334 \210)eb\210\335 \210eb\210\322\336\306\312#\203\234 \324\327!\210\202\215 eb\210\322\337\306\312#\203\256 \324\325!\210\202\237 db\210~\210\340c\210`\310\341\306\312#\204\304 \313\342!\210\343y\210`|\210db\210\344\345\312#\204\332 \313\346!\210`d|\210b\210\310\347\306\312\350$\203|\312\310\351\306\312#\204\370 \313\352!\210`\353\354\312#\203Z\322\355\f\312#\204\313\356!\210\357\360!\357\350!\310\351\306\312#\204\"\313\361!\210`|\210\306A\212\362\363!q\210\364B@P!\210pCBC\365 A)\366\261\210\367A\370\261\210\371c\210\372c\210`)\202\341 \f|\210\310\347\306\312#\203l\317\224\202md}\210\373 \210db\210`~\210\202\341 	\204\211d}\210\373 ~\210eb\210\374\375 \331\261\210\376\377J\201I \201J D!\331\261\210E\203\265\201K \201L EF#c\210\201M \201N !\204\323\310\340\306\312#\203\317\201O y\210\202\323\313\316!\210	\203(e`}\210eb\210m\204\f\201M \201P !\203`\360y\210\322\201Q \306\312#\203 \317\224b\202d|\210\202\336\360y\210\202\336db\210~\210`d}\210\201R \201S  ed|\210\261\210eb\210~\210\306G\322\201T \306\312#\203@\317y\210\201U c\210\202+*\201V edH#.\207" [type mime count attachment p1 p nil webmail-encode-8bit search-forward "Trash" t webmail-error "article@1" "<form>" "article@2" 0 "</form>" "article@3" re-search-forward "[ 	\n]+" replace-match " " "<a href=[^>]*>[^<]*</a>" "" "<b>" "\n" nnweb-remove-markup (nbsp . 32) nnweb-decode-entities delete-blank-lines "^ +\\| +$" " +" "\n\n" "<!-- Data -->" "article@4" 14 re-search-backward "<form name=\"Transfer2\"" "article@5" "<TABLE border=\"0\" WIDTH=\"98%\" cellpadding=0 cellspacing=0>" 2 "</TABLE>" "article@6" search-backward "<IMG " "HREF=\"\\(/tpl/Attachment/[^/]+/\\([^/]+/[^?]+\\)[^\"]+\\)\"" "article@7" match-string 1 "article@8" generate-new-buffer " *webmail-att*" nnweb-insert buffer-name "<#part type=" " buffer=\"" "\"" " disposition=\"inline\"" "><#/part>\n" webmail-netaddress-single-part "\n\nFrom nobody " current-time-string "X-Gnus-Webmail: " user w3-html-entities bufname webmail-open-url webmail-buffer-list webmail-type id webmail-address case-fold-search file "@" symbol-name format "X-Message-ID: <%s@%s>\n" looking-at "$" -1 "MIME-Version\\|Content-Type" "^[^ 	]" "MIME-Version: 1.0\n" mml-generate-mime "^From " ">" mm-append-to-file] 6])
(defalias 'webmail-my-deja-open #[nil "\301 \210eb\210\302\303\304\305#\203 \306\307!\211\207\310\311!\207" [webmail-aux webmail-refresh-redirect re-search-forward "action=\"\\([^\"]+login_confirm\\.xp[^\"]*\\)\"" nil t match-string 1 webmail-error "open@1"] 4])
(defalias 'webmail-my-deja-list #[nil "\306\211\211\211eb\210\307\310\306\311#\203# \312\313!\312\314!\315 \210\316\f!\210)eb\210\307\317\306\311#\2038 \320\321\312\313!\312\314!#\210eb\210\307\322\306\311#\203u \312\314!\211\203p 	\204S \204; \323\n\"\204; \n\324\312\313!Q\211BB\306\202; \311\202; \237\211,\207" [base newp id item url webmail-newmail-only nil re-search-forward "href=\"\\(\\([^\"]*\\)/mailnf\\.[^\"]*\\)\"" t match-string 1 2 erase-buffer nnweb-insert "(\\([0-9]+\\) Message.?-[^>]*\\([0-9]+\\) New" message "Found %s mail(s), %s unread" "newmail\\.gif\\|href=\"[^\"]*\\(mailnf\\.[^\"]+act=view[^\"]+mid=\\([^\"&]+\\)[^\"]+\\)\"" assoc "/" webmail-articles webmail-aux] 5])
(defalias 'webmail-my-deja-article-part #[(base) "\306\307\310!\203 \311\312!\202\375 \307\313!\203 \311\312!\202\375 \307\314!\203J \311\312!\210\214`\315\316\306\317#\2033 \320\224\2024 d}\210eb\210\321 \210\322	B\323 \210)db)\202\375 \307\324!\203\365 \214`\325\326\306\317\327$\203_ `\202` d}\210eb\210\306\211\211\211\325\330\306\317#\203\201 \315\331\306\317#\203\201 \332\333!\325\334\306\317#\203\225 \315\331\306\317#\203\225 \332\333!\315\335\306\317#\204\241 \336\337!\2100\340\332\333!\341R\315\342\306\317#\203\301 \343\332\333!\344\332\327!\260\202\252 ed|\210\212\345\346!q\210\347!\210p1B1\350 )\351\f\352\261\210\203\351 \353\352\261\210\354\n\352\261\210\355c-\202\375 \356c\210db\210\357c)\207" [p w3-html-entities bufname url type name nil looking-at "[	 \n]*<!--[^>]*>" replace-match "" "[	 \n]*</PRE>" "[	 \n]*<PRE>" re-search-forward "</?PRE>" t 0 nnweb-remove-markup (nbsp . 32) nnweb-decode-entities "[	 \n]*<TABLE" search-forward "</TABLE>" 2 "File Name:" "<FONT[^>]+>\\([^<]+\\)" match-string 1 "File Type:" "action=\"getattach\\.cgi/\\([^\"]+\\)" webmail-error "article@5" "/getattach.cgi/" "?sm=Download" "type=hidden name=\"\\([^\"]+\\)\" value=\"\\([^\"]+\\)" "&" "=" generate-new-buffer " *webmail-att*" nnweb-insert buffer-name "<#part type=\"" "\"" " filename=\"" " buffer=\"" " disposition=inline><#/part>" "<#part type=\"text/html\" disposition=inline>" "<#/part>" base webmail-buffer-list] 6])
(defalias 'webmail-my-deja-article #[(file id) "\305eb\210\306\307	\"\204 \310\311!\210\312\313	\"\314\315\305\316#\2030 \317\312\313!Q\306\320	\"\210\321\322\305\211	$\323\324\305\316#\204< \310\325!\210e`|\210\323\324\305\316#\204L \310\326!\210\214e`}\210\323\327\305\316#\203` \321\330!\210\202Q \331 \210\332\nB\333 \210)eb\210\314\334\305\316#\203} \321\330!\210\202n db\210)\214`d}\210db\210\335\324\305\316#\204\225 \310\336!\210\335\337\305\316#\204\241 \310\340!\210`d|\210eb\210m\204\263 \341!\210\202\250 \342\343 ed|\210\261\210)eb\210\344\345 \330\261\210\346\347J\350\351!\330\261\210\305f\352=\203\336 \353\313!\210\354ed\f#)\207" [base webmail-aux w3-html-entities webmail-type file nil string-match "\\([^\"]+\\)/mail" webmail-error "article@0" match-string 1 re-search-forward "href=\"[^\"]*\\(mailnf\\.[^\"]+act=move[^\"]+mid=\\([^\"&]+\\)[^\"]+\\)\"" t "/" "mid=[^\"&]+" replace-match "mid=%s" search-forward "<HR noshade>" "article@1" "article@2" "\n" "\n" nnweb-remove-markup (nbsp . 32) nnweb-decode-entities "\n\n+" search-backward "article@3" "</TT>" "article@4" webmail-my-deja-article-part "MIME-Version: 1.0\n" mml-generate-mime "\n\nFrom nobody " current-time-string "X-Gnus-Webmail: " user "@" symbol-name 10 delete-char mm-append-to-file] 5])
(provide 'webmail)