;ELC
;;; Compiled
;;; in Emacs version 26.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\302\303\304\305\306\307\306\310&\210\311\312\313\314\315\316\317\320\306\303& \210\311\321\322\323\315\316\317\320\306\303& \210\311\324\325\326\315\316\317\327\306\303& \210\311\330\331\332\315\316\317\333\306\303& \210\311\334\304\335\317\336\306\303&\210\311\337\340\341\317\342\315\316\306\303& \210\311\343\344\345\317\327\315\346\306\303& \210\311\347\304\350\315\351\317\352\306\303& \210\311\353\354\355\315\351\317\356\306\303& \210\311\357\360\361\315\351\317\362\306\303& \207" [require mail-utils custom-declare-group pop3 nil "Post Office Protocol." :group mail mail-source custom-declare-variable pop3-maildrop (or (user-login-name) (getenv "LOGNAME") (getenv "USER")) "POP3 maildrop." :version "22.1" :type string pop3-mailhost (or (getenv "MAILHOST") "pop3") "POP3 mailhost." pop3-port 110 "POP3 port." number pop3-password-required t "Non-nil if a password is required when connecting to POP server." boolean pop3-password "Password to use when connecting to POP server." (choice (const nil) string) pop3-authentication-scheme 'pass "POP3 authentication scheme.\nDefaults to `pass', for the standard USER/PASS authentication. The other\nvalid value is `apop'." (choice (const :tag "Normal user/password" pass) (const :tag "APOP" apop)) pop3-stream-length 100 "How many messages should be requested at one time.\nThe lower the number, the more latency-sensitive the fetching\nwill be. If your pop3 server doesn't support streaming at all,\nset this to 1." "24.1" pop3-leave-mail-on-server "Non-nil if the mail is to be left on the POP server after fetching.\nMails once fetched will never be fetched again by the UIDL control.\n\nIf this is neither nil nor a number, all mails will be left on the\nserver. If this is a number, leave mails on the server for this many\ndays since you first checked new mails. If this is nil, mails will be\ndeleted on the server right after fetching.\n\nGnus users should use the `:leave' keyword in a mail source to direct\nthe behavior per server, rather than directly modifying this value.\n\nNote that POP servers maintain no state information between sessions,\nso what the client believes is there and what is actually there may\nnot match up. If they do not, then you may get duplicate mails or\nthe whole thing can fall apart and leave you with a corrupt mailbox." "24.4" (choice (const :tag "Don't leave mails" nil) (const :tag "Leave all mails" t) (number :tag "Leave mails for this many days" :value 14)) pop3-uidl-file "~/.pop3-uidl" "File used to save UIDL." file pop3-uidl-file-backup '(0 9) "How to backup the UIDL file `pop3-uidl-file' when updating.\nIf it is a list of numbers, the first one binds `kept-old-versions' and\nthe other binds `kept-new-versions' to keep number of oldest and newest\nversions. Otherwise, the value binds `version-control' (which see).\n\nNote: Backup will take place whenever you check new mails on a server.\nSo, you may lose the backup files having been saved before a trouble\nif you set it so as to make too few backups whereas you have access to\nmany servers." (choice (group :tag "Keep versions" :format "\n%v" :indent 3 (number :tag "oldest") (number :tag "newest")) (sexp :format "%v" :match (lambda (widget value) (condition-case nil (not (and (numberp (car value)) (numberp (car (cdr value))))) (error t)))))] 10)
#@94 Timestamp returned when initially connected to the POP server.
Used for APOP authentication.
(defvar pop3-timestamp nil (#$ . 3762))
(defvar pop3-read-point nil)
(defvar pop3-debug nil)
(byte-code "\301\302!\203 \303\304!\203 \305\306\302\"\210\202' \307\310>\203 \311\202 \312!\210\305\306\313\"\210\301\207" [system-type fboundp nnheader-accept-process-output boundp nnheader-read-timeout defalias pop3-accept-process-output (lambda (#1=#:def-tmp-var) (defvar pop3-read-timeout #1# "How long pop3 should wait between checking for the end of output.\nShorter values mean quicker response, but are more CPU intensive.")) (windows-nt cygwin) 1.0 0.01 #[(process) "\302\303 !\303 \303 !Z\304_!#\207" [process pop3-read-timeout accept-process-output truncate 1000] 7]] 3)
#@80 Transfer contents of a maildrop to the specified FILE.
Use streaming commands.
(defalias 'pop3-movemail #[(file) "\306 \"\307\211\211\211 \310!\210\203' \311!\211A@
@\202U \312!\211 @\313 W\203K T
BT\211\2026 *
\237A@)
\203| r\314!q\210\315\316
\f$\210\317
\"\210\204{ \315\320
\307$\210)\203\223 \321!\322!\210\203\263 \323 \210\202\263 \322!\210\324 \325 \325\n\"A\"\211 \203\262 \307\241\210\323 \210)-\326\207" [pop3-mailhost pop3-port pop3-uidl-saved pop3-uidl total-size messages pop3-open-server nil pop3-logon pop3-uidl-stat pop3-stat 0 process-buffer pop3-send-streaming-command "RETR" pop3-write-to-file "DELE" pop3-uidl-dele pop3-quit pop3-uidl-save pop3-uidl-load assoc t process pop3-leave-mail-on-server size i --dotimes-limit-- file pop3-maildrop elt] 6 (#$ . 4543)])
(defalias 'pop3-send-streaming-command #[(process command messages total-size) "\306 \210G\307e\310 \203; \311
\312\313
\211A\242#\"\210 \246\310U\2035 \314
\n$ \\ T\202\f \314
\f Z\n$,\207" [messages waited-for start-point i count process erase-buffer 1 0 process-send-string format "%s %d
\n" pop3-wait-for-messages command pop3-stream-length total-size] 7])
(defalias 'pop3-wait-for-messages #[(process count total-size start-point) "\305V\203{ b\210\306\307\310\311#\203 \n\203% \306\312\310\311#\204% \306\313\310\311#\203- S`\202 \314 !\315>\2049 \316\317!\210\n\203t \305 eb\210\306\320\310\311#\203a \321\f`[\306\312\310\322#\203[ \305\224\202\\ `#\202B \323\324\325\f\326\245!\325\f\327_\n\245\330_!#\210)\331 !\210\202 \207" [count start-point total-size process size 0 re-search-forward "^\\+OK" nil t "^\\.
?\n" "^-ERR " process-status (open run) error "pop3 process died" "^\\+OK.*\n" + move message "pop3 retrieved %dKB (%d%%)" truncate 1000 1.0 100 pop3-accept-process-output] 7])
(defalias 'pop3-write-to-file #[(file messages) "pe\306\211\211 \307\310! r
q\210\311\216pr\fq\210eb\210\312\313\306\314#\203p \315y\210`\312\316\306\314#\2039 `\317y\210`rq\210db\210` \320\f\n #\210\321`\"\210db\210\322`\"\210\203i \323\211A\242\"\210db\210*\202 )\324 eb\210l\203 \325\315!\210\326ed \306\327%. \207" [temp-buffer end beg start pop-buffer #1=#:temp-buffer nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] re-search-forward "^\\+OK" t 1 "^\\.
?\n" -1 insert-buffer-substring pop3-clean-region pop3-munge-message-separator pop3-uidl-add-xheader binary delete-char write-region nomesg hstart pop3-leave-mail-on-server messages coding-system-for-write file] 6])
(defalias 'pop3-logon #[(process) " \203\f \306\307\n!!\210 \203 \204 \310\311\312\f\"!
\313\267\2023 \314\n\f\"\2026 \315\n\f\"\210\316\n!\2026 \317\320!)\207" [pop3-password pop3-debug process pop3-password-required pop3-maildrop pop3-authentication-scheme switch-to-buffer process-buffer read-passwd format "Password for %s: " #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (apop 33 pass 40)) pop3-apop pop3-user pop3-pass error "Invalid POP3 authentication scheme"] 4])
#@48 Return the number of messages in the maildrop.
(defalias 'pop3-get-message-count #[nil "\306 \"\307\f
\203 \310\311\n!!\210\203$ \f\204$ \312\313\314\"!\315\267\202A \316\n\"\210\202E \317\n\"\210\320\n!\210\202E \321\322!\210\323\n!@\324\n!\210 +\207" [pop3-mailhost pop3-port process message-count pop3-password pop3-debug pop3-open-server nil switch-to-buffer process-buffer read-passwd format "Password for %s: " #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (apop 43 pass 52)) pop3-apop pop3-user pop3-pass error "Invalid POP3 authentication scheme" pop3-stat pop3-quit pop3-password-required pop3-maildrop pop3-authentication-scheme] 4 (#$ . 7691)])
#@57 Return a list of unread message numbers and total size.
(defalias 'pop3-uidl-stat #[(process) "\306\307\"\210\310\211\211\3111 \312!\210\3130\202! \314\f!)\202\344 \203\344
\310\211 # $ %r\315!q\210\316\317\310\313#\204R \320!\321>\204G \322\323!\210\324!\210%b\210\2023 \325 \310&\326y\210`%Y\203s \327\330!\203X \331\332!&B&\202X &\205\340 \333 '\334(\334)'\"A\"A$&G\211 *\335V\203\257 *S&8$\235\204\246 *\nB*S\211*\202\220 )\n\205\340 \336!#\335\n\310 +\211 ,\203\334 ,@+ +#\236A\\,A\211,\204\305 *\n D,\202\337\340) #\210\341\332!\210\342!\211@\335 * -*-W\203*T\nB*T\211*\202\374 * \n\237\240\210 +\207" [process size messages err code pop3-read-point pop3-send-command "UIDL" nil (error) pop3-read-response t error-message-string process-buffer re-search-forward "^\\.
\n" process-status (open run) error "pop3 server closed the connection" pop3-accept-process-output point-marker -1 looking-at "[0-9]+ \\([^\n
]+\\)" match-string 1 pop3-uidl-load assoc 0 pop3-list message "%s doesn't support UIDL (%s), so we try a regressive way..." sit-for pop3-stat list saved start pop3-uidl pop3-uidl-saved pop3-maildrop pop3-mailhost i msg --dolist-tail-- --dotimes-limit--] 6 (#$ . 8412)])
#@124 Delete messages according to `pop3-leave-mail-on-server'.
Return non-nil if it is necessary to update the local UIDL file.
(defalias 'pop3-uidl-dele #[(process) "\306 \307 \n\"\307\f A\" \310\211 \310\211 \310\211 A\310\241\210\203^
\203^ GS\211\311Y\203j 8\211
A\235\204U BBS\211\2025 \203j \312\313\"\203r \314 \247\205\202 @\315_A@\\\316\245
GS\211\311V\203\345 S
8\211\235\203\330
8\203\307 @\317_A@\\\316\245Z V\203\307 \314B\202\333 BB\202\333 \314\320Z\211\202\211
\203\361
\241\210\202 \203\321 !\fBC\241\210\202 \fBD\211 \n\235\203\n\210\202 \322\n C\")\203Z\310G\211\311V\203LS8\235\203CBS\211\202+\203Z\323 \324\310$\210. \207" [ctime pop3-mailhost pop3-uidl-saved srvr pop3-maildrop saved current-time assoc nil 0 mapcan #[(elt) " D\207" [elt ctime] 2] t 65536.0 86400 65536.0 2 last append pop3-send-streaming-command "DELE" i uidl mod new tstamp dele pop3-uidl pop3-leave-mail-on-server #1=#:x process] 6 (#$ . 9662)])
#@18 Load saved UIDL.
(defalias 'pop3-uidl-load #[nil "\303!\2052 \304\305!r q\210\306\216\3071\" \310!\210eb\210\311p!0\2021 \312\313\314\n!#\210\315\316!\210)\317+\207" [pop3-uidl-file #1=#:temp-buffer code file-exists-p generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] (error) insert-file-contents read message "Error while loading %s (%s)" error-message-string sit-for 1 nil] 5 (#$ . 10758)])
#@12 Save UIDL.
(defalias 'pop3-uidl-save #[nil "\306\307!rq\210\310\216 \203\237 \311c\210 \312\211\203\214 @\211A\203\205 \313\n\211A\242\314\261\210\n\312 \211\203i @\211A\203b \313\f\211A\242\315\261\210\f\203[ \316\317\f\211A\242\f\211A\242#c\210\202E \320\321!\210\322c\210 A\211\2043 *\320\323!\210`Sf\324=\203| \325c\210\202\205 \326 Tb\210`d|\210 A\211\204 *`Sf\327=\203\231 \320\330!\210\331c\210\202\242 \332c\210
\333 !\":\203\313 \"A@ \"@ \333 \202\317 \" \334 .\207" [#1=#:temp-buffer pop3-uidl-saved srvr --dolist-tail-- elt pop3-uidl-file generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] "(" nil "(\"" "\"\n " "\"\n " format "\"%s\" %s\n " delete-char -4 ")\n " -3 41 ")\n " point-at-bol 32 -2 ")\n" "()\n" t save-buffer kept-new-versions kept-old-versions version-control delete-old-versions buffer-file-name pop3-uidl-file-backup] 6 (#$ . 11206)])
#@20 Add X-UIDL header.
(defalias 'pop3-uidl-add-xheader #[(start msgno) "\304\214 \211b\210\305\306\307\310#\210`S}\210 b\210\311\312\307\304#\203. \313y\210\307f\314>\204 \315\224`|\210\202 db\210\316\nS 8\317\261*\207" [case-fold-search start msgno pop3-uidl t search-forward "\n\n" nil move re-search-forward "^x-uidl:" 1 (9 32) 0 "X-UIDL: " "\n"] 5 (#$ . 12165)])
#@301 Transport security type for POP3 connections.
This may be either nil (plain connection), `ssl' (use an
SSL/TSL-secured stream) or `starttls' (use the starttls mechanism
to turn on TLS security after opening the stream). However, if
this is nil, `ssl' is assumed for connections to port
995 (pop3s).
(custom-declare-variable 'pop3-stream-type nil '(#$ . 12540) :version "23.1" :group 'pop3 :type '(choice (const :tag "Plain" nil) (const :tag "SSL/TLS" ssl) (const starttls)))
#@94 Open TCP connection to MAILHOST on PORT.
Returns the process associated with the connection.
(defalias 'pop3-open-server #[(mailhost port) "\306\211\307r\310\311 P!q\210\312 \210e\313\314p
\315'\316=\204+ '\204/
\317\235\203/ \320\2025 '\2065 \321\322\323\324\325\326\327\330\331\332\333\334\323\335\336&\211\205t \337A\340\"\211 (\341\342(\"\206[ \343\341\344(\"\206d \345TO))\346@\307\"\210\312 \210@,\207" [result coding-system-for-write coding-system-for-read mailhost pop3-read-point port binary nil get-buffer-create " trace of POP session to " erase-buffer open-network-stream "POP" :type ssl (995 "pop3s") tls network :warn-unless-encrypted t :capability-command "CAPA
\n" :end-of-command "^\\(-ERR\\|+OK\\).*\n" :end-of-capability "^\\.
?\n\\|^-ERR" :success "^\\+OK.*\n" :return-list :starttls-function #[(capabilities) "\301\302\"\205 \303\207" [capabilities string-match "\\bSTLS\\b" "STLS
\n"] 3] plist-get :greeting string-match "<" 0 ">" -1 set-process-query-on-exit-flag pop3-stream-type response pop3-timestamp] 22 (#$ . 13022)])
(defalias 'pop3-send-command #[(process command) "\303!q\210db\210`db\210\304\n\305P\"\207" [process pop3-read-point command process-buffer process-send-string "
\n"] 4])
#@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) "\305\211r\306\n!q\210 b\210\307\n!\310>\203' \311\312\305\313#\204' \314\n!\210 b\210\202
` b\210\315\316!\203= \317\320`\321Z{\"\202V \315\322!\204I \305\202V \f\203U `{\202V \313+\207" [match-end case-fold-search process pop3-read-point return nil process-buffer process-status (open run) search-forward "
\n" t pop3-accept-process-output looking-at "-ERR" error "%s" 2 "+OK"] 5 (#$ . 14269)])
(defalias 'pop3-clean-region #[(start end) "\302 \303\223\212 b\210`W\203! \304\305\306#\203! \307\310\306\211#\210\202\n b\210`W\203> \311\312\306#\203> \307\313\306\211#\210\303u\210\202$ )\303\211\223\207" [end start make-marker nil search-forward "
\n" t replace-match "\n" re-search-forward "^\\." ""] 4])
#@58 Make a valid date header.
If NOW, use that time instead.
(defalias 'pop3-make-date #[(&optional now) "\304\305!\210\206\n \306 \307\310!8\311 \312W\203 \313 [\314\315\"\316\317\320\321\322\310!8 \"@!\"\314\323\"Q+\207" [now zone sign parse-time-months require parse-time current-time 8 decode-time "+" 0 "-" format-time-string "%d" format " %s " capitalize rassoc 4 "%Y %H:%M:%S %z"] 8 (#$ . 15162)])
#@68 Check to see if a message separator exists. If not, generate one.
(defalias 'pop3-munge-message-separator #[(start end) "\212\214 }\210eb\210\306\307!\206 \306\310!\206 \306\311!?\205\257 \312\313\314!!\313\315!\316 \2035 \317\230\2045 \2067 \320 \321\" \322 \f\204D \323\202o \324\325\f@\"\203a \326\327\f@\330\f8\fA@\331\f8\332\f8&\202o \326\333\fA@\f@\332\f8\330\f8%\326\334\n\f#\324\335
\"\203\214
\336\211\224O
\336\225\322OP\202v eb\210
c\210\337\340\322\341#\204\240 db\210\342c\210d`Z %\343y\210\326\344%\"c-*\207" [start end from tdate date From_ looking-at "From .?" "\n" "BABYL OPTIONS:" mail-strip-quoted-names mail-fetch-field "From" "Date" split-string "" pop3-make-date " " nil "Tue Jan 1 00:00:0 1900" string-match "[A-Z]" format "%s %s %s %s %s" 2 4 3 "Sun %s %s %s %s" "\nFrom %s %s\n" "," 0 search-forward "\n\n" t "\n" -1 "Content-Length: %s\n" size] 8 (#$ . 15580)])
#@39 Send USER information to POP3 server.
(defalias 'pop3-user #[(process user) "\303\304\305 \"\"\210\306\307\"\211\205 \310\311\n\"?\205 \312\313 \")\207" [process user response pop3-send-command format "USER %s" pop3-read-response t string-match "+OK" error "USER %s not valid"] 6 (#$ . 16493)])
#@48 Send authentication information to the server.
(defalias 'pop3-pass #[(process) "\303\304\305 \"\"\210\306\307\"\211\205 \310\311\n\"?\205 \312!)\207" [process pop3-password response pop3-send-command format "PASS %s" pop3-read-response t string-match "+OK" pop3-quit] 6 (#$ . 16799)])
#@58 Send alternate authentication information to the server.
(defalias 'pop3-apop #[(process user) "\n\203 \204 \306\307\310 \"! \205B \311\f P\312\211\313$ \314\307\315
#\"\210\316\317\"\211 \2059 \320\321\"?\205A \322!*)\207" [pop3-password pass pop3-password-required pop3-maildrop pop3-timestamp hash read-passwd format "Password for %s: " md5 nil binary pop3-send-command "APOP %s %s" pop3-read-response t string-match "+OK" pop3-quit process user response] 7 (#$ . 17097)])
#@72 Return the number of messages in the maildrop and the maildrop's size.
(defalias 'pop3-stat #[(process) "\302\303\"\210\304\305\"\306\307 \310\"A@!\306\311\307 \310\"8!)D\207" [process response pop3-send-command "STAT" pop3-read-response t string-to-number split-string " " 2] 6 (#$ . 17596)])
#@111 If MSG is nil, return an alist of (MESSAGE-ID . SIZE) pairs.
Otherwise, return the size of the message-id MSG
(defalias 'pop3-list #[(process &optional msg) "\306 \203
\307\310 \"\202 \311\"\210\312\313\" \203$ \314\315\316\n\317\"8!\202U \320 r\321!q\210\322\323\320\313#\204@ \324!\210
b\210\202. \325 \326\224b\210\325 \327\330\316
\f{\331\313#\"+)\207" [process msg response pop3-read-point end start pop3-send-command format "LIST %d" "LIST" pop3-read-response t string-to-number 2 split-string " " nil process-buffer re-search-forward "^\\.
\n" pop3-accept-process-output point-marker 0 mapcar #[(s) "\302\303\"\304 @!\304 A@!)B\207" [s split split-string " " string-to-number] 3] "
\n"] 6 (#$ . 17900)])
#@45 Retrieve message-id MSG to buffer CRASHBUF.
(defalias 'pop3-retr #[(process msg crashbuf) "\306\307\310 \"\"\210\311!\210\n\312 r\313!q\210\314\315\312\316#\2044 \317!\320>\204* \321\322!\210\323!\210\fb\210\202 \324 \325\224b\210\324 \326\f \"\210\327\f \"\210r
q\210\330 \210)\331
\f #\210\f |+\207" [process msg pop3-read-point end start crashbuf pop3-send-command format "RETR %s" pop3-read-response nil process-buffer re-search-forward "^\\.
\n" t process-status (open run) error "pop3 server closed the connection" pop3-accept-process-output point-marker 0 pop3-clean-region pop3-munge-message-separator erase-buffer copy-to-buffer] 5 (#$ . 18630)])
#@33 Mark message-id MSG as deleted.
(defalias 'pop3-dele #[(process msg) "\302\303\304 \"\"\210\305!\207" [process msg pop3-send-command format "DELE %s" pop3-read-response] 5 (#$ . 19301)])
#@15 No-operation.
(defalias 'pop3-noop #[(process msg) "\301\302\"\210\303!\207" [process pop3-send-command "NOOP" pop3-read-response] 3 (#$ . 19496)])
#@60 Return highest accessed message-id number for the session.
(defalias 'pop3-last #[(process) "\302\303\"\210\304\305\"\306\307 \310\"A@!)\207" [process response pop3-send-command "LAST" pop3-read-response t string-to-number split-string " "] 4 (#$ . 19652)])
#@48 Remove all delete marks from current maildrop.
(defalias 'pop3-rset #[(process) "\301\302\"\210\303!\207" [process pop3-send-command "RSET" pop3-read-response] 3 (#$ . 19919)])
#@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) "\301\302\"\210\303\304\"\210\205 r\305!q\210db\210\306!)\207" [process pop3-send-command "QUIT" pop3-read-response t process-buffer delete-process] 3 (#$ . 20105)])
(provide 'pop3)
|