;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:44:10 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/pop3.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`pop3.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÂÃ!ˆÄÅBÀ‡" [require mail-utils provide pop3 "1.3l" pop3-version current-load-list] 2) #@17 *POP3 maildrop. (defvar pop3-maildrop (byte-code "À †ÁÂ!†ÁÃ!‡" [user-login-name getenv "LOGNAME" "USER"] 2) (#$ . -597)) #@17 *POP3 mailhost. (defvar pop3-mailhost (getenv "MAILHOST") (#$ . -728)) #@13 *POP3 port. (defvar pop3-port 110 (#$ . -805)) #@67 *Non-nil if a password is required when connecting to POP server. (defvar pop3-password-required t (#$ . -858)) #@49 *Password to use when connecting to POP server. (defvar pop3-password nil (#$ . -976)) #@123 *POP3 authentication scheme. Defaults to 'pass, for the standard USER/PASS authentication. Other valid values are 'apop. (defvar pop3-authentication-scheme (quote pass) (#$ . -1070)) #@94 Timestamp returned when initially connected to the POP server. Used for APOP authentication. (defvar pop3-timestamp nil (#$ . 1260)) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ B‡" [boundp pop3-read-point nil current-load-list pop3-debug] 2) #@60 Transfer contents of a maildrop to the specified CRASHBOX. (defalias 'pop3-movemail #[(&optional crashbox) "„ÁÂ!Ã\f \"ÇÈ! Ê Ì ƒ)ÐÑ!!ˆƒ<„<ÓÔÕ\"!ØšƒMÙ\"ˆ‚gÚšƒcÛ\"ˆÜ!ˆ‚gÝÞ!ˆß!@   XƒÐàÔá  \f$!ˆâ  #ˆŠ qˆãed#ˆÑ!qˆä åVƒ¯ebˆæyˆe`|ˆ‚›)ç \"ˆ Ê\\ ƒÉèÊ!ˆ‚nèé!ˆ‚nê!ˆë !-‡" [crashbox expand-file-name "~/.crashbox" pop3-open-server pop3-mailhost pop3-port process get-buffer-create " *pop3-retr*" crashbuf 1 n nil message-count pop3-password pop3-debug switch-to-buffer process-buffer pop3-password-required pop3-read-passwd format "Password for %s: " pop3-maildrop pop3-authentication-scheme apop pop3-apop pass pop3-user pop3-pass error "Invalid POP3 authentication scheme." pop3-stat message "Retrieving message %d of %d from %s..." pop3-retr append-to-file buffer-size 5000 50 pop3-dele sit-for 0.10000000000000001 pop3-quit kill-buffer] 6 (#$ . 1500)]) #@86 Open TCP connection to MAILHOST. Returns the process associated with the connection. (defalias 'pop3-open-server #[(mailhost port) "ÀÁ \"!ÄŠqˆÇ ˆe)ÉÊ  $Ì Í\"‰ÏÐ\"†/ÑÏÒ\"†8ÓÔ\\O) *‡" [get-buffer-create format "trace of POP session to %s" mailhost nil process process-buffer erase-buffer pop3-read-point open-network-stream "POP" port pop3-read-response t response string-match "<" 0 ">" -1 1 pop3-timestamp] 6 (#$ . 2427)]) (defalias 'pop3-process-filter #[(process output) "ŠÀ !qˆdbˆ\nc)‡" [process-buffer process output] 2]) (defalias 'pop3-send-command #[(process command) "À !qˆdbˆ`dbˆÃ \f\"ˆÃ Å\"‡" [process-buffer process pop3-read-point process-send-string command " \n"] 3]) #@103 Read the response from the server. Return the response string if optional second argument is non-nil. (defalias 'pop3-read-response #[(process &optional return) "À‰ŠÃ\f!qˆ bˆÆÇÀÈ#„ É\fÊ\"ˆ bˆ‚ ` bˆËÌ!ƒ5Í` ÎZ{!‚OËÏ!„A À‚O ƒN` {‚OÈ+‡" [nil match-end case-fold-search process-buffer process pop3-read-point search-forward " \n" t accept-process-output 3 looking-at "-ERR" error 2 "+OK" return] 4 (#$ . 3139)]) #@31 Chop up a string into a list. (defalias 'pop3-string-to-list #[(string &optional regexp) "À †ÂÃÄ \"ƒ Ɖ”O‚ ÈÀ!ˆ ƒKà \"ƒ? Ɖ•ÉZOB Æ•ÀO‰‚ BÀ‰„\"Ÿ+‡" [nil regexp " " string-match " " string 0 list store-match-data 1] 6 (#$ . 3567)]) (byte-code "ÀÁ!„ÂÁ B‡" [boundp pop3-read-passwd nil current-load-list] 2) (defalias 'pop3-read-passwd #[(prompt) "„ÁÂÃ\"ƒÄ‚ÅÆÇ\"ˆÆ!‡" [pop3-read-passwd load "passwd" t read-passwd autoload ange-ftp-read-passwd "ange-ftp" prompt] 3]) (defalias 'pop3-clean-region #[(start end) "À “Š bˆ` Wƒ!ÄÅ Æ#ƒ!ÇÈƉ#ˆ‚\n bˆ` Wƒ>ÉÊ Æ#ƒ>ÇËƉ#ˆÂuˆ‚$) ‰“‡" [make-marker end nil start search-forward " \n" t replace-match "\n" re-search-forward "^\\." ""] 4]) #@68 Check to see if a message separator exists. If not, generate one. (defalias 'pop3-munge-message-separator #[(start end) "ÀÁ!„ ÂÁÃ\"ˆŠŒ\f }ˆebˆÆÇ!†#ÆÈ!†#ÆÉ!?…žÊËÌ!!ÍËÎ!†5Á !ÏÓÔ@\"ƒ`ÕÖ@×8A@Ø8Ù8&‚rÕÚA@@Ù8×8%ÕÛ#ÓÜ\"ƒ—݉”OÝ•ÏOP‚}ebˆc+*‡" [fboundp message-make-date autoload "message" start end looking-at "From .?" "\n" "BABYL OPTIONS:" mail-strip-quoted-names mail-fetch-field "From" pop3-string-to-list "Date" nil From_ date from string-match "[A-Z]" format "%s %s %s %s %s" 2 4 3 "Sun %s %s %s %s" "\nFrom %s %s\n" "," 0] 8 (#$ . 4298)]) #@39 Send USER information to POP3 server. (defalias 'pop3-user #[(process user) "À ÂÃ\f\"\"ˆÅ Æ\"‰…ÈÉ\"?…!ÊÂË\f\"!)‡" [pop3-send-command process format "USER %s" user pop3-read-response t response string-match "+OK" error "USER %s not valid."] 6 (#$ . 4900)]) #@48 Send authentication information to the server. (defalias 'pop3-pass #[(process) "À ÂÃ\f\"\"ˆÅ Æ\"‰…ÈÉ\"?…Ê !)‡" [pop3-send-command process format "PASS %s" pop3-password pop3-read-response t response string-match "+OK" pop3-quit] 6 (#$ . 5169)]) #@58 Send alternate authentication information to the server. (defalias 'pop3-apop #[(process user) "ÀÁ!„ ÂÁÃ\"ˆÁ\f P!ÇÉÊ #\"ˆÌÍ\"‰….ÏÐ\"?…6Ñ!*‡" [fboundp md5 autoload "md5" pop3-timestamp pop3-password hash pop3-send-command process format "APOP %s %s" user pop3-read-response t response string-match "+OK" pop3-quit] 7 (#$ . 5429)]) #@72 Return the number of messages in the maildrop and the maildrop's size. (defalias 'pop3-stat #[(process) "À Â\"ˆÃ Ä\"ÆÇ !A@!ÆÈÇ !8!)D‡" [pop3-send-command process "STAT" pop3-read-response t response string-to-int pop3-string-to-list 2] 5 (#$ . 5783)]) #@75 Scan listing of available messages. This function currently does nothing. (defalias 'pop3-list #[(process &optional msg) "À‡" [nil] 1 (#$ . 6042)]) #@45 Retrieve message-id MSG to buffer CRASHBUF. (defalias 'pop3-retr #[(process msg crashbuf) "À ÂÃ\f\"\"ˆÅ !ˆÇ ŠÊ !qˆËÌÇÍ#„dÎ Ï\"ˆÐ ÑVƒ1ÒÓ!ˆÐ ÔVƒ<ÒÓ!ˆÐ ÕVƒGÒÓ!ˆÐ ÖVƒRÒÓ!ˆÐ ×Vƒ]ÒÓ!ˆ bˆ‚Ø Ù”bˆØ Ú \"ˆÛ \"ˆŠqˆÝ ˆ)Þ #ˆ |+‡" [pop3-send-command process format "RETR %s" msg pop3-read-response pop3-read-point nil end start process-buffer re-search-forward "^\\. \n" t accept-process-output 3 buffer-size 20000 sleep-for 1 50000 100000 200000 500000 point-marker 0 pop3-clean-region pop3-munge-message-separator crashbuf erase-buffer copy-to-buffer] 5 (#$ . 6196)]) #@33 Mark message-id MSG as deleted. (defalias 'pop3-dele #[(process msg) "À ÂÃ\f\"\"ˆÅ !‡" [pop3-send-command process format "DELE %s" msg pop3-read-response] 5 (#$ . 6791)]) #@15 No-operation. (defalias 'pop3-noop #[(process msg) "À Â\"ˆÃ !‡" [pop3-send-command process "NOOP" pop3-read-response] 3 (#$ . 6968)]) #@60 Return highest accessed message-id number for the session. (defalias 'pop3-last #[(process) "À Â\"ˆÃ Ä\"ÆÇ !A@!)‡" [pop3-send-command process "LAST" pop3-read-response t response string-to-int pop3-string-to-list] 3 (#$ . 7108)]) #@48 Remove all delete marks from current maildrop. (defalias 'pop3-rset #[(process) "À Â\"ˆÃ !‡" [pop3-send-command process "RSET" pop3-read-response] 3 (#$ . 7345)]) #@135 Close connection to POP3 server. Tell server to remove all messages marked as deleted, unlock the maildrop, and close the connection. (defalias 'pop3-quit #[(process) "À Â\"ˆÃ Ä\"ˆ …ŠÅ !qˆdbˆÆ !)‡" [pop3-send-command process "QUIT" pop3-read-response t process-buffer delete-process] 3 (#$ . 7515)])