;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:23 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/gnus/webmail.el ;;; in Emacs version 23.4.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require nnoo message gnus-util gnus nnmail mm-util mm-url mml] 2) (progn (require 'url) (require 'url-cookie)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\307B\310\311!\207" [current-load-list webmail-type-definition default-boundp set-default ((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&Domain=usa.net&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") (login-url content ("http://mydeja.google.com/cgi-bin/deja/maillogin.py") "userid=%s&password=%s" user password) (list-snarf . webmail-my-deja-list) (article-snarf . webmail-my-deja-article) (trash-url webmail-aux id))) webmail-variables (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-version (lambda (#1=#:defconst-tmp-var) (defconst webmail-version #1#)) "webmail 1.0"] 3) #@23 Only fetch new mails. (defvar webmail-newmail-only nil (#$ . 4273)) #@40 Move mail to trash can after fetch it. (defvar webmail-move-to-trash-can t (#$ . 4347)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\310B\302\310!\204K\303\310\304\"\210\311B\302\311!\204Z\303\311\304\"\210\312B\302\312!\204i\303\312\304\"\210\313B\302\313!\204x\303\313\304\"\210\314B\302\314!\204\207\303\314\304\"\210\315B\302\315!\204\226\303\315\304\"\210\316B\302\316!\204\245\303\316\304\"\210\317B\302\317!\204\264\303\317\304\"\210\320B\302\320!\204\303\303\320\304\"\210\321B\302\321!\204\322\303\321\304\"\210\322B\302\322!\204\341\303\322\304\"\210\323B\302\323!\204\360\303\323\304\"\210\324B\302\324!\204\377\303\324\304\"\210\325B\302\325!\204\303\325\304\"\210\326B\302\326!\204\303\326\304\"\210\327B\302\327!\204,\303\327\330\"\210\304\207" [current-load-list webmail-address default-boundp set-default nil webmail-paranoid webmail-aux webmail-session webmail-article-snarf 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"] 3) (defalias 'webmail-debug #[(str) "\306\307!rq\210\310\216\311 \312\261\210\313\314\211\2033 @\315\n!\203,\316\317\n\320\321\n!DE!\210 A\211\204*\322c\210\323\f!\210\324c\210\325ed #+\207" [#1=#:temp-buffer str sym #2=#:--cl-dolist-temp-- webmail-buffer webmail-debug-file generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "\n---------------- A bug at " " ------------------\n" (webmail-type user) nil boundp gnus-pp setq quote eval "---------------- webmail buffer ------------------\n\n" insert-buffer-substring "\n---------------- end of buffer ------------------\n\n" append-to-file] 7]) (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=#:--cl-dolist-temp--] 5]) (defalias 'webmail-eval #[(expr) ":\203\301@!\301A!B\2079\203\302!\207\207" [expr webmail-eval eval] 3]) (defalias 'webmail-url #[(xurl) "\203d p\306\216\307\301!\310\216\311\301\312\"\210\313\312!\210 @\314=\203C \210 A\315 @;\2031 @\2028\316\317\320 @!\"\316\317\320 A!\"\"\202b @\321=\203Z \210 A\322 @\320 A!\"\202b\323\316\317\320 !\"!-\207\307\301!\324\216\311\301\312\"\210 @\314=\203\232 \210 A\315 @;\203\210 @\202\217\316\317\320 @!\"\316\317\320 A!\"\"\202\271 @\321=\203\261 \210 A\322 @\320 A!\"\202\271\323\316\317\320 !\"!*\207" [mm-emacs-mule enable-multibyte-characters #1=#:buffer #2=#:multibyte #3=#:--cl-letf-save-- xurl ((byte-code "q\210\302 !\207" [#1# #2# set-buffer-multibyte] 2)) default-value ((byte-code "\301\302\"\207" [#3# set-default enable-multibyte-characters] 3)) set-default nil set-buffer-multibyte content mm-url-fetch-simple apply format webmail-eval post mm-url-fetch-form mm-url-insert ((byte-code "\301\302\"\207" [#4=#:--cl-letf-save-- set-default enable-multibyte-characters] 3)) #4#] 6]) #@30 Initialize buffers and such. (defalias 'webmail-init #[nil "\301!\203 q\207\302\303!\304 \207" [webmail-buffer gnus-buffer-live-p nnheader-set-temp-buffer " *webmail*" mm-disable-multibyte] 2 (#$ . 7996)]) (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\306\307\310\311#\205K\312\313!\314 \210 \2033\np\315\216\316\302!\317\216\320\302\310\"\210\321\310!\210\322!\210-\202D\316\302!\323\216\320\302\310\"\210\322!\210*)eb\210\202\207" [url mm-emacs-mule enable-multibyte-characters #1=#:buffer #2=#:multibyte #3=#:--cl-letf-save-- re-search-forward "]*URL=\\([^\"]+\\)\"" nil t match-string 1 erase-buffer ((byte-code "q\210\302 !\207" [#1# #2# set-buffer-multibyte] 2)) default-value ((byte-code "\301\302\"\207" [#3# set-default enable-multibyte-characters] 3)) set-default set-buffer-multibyte mm-url-insert ((byte-code "\301\302\"\207" [#4=#:--cl-letf-save-- set-default enable-multibyte-characters] 3)) #4#] 4 (#$ . 8450)]) (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\323\324!T\211!\"\210\321 \210/\203\321p01\325\216\326\327!2\330\216\331\327\316\"\210\332\316!\210\333#A!\210-\202\344\326\327!3\334\216\331\327\316\"\210\333#A!\210*#@\"4\203\36645\"\"\2106\203\2177\203\217\323\335!\"\210\336\337\340\217\210\202\217. 8\2058 )\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..." ((byte-code "q\210\302 !\207" [#1=#:buffer #2=#:multibyte set-buffer-multibyte] 2)) default-value enable-multibyte-characters ((byte-code "\301\302\"\207" [#3=#:--cl-letf-save-- set-default enable-multibyte-characters] 3)) set-default set-buffer-multibyte mm-url-insert ((byte-code "\301\302\"\207" [#4=#:--cl-letf-save-- set-default enable-multibyte-characters] 3)) "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 mm-emacs-mule #1# #2# #3# #4# 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 "\302eb\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\310m\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\301eb\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]+\\) *(\\([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\302\303w\210m?\205r\304\305\303\306#\204\307\310!\210\311\303w\210e`|\210\304\312\303\306#\204,\307\313!\210\314\224d|\210\315 \210\316 \210eb\210\317\320\303\306#\203I\321\322!\210\202:eb\210\323c\210\324\325!\204_\326\327 \322\261\210\202b\303y\210\330\331J\332\333!\322\261\210\334ed #\207" [webmail-type file " \n " nil search-forward "
" t webmail-error "article@3" "\n
	 " "
" "article@3.1" 0 mm-url-remove-markup mm-url-decode-entities-nbsp 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 \210eb\210\327 \210eb\210\310\330\306\312#\203~\331u\210`d|\210db\210~\210\332c\210`\333\334\306\312#\203{\335\336!\211\203\357\335\321!\306@\f\316\225|\210\212\337\340!q\210\341 !\210pABA\342 )\312\343@\203\322\344\345@\"\203\322\346\335\316@\"!\206\323\347\261\210\350 \351\261\210\352@\351\261\210\353c\210\354c\210`*\202\210\f\316\225|\210\203\310\355\306\312#\204\314\356!\210\202?\316\224\316\225|\210\202?\336\n\316V\203?\333\357\306\312#\203?\335\336!\203-\nT\211\202\nS\211\316U\203\316\224\316\225|\210\202\f`}\210eb\210\360\361!\203f\316\225b\210\360\362!\203Y\306u\210e`|\210\325 \210\326 \210\202q\312\363c\210db\210\364c\210db\210`~\210\202\210\fd|\210eb\210\365\366 \332\261\210\367\370J\371\372B!\332\261\210C\203\241\373\374C\"c\210\360\362!\204\271\310\330\306\312#\203\265\331y\210\202\271\314\375!\210`d}\210 \203\313\376\377 ed|\210\261\210eb\210~\210\306D\333\201F\306\312#\203\352\201G \210\201Hc\210\202\323*\201IedE#-\207" [hotmail-direct mime count attachment p bufname nil webmail-encode-8bit search-forward "
" t "Reply All" webmail-error "article@1" 0 search-backward "" mm-url-remove-markup mm-url-decode-entities-nbsp delete-blank-lines "\n\n" -1 "\n" re-search-forward "\\|
\\|\\(http://[^/]+/cgi-bin/getmsg/\\([^?]+\\)?[^\"]*\\)\"" match-string 1 generate-new-buffer " *webmail-att*" mm-url-insert buffer-name "<#part type=" string-match "\\.[^\\.]+$" mailcap-extension-to-mime "application/octet-stream" " buffer=\"" "\"" " filename=\"" " disposition=\"inline\"" "><#/part>\n" "" "article@1.2" "
\\|\\(
\\)" looking-at "
" "$" "<#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" "article@2" "MIME-Version: 1.0\n" mml-generate-mime filename webmail-buffer-list webmail-type id case-fold-search file "^From " beginning-of-line ">" 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\310eb\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
BT\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 \210eb\210\325 \210db\210~\210\326c\210`\327\330\306\311#\203\331\316!\306\211\211\211\211@\307\314\306\311#\204\210\312\332!\210	\316\224|\210\307\317\306\311#\204\231\312\333!\210	\316\225}\210\323 \210\324 \210eb\210\325 \210\334\335!\211\205\265\336
!\334\337!\334\340!\334\341!Aed|\210~\210\212\342\343!q\210\344BP!\210pCBC\345 @)\346c\210\f\203\366\f@\347\232\204\366\350\f@\351\261\210\352@\351\261\210\203\353\351\261\210\n\203\354\n\351\261\210\355c\210`-\202e	d|\210eb\210\356\357 \326\261\210\360\361J\362\363D!\326\261\210A\203@\364\365A\"c\210\366\367!\204X\307\370\306\311#\203T\371y\210\202X\312\315!\210`d}\210\372\373 ed|\210\261\210eb\210~\210\306E\327\374\306\311#\203\375 \210\376c\210\202n*\377edF#*\207" [attachment p description cd ctl ct nil search-forward "value=\"Done\"" t webmail-error "article@1" "" "article@3" "" mm-url-remove-markup mm-url-decode-entities-nbsp delete-blank-lines "\n" re-search-forward "[^\"]*/ShowLetter/[^?]+?[^\"]*" match-string "article@4" "article@5" mail-fetch-field "content-type" mail-header-parse-content-type "content-disposition" "content-description" "content-id" generate-new-buffer " *webmail-att*" mm-url-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 "^From " beginning-of-line ">" mm-append-to-file bufname id webmail-aux webmail-buffer-list webmail-type case-fold-search file] 6])
(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\211eb\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\300\301!\2036\302\303!\210\304\305\306\307#\203\302\310!\210\202
eb\210\304\311\306\307#\203.\302\312!\210\202\313 \210\314 \210\306\207\315c\210db\210\316c\210\307\207" [looking-at "[	 
\n]*]+>[	 
\n]*" replace-match "" re-search-forward "[	 
\n]+" nil t " " "
" "\n" mm-url-remove-markup mm-url-decode-entities-nbsp "<#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\202Geb\210\311\327\307\313#\203h\325\330!\210\202Y\331 \210\332 \210eb\210\333 \210eb\210\323\334\307\313#\203\206\325\335!\210\202web\210\323\336\307\313#\203\230\325\326!\210\202\211db\210~\210\337c\210`\311\340\307\313#\204\256\314\341!\210\342y\210
`|\210db\210\343\344
\313#\204\304\314\345!\210`d|\210
b\210\311\346\307\313\347$\203f\313\311\350\307\313#\204\342\314\351!\210`\352\353
\313#\203D\323\354\f\313#\204\370\314\355!\210\356\357!\356\347!\311\350\307\313#\204\f\314\360!\210
`|\210\307@\212\361\362!q\210\363A@P!\210pBBB\364 @)\365\261\210\366@\367\261\210\370c\210\371c\210`)\202\313
\f|\210
\311\346\307\313#\203V\320\224\202Wd}\210\372 \210db\210`~\210\202\313	\204s
d}\210\372 ~\210eb\210\373\374 \330\261\210\375\376J\377\201HC!\330\261\210D\203\235\201I\201JDE#c\210\201K\201L!\204\273\311\337\307\313#\203\267\201My\210\202\273\314\317!\210	\203e`}\210eb\210m\204\364\201K\201N!\203\356`\357y\210\323\201O\307\313#\203\350\320\224b\202\351d|\210\202\306\357y\210\202\306db\210~\210`d}\210\201P\201Q ed|\210\261\210eb\210~\210\307F\323\201R\307\313#\203*\201S \210\201Tc\210\202*\201UedG#.\207" [type mime count attachment p1 p webmail-refresh-redirect nil webmail-encode-8bit search-forward "Trash" t webmail-error "article@1" "
" "article@2" 0 "
" "article@3" re-search-forward "[ 	
\n]+" replace-match " " "" "\n" mm-url-remove-markup mm-url-decode-entities-nbsp delete-blank-lines "^ +\\| +$" "" " +" "\n\n" "" "article@4" 14 re-search-backward "[ 	]*
[ 	
\n]*
[ 	
\n]*" 2 "" "article@6" search-backward "<#/part>\n" webmail-netaddress-single-part "\n\nFrom nobody " current-time-string "X-Gnus-Webmail: " user "@" 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 " beginning-of-line ">" 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\202Deb\210\322\326\306\312#\203e\324\327!\210\202Veb\210\310\330\306\312#\203w\324\331!\210\202h\332 \210\333 \210eb\210\334 \210eb\210\322\335\306\312#\203\225\324\327!\210\202\206eb\210\322\336\306\312#\203\247\324\325!\210\202\230db\210~\210\337c\210`\310\340\306\312#\204\275\313\341!\210\342y\210
`|\210db\210\343\344
\312#\204\323\313\345!\210`d|\210
b\210\310\346\306\312\347$\203u\312\310\350\306\312#\204\361\313\351!\210`\352\353
\312#\203S\322\354\f\312#\204\313\355!\210\356\357!\356\347!\310\350\306\312#\204\313\360!\210
`|\210\306@\212\361\362!q\210\363A@P!\210pBBB\364 @)\365\261\210\366@\367\261\210\370c\210\371c\210`)\202\332
\f|\210
\310\346\306\312#\203e\317\224\202fd}\210\372 \210db\210`~\210\202\332	\204\202
d}\210\372 ~\210eb\210\373\374 \331\261\210\375\376J\377\201HC!\331\261\210D\203\254\201I\201JDE#c\210\201K\201L!\204\312\310\337\306\312#\203\306\201My\210\202\312\313\316!\210	\203e`}\210eb\210m\204\201K\201N!\203\375`\357y\210\322\201O\306\312#\203\367\317\224b\202\370d|\210\202\325\357y\210\202\325db\210~\210`d}\210\201P\201Q ed|\210\261\210eb\210~\210\306F\322\201R\306\312#\2039\201S \210\201Tc\210\202\"*\201UedG#.\207" [type mime count attachment p1 p nil webmail-encode-8bit search-forward "Trash" t webmail-error "article@1" "
" "article@2" 0 "
" "article@3" re-search-forward "[ 	
\n]+" replace-match " " "]*>[^<]*" "" "" "\n" mm-url-remove-markup mm-url-decode-entities-nbsp delete-blank-lines "^ +\\| +$" " +" "\n\n" "" "article@4" 14 re-search-backward "
" 2 "" "article@6" search-backward "<#/part>\n" webmail-netaddress-single-part "\n\nFrom nobody " current-time-string "X-Gnus-Webmail: " user "@" 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 " beginning-of-line ">" 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=\"\\([^\"]+maillogin\\.py[^\"]*\\)\"" nil t match-string 1 webmail-error "open@1"] 4])
(defalias 'webmail-my-deja-list #[nil "\306\211\211\211eb\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\211BB\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 mm-url-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\367\307\313!\203\311\312!\202\367\307\314!\203E\311\312!\210\214`\315\316\306\317#\2033\320\224\2024d}\210eb\210\321 \210\322 \210db)\202\367\307\323!\203\357\214`\324\325\306\317\326$\203Z`\202[d}\210eb\210\306\211\211\211\324\327\306\317#\203|\315\330\306\317#\203|\331\332!\324\333\306\317#\203\220\315\330\306\317#\203\220\331\332!\315\334\306\317#\204\234\335\336!\210
\337\331\332!\340R\315\341\306\317#\203\273\n\342\331\332!\343\331\326!\260\202\244ed|\210\212\344\345!q\210\346\n!\210p/B/\347 )\350\351\261\210\f\203\343\352\f\351\261\210\353	\351\261\210\354c-\202\367\355c\210db\210\356c)\207" [p bufname url type name base nil looking-at "[	 
\n]*