;ELC   
;;; compiled by jwz@thalidomide on Sat May 21 06:32:14 1994
;;; from file /th/jwz/emacs19/lisp/vm/vm-pop.el
;;; emacs version 19.10 Lucid (beta25).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM‡" [vm-pop-move-mail #[(source destination) "А	АВГ!­„АДЕЏА‰‰‰‰‰‰‰‰‰‰	\nХЋЦЧЌ.‡" [nil vm-folder-type fboundp find-file-name-handler (find-file-name-handler source nil) ((wrong-number-of-arguments (find-file-name-handler source))) process-buffer source-list pass user auth port host message-count n timestamp greeting handler save-password folder-type process ((byte-code "«”ЉБ!q€ВГ\"€Д!€Е!€)Б‡" [process process-buffer vm-pop-send-command "QUIT" vm-pop-read-response delete-process] 3)) done (byte-code "«‰БВГ#\"€ЖЗ\"‰@	A@\nЛ8Н8П8	¬…СТ\"€\n¬…СУ\"€ФХ\n\"«†Ц\n!\n¬…СЧ\"€¬…СШ\"€¬…СЩ\"€Ъљ«™Ы\"A@‰¬ЌЭЮЯа!\"!б\"гЮд	\"!%Љ%q€ж €)зи%	\n$‰)¬…БВк\"€л)м\"€Љ%q€но!€e./®‚01т)б\"‰3¬…БВк\"€фљ«¬х)Юц\"\"€т)!¬…БВк\"€х)Юч\"\"€т)!¬ьБВк\"€Єхшљ«¬х)Юц\"\"€т)!¬…БВк\"€х)Ющ\"\"€т)!¬КБВк\"€ЄГъљ«µЖ3ы\"‰<@‰<¬‹db€эc€БВк\"€х)Ююя<P!\"\"€т)!¬ЏБВк\"€Є€СЃ@ \"€\"«‰DBх)ЃA \"€ЃB )!‰C«€CЃD W«…БВк\"€ЃD EЃD CX«Цх)ЮЃF E\"\"€т)!¬‹БВEЃD љ?\"€ЃG )\"¬‹БВEЃD љ?\"€х)ЮЃH E\"\"€т)!¬‹БВEЃD љ?\"€ET‰EЄ%)б‡" [handler throw done vm-pop-move-mail source destination vm-parse "\\([^:]+\\):?" source-list host port 2 auth 3 user 4 pass error "No host in POP maildrop specification, \"%s\"" "No port in POP maildrop specification, \"%s\"" string-match "^[0-9]+$" string-to-int "No authentication method in POP maildrop specification, \"%s\"" "No user in POP maildrop specification, \"%s\"" "No password in POP maildrop specification, \"%s\"" "*" assoc vm-pop-passwords vm-read-password format "POP password for %s: " vm-safe-popdrop-string t save-password get-buffer-create "trace of POP session to %s" process-buffer erase-buffer open-network-stream "POP" process nil set-process-filter vm-pop-process-filter make-local-variable vm-pop-read-point folder-type vm-default-folder-type vm-folder-type vm-pop-read-response greeting "pass" vm-pop-send-command "USER %s" "PASS %s" "rpop" "RPOP %s" "apop" "[^<]+\\(<[^>]+>\\)" timestamp "<<< ooops, no timestamp found in greeting! >>>\n" "APOP %s" vm-pop-md5 "Don't know how to authenticate with %s" "STAT" vm-pop-read-stat-response message-count 1 n "RETR %d" vm-pop-retrieve-to-crashbox "DELE %d"] 8)] 15] vm-pop-process-filter #[(process output) "ЉА	!q€db€\nc)‡" [process-buffer process output] 2] vm-pop-send-command #[(process command) "db€Б±€`Г\"€ГБ\"‡" [command "\n" vm-pop-read-point process-send-string process] 3] vm-pop-read-response #[(process &optional return-response-string) "А‰b€ДЕАЖ#¬ЉЗ!€b€Єo`b€ЙК!¬…	АЄЊ	«…`	{ЄЃЖ*‡" [nil match-end case-fold-search vm-pop-read-point search-forward "\n" t accept-process-output process looking-at "+OK" return-response-string] 4] vm-pop-read-stat-response #[(process) "А	В\"ДЕЖ\"A@!)‡" [vm-pop-read-response process t response string-to-int vm-parse "\\([^ ]+\\) *"] 4] vm-pop-retrieve-to-crashbox #[(process crash) "Б‰b€ДЕБЖ#¬ЉЗ!€b€ЄoЙ К”b€Й Л\n\"€Њ\n}€М )Н=«ИО\n#€b€Р=«¦С!‰?®†Ф8Кљ)«“`ЦБ\"€‰b€Ч €)Ш c€ЩБ\"€\nb€ЪЫ !€Ь\nЖК%€\n|€*Ж‡" [vm-pop-read-point nil end start re-search-forward "^\\.\n" t accept-process-output process point-marker 0 vm-pop-cleanup-region vm-get-folder-type unknown vm-munge-message-separators vm-folder-type babyl file-attributes crash attrs 7 opoint vm-convert-folder-header vm-skip-past-folder-header vm-leading-message-separator vm-convert-folder-type-headers insert-before-markers vm-trailing-message-separator write-region] 7] vm-pop-cleanup-region #[(start end) "А 	В“Љb€`	W«ЏДЕ	Ж#«€ЗИЖ‰#€Єlb€`	W«’ЙК	Ж#«‹ЗЛЖ‰#€Вu€Єi)	В‰“‡" [make-marker end nil start search-forward "\n" t replace-match "\n" re-search-forward "^\\." ""] 4] vm-pop-md5 #[(string) "АВЋЉГД!‰q€c€ЖedЗИ	АЙ\n&€eeЛ\\{+‡" [nil buffer ((byte-code "«„Б!€Б‡" [buffer kill-buffer] 2)) generate-new-buffer "*vm-work*" string call-process-region "/bin/sh" t "-c" vm-pop-md5-program 32] 10]] 2)