Mercurial > emacs
annotate lisp/gnus/pop3.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | 5be11972ce6a |
children | 07940da9c47a |
rev | line source |
---|---|
17493 | 1 ;;; pop3.el --- Post Office Protocol (RFC 1460) interface |
2 | |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, |
106815 | 4 ;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
17493 | 5 |
6 ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net> | |
26108
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
7 ;; Maintainer: FSF |
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
8 ;; Keywords: mail |
17493 | 9 |
10 ;; This file is part of GNU Emacs. | |
11 | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17493 | 13 ;; it under the terms of the GNU General Public License as published by |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
15 ;; (at your option) any later version. |
17493 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17493 | 24 |
25 ;;; Commentary: | |
26 | |
27 ;; Most of the standard Post Office Protocol version 3 (RFC 1460) commands | |
28 ;; are implemented. The LIST command has not been implemented due to lack | |
29 ;; of actual usefulness. | |
30 ;; The optional POP3 command TOP has not been implemented. | |
31 | |
32 ;; This program was inspired by Kyle E. Jones's vm-pop program. | |
33 | |
34 ;;; Code: | |
35 | |
110224
3d216398af49
pop3.el (pop3-number-of-responses): Search for "+OK", not "+OK ".
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110210
diff
changeset
|
36 (eval-when-compile (require 'cl)) |
17493 | 37 (require 'mail-utils) |
86154 | 38 (defvar parse-time-months) |
17493 | 39 |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
40 (defgroup pop3 nil |
63983
23c6b2acce05
(pop3): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
63495
diff
changeset
|
41 "Post Office Protocol." |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
42 :group 'mail |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
43 :group 'mail-source) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
44 |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
45 (defcustom pop3-maildrop (or (user-login-name) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
46 (getenv "LOGNAME") |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
47 (getenv "USER")) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
48 "*POP3 maildrop." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
58835
diff
changeset
|
49 :version "22.1" ;; Oort Gnus |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
50 :type 'string |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
51 :group 'pop3) |
17493 | 52 |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
53 (defcustom pop3-mailhost (or (getenv "MAILHOST") ;; nil -> mismatch |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
54 "pop3") |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
55 "*POP3 mailhost." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
58835
diff
changeset
|
56 :version "22.1" ;; Oort Gnus |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
57 :type 'string |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
58 :group 'pop3) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
59 |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
60 (defcustom pop3-port 110 |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
61 "*POP3 port." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
58835
diff
changeset
|
62 :version "22.1" ;; Oort Gnus |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
63 :type 'number |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
64 :group 'pop3) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
65 |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
66 (defcustom pop3-password-required t |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
67 "*Non-nil if a password is required when connecting to POP server." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
58835
diff
changeset
|
68 :version "22.1" ;; Oort Gnus |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
69 :type 'boolean |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
70 :group 'pop3) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
71 |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
72 ;; Should this be customizable? |
17493 | 73 (defvar pop3-password nil |
74 "*Password to use when connecting to POP server.") | |
75 | |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
76 (defcustom pop3-authentication-scheme 'pass |
17493 | 77 "*POP3 authentication scheme. |
73269 | 78 Defaults to `pass', for the standard USER/PASS authentication. The other |
79 valid value is 'apop'." | |
80 :type '(choice (const :tag "Normal user/password" pass) | |
81 (const :tag "APOP" apop)) | |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
58835
diff
changeset
|
82 :version "22.1" ;; Oort Gnus |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
83 :group 'pop3) |
17493 | 84 |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
85 (defcustom pop3-leave-mail-on-server nil |
57561
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57442
diff
changeset
|
86 "*Non-nil if the mail is to be left on the POP server after fetching. |
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57442
diff
changeset
|
87 |
73269 | 88 If `pop3-leave-mail-on-server' is non-nil the mail is to be left |
89 on the POP server after fetching. Note that POP servers maintain | |
90 no state information between sessions, so what the client | |
91 believes is there and what is actually there may not match up. | |
92 If they do not, then you may get duplicate mails or the whole | |
93 thing can fall apart and leave you with a corrupt mailbox." | |
72810 | 94 ;; We can't use the UILD support from XEmacs mail-lib or cvs.m17n.org: |
95 ;; http://thread.gmane.org/v9lld8fml4.fsf@marauder.physik.uni-ulm.de | |
96 ;; http://thread.gmane.org/b9yy8hzy9ej.fsf@jpl.org | |
97 ;; Any volunteer to re-implement this? | |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
58835
diff
changeset
|
98 :version "22.1" ;; Oort Gnus |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
99 :type 'boolean |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
100 :group 'pop3) |
51546
a5038d551293
(pop3-leave-mail-on-server): New user variable.
Sam Steingold <sds@gnu.org>
parents:
44544
diff
changeset
|
101 |
17493 | 102 (defvar pop3-timestamp nil |
103 "Timestamp returned when initially connected to the POP server. | |
104 Used for APOP authentication.") | |
105 | |
106 (defvar pop3-read-point nil) | |
107 (defvar pop3-debug nil) | |
108 | |
100993 | 109 ;; Borrowed from nnheader-accept-process-output in nnheader.el. See the |
110 ;; comments there for explanations about the values. | |
111 | |
112 (eval-and-compile | |
113 (if (and (fboundp 'nnheader-accept-process-output) | |
114 (boundp 'nnheader-read-timeout)) | |
115 (defalias 'pop3-accept-process-output 'nnheader-accept-process-output) | |
116 ;; Borrowed from `nnheader.el': | |
117 (defvar pop3-read-timeout | |
110039
459fd421257a
gnus-group-completing-read: Add 'substring to completion-styles for group selection; imap.el, mailcap.el, message.el, mm-util.el, nnheader.el, nnmail.el, pop3.el: Remove references to outdated systems; References to win32 w32 mswindows ms-windows emx were probably cargo-culted, and are removed for clarity; By Lars Magne Ingebrigtsen <larsi@gnus.org>.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
107473
diff
changeset
|
118 (if (string-match "windows-nt\\|os/2\\|cygwin" |
100993 | 119 (symbol-name system-type)) |
120 1.0 | |
121 0.01) | |
122 "How long pop3 should wait between checking for the end of output. | |
57561
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57442
diff
changeset
|
123 Shorter values mean quicker response, but are more CPU intensive.") |
100993 | 124 (defun pop3-accept-process-output (process) |
125 (accept-process-output | |
126 process | |
127 (truncate pop3-read-timeout) | |
128 (truncate (* (- pop3-read-timeout | |
129 (truncate pop3-read-timeout)) | |
130 1000)))))) | |
95491
32ac518a1ca9
(nnheader-accept-process-output): Autoload it.
Glenn Morris <rgm@gnu.org>
parents:
95193
diff
changeset
|
131 |
110296
ef15e8533a1c
Remove pop3-movemail and rename pop3-streaming-movemail to pop3-movemail.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110224
diff
changeset
|
132 ;;;###autoload |
ef15e8533a1c
Remove pop3-movemail and rename pop3-streaming-movemail to pop3-movemail.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110224
diff
changeset
|
133 (defun pop3-movemail (file) |
110195
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
134 "Transfer contents of a maildrop to the specified FILE. |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
135 Use streaming commands." |
17493 | 136 (let* ((process (pop3-open-server pop3-mailhost pop3-port)) |
110195
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
137 message-count message-total-size) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
138 (pop3-logon process) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
139 (with-current-buffer (process-buffer process) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
140 (let ((size (pop3-stat process))) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
141 (setq message-count (car size) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
142 message-total-size (cadr size))) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
143 (when (plusp message-count) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
144 (pop3-send-streaming-command |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
145 process "RETR" message-count message-total-size) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
146 (pop3-write-to-file file) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
147 (unless pop3-leave-mail-on-server |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
148 (pop3-send-streaming-command |
110196
fcc33f6790e5
pop3.el (pop3-streaming-movemail): Always close the pop3 connection.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110195
diff
changeset
|
149 process "DELE" message-count nil)))) |
110210
3d982e5c5f58
pop3.el (pop3-streaming-movemail): Return t for success; imap.el (imap-log): New convenience function used throughout instead of repeating the same code all over the place.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110201
diff
changeset
|
150 (pop3-quit process) |
3d982e5c5f58
pop3.el (pop3-streaming-movemail): Return t for success; imap.el (imap-log): New convenience function used throughout instead of repeating the same code all over the place.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110201
diff
changeset
|
151 t)) |
110195
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
152 |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
153 (defun pop3-send-streaming-command (process command count total-size) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
154 (erase-buffer) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
155 (let ((i 1)) |
110197
727cc5d69397
pop3.el (pop3-write-to-file): Don't output messages when saving; mail-source.el (mail-source-delete-crash-box): Really only check the incoming files once in a while; nnml.el (nnml-save-nov): Message around nnml-save-nov so that the culprit is more visible; pop3.el (pop3-send-streaming-command): Off-by-one error on the request loop (for debugging purposes) removed.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110196
diff
changeset
|
156 (while (>= count i) |
110195
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
157 (process-send-string process (format "%s %d\r\n" command i)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
158 ;; Only do 100 messages at a time to avoid pipe stalls. |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
159 (when (zerop (% i 100)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
160 (pop3-wait-for-messages process i total-size)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
161 (incf i))) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
162 (pop3-wait-for-messages process count total-size)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
163 |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
164 (defun pop3-wait-for-messages (process count total-size) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
165 (while (< (pop3-number-of-responses total-size) count) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
166 (when total-size |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
167 (message "pop3 retrieved %dKB (%d%%)" |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
168 (truncate (/ (buffer-size) 1000)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
169 (truncate (* (/ (* (buffer-size) 1.0) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
170 total-size) 100)))) |
110388
9c222728860c
pop3.el (pop3-wait-for-messages): Use pop3-accept-process-output instead of nnheader-accept-process-output.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110296
diff
changeset
|
171 (pop3-accept-process-output process))) |
110195
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
172 |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
173 (defun pop3-write-to-file (file) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
174 (let ((pop-buffer (current-buffer)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
175 (start (point-min)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
176 beg end |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
177 temp-buffer) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
178 (with-temp-buffer |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
179 (setq temp-buffer (current-buffer)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
180 (with-current-buffer pop-buffer |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
181 (goto-char (point-min)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
182 (while (re-search-forward "^\\+OK" nil t) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
183 (forward-line 1) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
184 (setq beg (point)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
185 (when (re-search-forward "^\\.\r?\n" nil t) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
186 (setq start (point)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
187 (forward-line -1) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
188 (setq end (point))) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
189 (with-current-buffer temp-buffer |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
190 (goto-char (point-max)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
191 (let ((hstart (point))) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
192 (insert-buffer-substring pop-buffer beg end) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
193 (pop3-clean-region hstart (point)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
194 (goto-char (point-max)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
195 (pop3-munge-message-separator hstart (point)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
196 (goto-char (point-max)))))) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
197 (let ((coding-system-for-write 'binary)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
198 (goto-char (point-min)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
199 ;; Check whether something inserted a newline at the start and |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
200 ;; delete it. |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
201 (when (eolp) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
202 (delete-char 1)) |
110197
727cc5d69397
pop3.el (pop3-write-to-file): Don't output messages when saving; mail-source.el (mail-source-delete-crash-box): Really only check the incoming files once in a while; nnml.el (nnml-save-nov): Message around nnml-save-nov so that the culprit is more visible; pop3.el (pop3-send-streaming-command): Off-by-one error on the request loop (for debugging purposes) removed.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110196
diff
changeset
|
203 (write-region (point-min) (point-max) file nil 'nomesg))))) |
110195
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
204 |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
205 (defun pop3-number-of-responses (endp) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
206 (let ((responses 0)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
207 (save-excursion |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
208 (goto-char (point-min)) |
110224
3d216398af49
pop3.el (pop3-number-of-responses): Search for "+OK", not "+OK ".
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110210
diff
changeset
|
209 (while (or (and (re-search-forward "^\\+OK" nil t) |
110195
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
210 (or (not endp) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
211 (re-search-forward "^\\.\r?\n" nil t))) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
212 (re-search-forward "^-ERR " nil t)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
213 (incf responses))) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
214 responses)) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
215 |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
216 (defun pop3-logon (process) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
217 (let ((pop3-password pop3-password)) |
17493 | 218 ;; for debugging only |
219 (if pop3-debug (switch-to-buffer (process-buffer process))) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
220 ;; query for password |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
221 (if (and pop3-password-required (not pop3-password)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
222 (setq pop3-password |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
223 (read-passwd (format "Password for %s: " pop3-maildrop)))) |
17493 | 224 (cond ((equal 'apop pop3-authentication-scheme) |
225 (pop3-apop process pop3-maildrop)) | |
226 ((equal 'pass pop3-authentication-scheme) | |
227 (pop3-user process pop3-maildrop) | |
228 (pop3-pass process)) | |
110195
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
229 (t (error "Invalid POP3 authentication scheme"))))) |
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
230 |
35453
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
231 (defun pop3-get-message-count () |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
232 "Return the number of messages in the maildrop." |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
233 (let* ((process (pop3-open-server pop3-mailhost pop3-port)) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
234 message-count |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
235 (pop3-password pop3-password)) |
35453
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
236 ;; for debugging only |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
237 (if pop3-debug (switch-to-buffer (process-buffer process))) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
238 ;; query for password |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
239 (if (and pop3-password-required (not pop3-password)) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
240 (setq pop3-password |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
241 (read-passwd (format "Password for %s: " pop3-maildrop)))) |
35453
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
242 (cond ((equal 'apop pop3-authentication-scheme) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
243 (pop3-apop process pop3-maildrop)) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
244 ((equal 'pass pop3-authentication-scheme) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
245 (pop3-user process pop3-maildrop) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
246 (pop3-pass process)) |
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
35453
diff
changeset
|
247 (t (error "Invalid POP3 authentication scheme"))) |
35453
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
248 (setq message-count (car (pop3-stat process))) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
249 (pop3-quit process) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
250 message-count)) |
26726eff41ca
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
34618
diff
changeset
|
251 |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
252 (autoload 'open-tls-stream "tls") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
253 (autoload 'starttls-open-stream "starttls") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
254 (autoload 'starttls-negotiate "starttls") ; avoid warning |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
255 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
256 (defcustom pop3-stream-type nil |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
257 "*Transport security type for POP3 connexions. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
258 This may be either nil (plain connexion), `ssl' (use an |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
259 SSL/TSL-secured stream) or `starttls' (use the starttls mechanism |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
260 to turn on TLS security after opening the stream). However, if |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
261 this is nil, `ssl' is assumed for connexions to port |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
262 995 (pop3s)." |
92336
5f827896103e
Change defcustom :version from 23.0 to 23.1.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
263 :version "23.1" ;; No Gnus |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
264 :group 'pop3 |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
265 :type '(choice (const :tag "Plain" nil) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
266 (const :tag "SSL/TLS" ssl) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
267 (const starttls))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
268 |
110201
46435634bd67
pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110197
diff
changeset
|
269 (eval-and-compile |
46435634bd67
pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110197
diff
changeset
|
270 (if (fboundp 'set-process-query-on-exit-flag) |
46435634bd67
pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110197
diff
changeset
|
271 (defalias 'pop3-set-process-query-on-exit-flag |
46435634bd67
pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110197
diff
changeset
|
272 'set-process-query-on-exit-flag) |
46435634bd67
pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110197
diff
changeset
|
273 (defalias 'pop3-set-process-query-on-exit-flag |
46435634bd67
pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110197
diff
changeset
|
274 'process-kill-without-query))) |
46435634bd67
pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110197
diff
changeset
|
275 |
17493 | 276 (defun pop3-open-server (mailhost port) |
26108
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
277 "Open TCP connection to MAILHOST on PORT. |
17493 | 278 Returns the process associated with the connection." |
28835 | 279 (let ((coding-system-for-read 'binary) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
280 (coding-system-for-write 'binary) |
28835 | 281 process) |
110410
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
282 (save-excursion |
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
283 (set-buffer (get-buffer-create (concat " trace of POP session to " |
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
284 mailhost))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
285 (erase-buffer) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
286 (setq pop3-read-point (point-min)) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
287 (setq process |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
288 (cond |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
289 ((or (eq pop3-stream-type 'ssl) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
290 (and (not pop3-stream-type) (member port '(995 "pop3s")))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
291 ;; gnutls-cli, openssl don't accept service names |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
292 (if (or (equal port "pop3s") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
293 (null port)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
294 (setq port 995)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
295 (let ((process (open-tls-stream "POP" (current-buffer) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
296 mailhost port))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
297 (when process |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
298 ;; There's a load of info printed that needs deleting. |
86225 | 299 (let ((again 't)) |
300 ;; repeat until | |
301 ;; - either we received the +OK line | |
302 ;; - or accept-process-output timed out without getting | |
303 ;; anything | |
304 (while (and again | |
305 (setq again (memq (process-status process) | |
306 '(open run)))) | |
307 (setq again (pop3-accept-process-output process)) | |
308 (goto-char (point-max)) | |
309 (forward-line -1) | |
310 (cond ((looking-at "\\+OK") | |
311 (setq again nil) | |
312 (delete-region (point-min) (point))) | |
313 ((not again) | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
314 (pop3-quit process) |
86225 | 315 (error "POP SSL connexion failed"))))) |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
316 process))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
317 ((eq pop3-stream-type 'starttls) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
318 ;; gnutls-cli, openssl don't accept service names |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
319 (if (equal port "pop3") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
320 (setq port 110)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
321 (let ((process (starttls-open-stream "POP" (current-buffer) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
322 mailhost (or port 110)))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
323 (pop3-send-command process "STLS") |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
324 (let ((response (pop3-read-response process t))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
325 (if (and response (string-match "+OK" response)) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
326 (starttls-negotiate process) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
327 (pop3-quit process) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
328 (error "POP server doesn't support starttls"))) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
329 process)) |
110111
5b9f64b04a04
Delete all trailing white space.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110102
diff
changeset
|
330 (t |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
331 (open-network-stream "POP" (current-buffer) mailhost port)))) |
28835 | 332 (let ((response (pop3-read-response process t))) |
333 (setq pop3-timestamp | |
334 (substring response (or (string-match "<" response) 0) | |
335 (+ 1 (or (string-match ">" response) -1))))) | |
110201
46435634bd67
pop3-set-process-query-on-exit-flag: New function that's an alias to set-process-query-on-exit-flag, or process-kill-without-query for XEmacs and old Emacsen.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110197
diff
changeset
|
336 (pop3-set-process-query-on-exit-flag process nil) |
28835 | 337 process))) |
17493 | 338 |
339 ;; Support functions | |
340 | |
341 (defun pop3-send-command (process command) | |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
342 (set-buffer (process-buffer process)) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
343 (goto-char (point-max)) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
344 ;; (if (= (aref command 0) ?P) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
345 ;; (insert "PASS <omitted>\r\n") |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
346 ;; (insert command "\r\n")) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
347 (setq pop3-read-point (point)) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
348 (goto-char (point-max)) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
349 (process-send-string process (concat command "\r\n"))) |
17493 | 350 |
351 (defun pop3-read-response (process &optional return) | |
352 "Read the response from the server. | |
353 Return the response string if optional second argument is non-nil." | |
354 (let ((case-fold-search nil) | |
355 match-end) | |
110410
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
356 (save-excursion |
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
357 (set-buffer (process-buffer process)) |
17493 | 358 (goto-char pop3-read-point) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
359 (while (and (memq (process-status process) '(open run)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
360 (not (search-forward "\r\n" nil t))) |
57561
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57442
diff
changeset
|
361 (pop3-accept-process-output process) |
17493 | 362 (goto-char pop3-read-point)) |
363 (setq match-end (point)) | |
364 (goto-char pop3-read-point) | |
365 (if (looking-at "-ERR") | |
87140
9c91533a901a
Fix buggy calls to `error'.
Deepak Goel <deego@gnufans.org>
parents:
86225
diff
changeset
|
366 (error "%s" (buffer-substring (point) (- match-end 2))) |
17493 | 367 (if (not (looking-at "+OK")) |
368 (progn (setq pop3-read-point match-end) nil) | |
369 (setq pop3-read-point match-end) | |
370 (if return | |
371 (buffer-substring (point) match-end) | |
372 t) | |
373 ))))) | |
374 | |
375 (defun pop3-clean-region (start end) | |
376 (setq end (set-marker (make-marker) end)) | |
377 (save-excursion | |
378 (goto-char start) | |
379 (while (and (< (point) end) (search-forward "\r\n" end t)) | |
380 (replace-match "\n" t t)) | |
381 (goto-char start) | |
382 (while (and (< (point) end) (re-search-forward "^\\." end t)) | |
383 (replace-match "" t t) | |
384 (forward-char))) | |
385 (set-marker end nil)) | |
386 | |
33369 | 387 ;; Copied from message-make-date. |
388 (defun pop3-make-date (&optional now) | |
389 "Make a valid date header. | |
390 If NOW, use that time instead." | |
391 (require 'parse-time) | |
392 (let* ((now (or now (current-time))) | |
393 (zone (nth 8 (decode-time now))) | |
394 (sign "+")) | |
395 (when (< zone 0) | |
396 (setq sign "-") | |
397 (setq zone (- zone))) | |
398 (concat | |
399 (format-time-string "%d" now) | |
400 ;; The month name of the %b spec is locale-specific. Pfff. | |
401 (format " %s " | |
402 (capitalize (car (rassoc (nth 4 (decode-time now)) | |
403 parse-time-months)))) | |
404 (format-time-string "%Y %H:%M:%S " now) | |
405 ;; We do all of this because XEmacs doesn't have the %z spec. | |
406 (format "%s%02d%02d" sign (/ zone 3600) (/ (% zone 3600) 60))))) | |
407 | |
17493 | 408 (defun pop3-munge-message-separator (start end) |
409 "Check to see if a message separator exists. If not, generate one." | |
410 (save-excursion | |
411 (save-restriction | |
412 (narrow-to-region start end) | |
413 (goto-char (point-min)) | |
414 (if (not (or (looking-at "From .?") ; Unix mail | |
415 (looking-at "\001\001\001\001\n") ; MMDF | |
416 (looking-at "BABYL OPTIONS:") ; Babyl | |
417 )) | |
44541
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
418 (let* ((from (mail-strip-quoted-names (mail-fetch-field "From"))) |
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
419 (tdate (mail-fetch-field "Date")) |
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
420 (date (split-string (or (and tdate |
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
421 (not (string= "" tdate)) |
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
422 tdate) |
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
423 (pop3-make-date)) |
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
424 " ")) |
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
425 (From_)) |
17493 | 426 ;; sample date formats I have seen |
427 ;; Date: Tue, 9 Jul 1996 09:04:21 -0400 (EDT) | |
428 ;; Date: 08 Jul 1996 23:22:24 -0400 | |
429 ;; should be | |
430 ;; Tue Jul 9 09:04:21 1996 | |
73269 | 431 |
432 ;; Fixme: This should use timezone on the date field contents. | |
17493 | 433 (setq date |
44541
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
434 (cond ((not date) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
435 "Tue Jan 1 00:00:0 1900") |
44541
1910e7c74f9f
* pop3.el (pop3-munge-message-separator): Work if no date.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
44452
diff
changeset
|
436 ((string-match "[A-Z]" (nth 0 date)) |
17493 | 437 (format "%s %s %s %s %s" |
438 (nth 0 date) (nth 2 date) (nth 1 date) | |
439 (nth 4 date) (nth 3 date))) | |
440 (t | |
441 ;; this really needs to be better but I don't feel | |
442 ;; like writing a date to day converter. | |
443 (format "Sun %s %s %s %s" | |
444 (nth 1 date) (nth 0 date) | |
445 (nth 3 date) (nth 2 date))) | |
446 )) | |
447 (setq From_ (format "\nFrom %s %s\n" from date)) | |
448 (while (string-match "," From_) | |
449 (setq From_ (concat (substring From_ 0 (match-beginning 0)) | |
450 (substring From_ (match-end 0))))) | |
451 (goto-char (point-min)) | |
26108
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
452 (insert From_) |
33369 | 453 (if (search-forward "\n\n" nil t) |
454 nil | |
455 (goto-char (point-max)) | |
456 (insert "\n")) | |
110195
48695a2e29d9
gnus-start.el: White space clean up; mail-source.el (mail-source-fetch-pop): Use streaming pop3 retrieval; pop3.el (pop3-streaming-movemail): Respect pop3-leave-mail-on-server; pop3.el (pop3-logon): Fix up unbound variable typo; mail-source.el (mail-source-delete-crash-box): Only check the incoming files for deletion once per day to save a lot of file accesses.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110193
diff
changeset
|
457 (let ((size (- (point-max) (point)))) |
26108
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
458 (forward-line -1) |
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
459 (insert (format "Content-Length: %s\n" size))) |
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
460 ))))) |
17493 | 461 |
462 ;; The Command Set | |
463 | |
464 ;; AUTHORIZATION STATE | |
465 | |
466 (defun pop3-user (process user) | |
467 "Send USER information to POP3 server." | |
468 (pop3-send-command process (format "USER %s" user)) | |
469 (let ((response (pop3-read-response process t))) | |
470 (if (not (and response (string-match "+OK" response))) | |
63495
91a6c1b5b3c4
(pop3-user): Don't use `format' on `error' arguments.
Juanma Barranquero <lekktu@gmail.com>
parents:
62960
diff
changeset
|
471 (error "USER %s not valid" user)))) |
17493 | 472 |
473 (defun pop3-pass (process) | |
474 "Send authentication information to the server." | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
475 (pop3-send-command process (format "PASS %s" pop3-password)) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
476 (let ((response (pop3-read-response process t))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
477 (if (not (and response (string-match "+OK" response))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
23435
diff
changeset
|
478 (pop3-quit process)))) |
19633
25317a11d7a1
(pop3-md5): New function.
Richard M. Stallman <rms@gnu.org>
parents:
19595
diff
changeset
|
479 |
17493 | 480 (defun pop3-apop (process user) |
481 "Send alternate authentication information to the server." | |
482 (let ((pass pop3-password)) | |
483 (if (and pop3-password-required (not pass)) | |
484 (setq pass | |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
485 (read-passwd (format "Password for %s: " pop3-maildrop)))) |
17493 | 486 (if pass |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
487 (let ((hash (md5 (concat pop3-timestamp pass) nil nil 'binary))) |
17493 | 488 (pop3-send-command process (format "APOP %s %s" user hash)) |
489 (let ((response (pop3-read-response process t))) | |
490 (if (not (and response (string-match "+OK" response))) | |
491 (pop3-quit process))))) | |
492 )) | |
493 | |
494 ;; TRANSACTION STATE | |
495 | |
496 (defun pop3-stat (process) | |
497 "Return the number of messages in the maildrop and the maildrop's size." | |
498 (pop3-send-command process "STAT") | |
499 (let ((response (pop3-read-response process t))) | |
62907
88db2adda4b7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-339
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
500 (list (string-to-number (nth 1 (split-string response " "))) |
88db2adda4b7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-339
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
501 (string-to-number (nth 2 (split-string response " ")))) |
17493 | 502 )) |
503 | |
504 (defun pop3-list (process &optional msg) | |
107473 | 505 "If MSG is nil, return an alist of (MESSAGE-ID . SIZE) pairs. |
506 Otherwise, return the size of the message-id MSG" | |
110111
5b9f64b04a04
Delete all trailing white space.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110102
diff
changeset
|
507 (pop3-send-command process (if msg |
107473 | 508 (format "LIST %d" msg) |
509 "LIST")) | |
510 (let ((response (pop3-read-response process t))) | |
511 (if msg | |
512 (string-to-number (nth 2 (split-string response " "))) | |
513 (let ((start pop3-read-point) end) | |
110410
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
514 (save-excursion |
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
515 (set-buffer (process-buffer process)) |
107473 | 516 (while (not (re-search-forward "^\\.\r\n" nil t)) |
517 (pop3-accept-process-output process) | |
518 (goto-char start)) | |
519 (setq pop3-read-point (point-marker)) | |
520 (goto-char (match-beginning 0)) | |
521 (setq end (point-marker)) | |
522 (mapcar #'(lambda (s) (let ((split (split-string s " "))) | |
523 (cons (string-to-number (nth 0 split)) | |
524 (string-to-number (nth 1 split))))) | |
525 (delete "" (split-string (buffer-substring start end) | |
526 "\r\n")))))))) | |
17493 | 527 |
528 (defun pop3-retr (process msg crashbuf) | |
529 "Retrieve message-id MSG to buffer CRASHBUF." | |
530 (pop3-send-command process (format "RETR %s" msg)) | |
531 (pop3-read-response process) | |
532 (let ((start pop3-read-point) end) | |
110410
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
533 (save-excursion |
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
534 (set-buffer (process-buffer process)) |
17493 | 535 (while (not (re-search-forward "^\\.\r\n" nil t)) |
57561
505c55fe8dc9
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Miles Bader <miles@gnu.org>
parents:
57442
diff
changeset
|
536 (pop3-accept-process-output process) |
17493 | 537 (goto-char start)) |
538 (setq pop3-read-point (point-marker)) | |
57442
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
539 ;; this code does not seem to work for some POP servers... |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
540 ;; and I cannot figure out why not. |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
541 ;; (goto-char (match-beginning 0)) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
542 ;; (backward-char 2) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
543 ;; (if (not (looking-at "\r\n")) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
544 ;; (insert "\r\n")) |
2d9a1d1ac73d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-610
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
545 ;; (re-search-forward "\\.\r\n") |
17493 | 546 (goto-char (match-beginning 0)) |
547 (setq end (point-marker)) | |
548 (pop3-clean-region start end) | |
549 (pop3-munge-message-separator start end) | |
110410
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
550 (save-excursion |
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
551 (set-buffer crashbuf) |
17493 | 552 (erase-buffer)) |
553 (copy-to-buffer crashbuf start end) | |
554 (delete-region start end) | |
555 ))) | |
556 | |
557 (defun pop3-dele (process msg) | |
558 "Mark message-id MSG as deleted." | |
559 (pop3-send-command process (format "DELE %s" msg)) | |
560 (pop3-read-response process)) | |
561 | |
562 (defun pop3-noop (process msg) | |
563 "No-operation." | |
564 (pop3-send-command process "NOOP") | |
565 (pop3-read-response process)) | |
566 | |
567 (defun pop3-last (process) | |
568 "Return highest accessed message-id number for the session." | |
569 (pop3-send-command process "LAST") | |
570 (let ((response (pop3-read-response process t))) | |
62907
88db2adda4b7
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-339
Miles Bader <miles@gnu.org>
parents:
59996
diff
changeset
|
571 (string-to-number (nth 1 (split-string response " "))) |
17493 | 572 )) |
573 | |
574 (defun pop3-rset (process) | |
575 "Remove all delete marks from current maildrop." | |
576 (pop3-send-command process "RSET") | |
577 (pop3-read-response process)) | |
578 | |
579 ;; UPDATE | |
580 | |
581 (defun pop3-quit (process) | |
582 "Close connection to POP3 server. | |
583 Tell server to remove all messages marked as deleted, unlock the maildrop, | |
584 and close the connection." | |
585 (pop3-send-command process "QUIT") | |
586 (pop3-read-response process t) | |
587 (if process | |
110410
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
588 (save-excursion |
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110395
diff
changeset
|
589 (set-buffer (process-buffer process)) |
17493 | 590 (goto-char (point-max)) |
591 (delete-process process)))) | |
592 | |
593 ;; Summary of POP3 (Post Office Protocol version 3) commands and responses | |
594 | |
595 ;;; AUTHORIZATION STATE | |
596 | |
597 ;; Initial TCP connection | |
598 ;; Arguments: none | |
599 ;; Restrictions: none | |
600 ;; Possible responses: | |
601 ;; +OK [POP3 server ready] | |
602 | |
603 ;; USER name | |
604 ;; Arguments: a server specific user-id (required) | |
605 ;; Restrictions: authorization state [after unsuccessful USER or PASS | |
606 ;; Possible responses: | |
607 ;; +OK [valid user-id] | |
608 ;; -ERR [invalid user-id] | |
609 | |
610 ;; PASS string | |
611 ;; Arguments: a server/user-id specific password (required) | |
612 ;; Restrictions: authorization state, after successful USER | |
613 ;; Possible responses: | |
614 ;; +OK [maildrop locked and ready] | |
615 ;; -ERR [invalid password] | |
616 ;; -ERR [unable to lock maildrop] | |
617 | |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
618 ;; STLS (RFC 2595) |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
619 ;; Arguments: none |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
620 ;; Restrictions: Only permitted in AUTHORIZATION state. |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
621 ;; Possible responses: |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
622 ;; +OK |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
623 ;; -ERR |
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
624 |
17493 | 625 ;;; TRANSACTION STATE |
626 | |
627 ;; STAT | |
628 ;; Arguments: none | |
629 ;; Restrictions: transaction state | |
630 ;; Possible responses: | |
631 ;; +OK nn mm [# of messages, size of maildrop] | |
632 | |
633 ;; LIST [msg] | |
634 ;; Arguments: a message-id (optional) | |
635 ;; Restrictions: transaction state; msg must not be deleted | |
636 ;; Possible responses: | |
637 ;; +OK [scan listing follows] | |
638 ;; -ERR [no such message] | |
639 | |
640 ;; RETR msg | |
641 ;; Arguments: a message-id (required) | |
642 ;; Restrictions: transaction state; msg must not be deleted | |
643 ;; Possible responses: | |
644 ;; +OK [message contents follow] | |
645 ;; -ERR [no such message] | |
646 | |
647 ;; DELE msg | |
648 ;; Arguments: a message-id (required) | |
649 ;; Restrictions: transaction state; msg must not be deleted | |
650 ;; Possible responses: | |
651 ;; +OK [message deleted] | |
652 ;; -ERR [no such message] | |
653 | |
654 ;; NOOP | |
655 ;; Arguments: none | |
656 ;; Restrictions: transaction state | |
657 ;; Possible responses: | |
658 ;; +OK | |
659 | |
660 ;; LAST | |
661 ;; Arguments: none | |
662 ;; Restrictions: transaction state | |
663 ;; Possible responses: | |
664 ;; +OK nn [highest numbered message accessed] | |
665 | |
666 ;; RSET | |
667 ;; Arguments: none | |
668 ;; Restrictions: transaction state | |
669 ;; Possible responses: | |
670 ;; +OK [all delete marks removed] | |
671 | |
672 ;;; UPDATE STATE | |
673 | |
674 ;; QUIT | |
675 ;; Arguments: none | |
676 ;; Restrictions: none | |
677 ;; Possible responses: | |
678 ;; +OK [TCP connection closed] | |
26108
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
679 |
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
680 (provide 'pop3) |
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
681 |
08a36c7a0a52
Merge changes from version `1.3s' which we weren't sent.
Dave Love <fx@gnu.org>
parents:
24599
diff
changeset
|
682 ;;; pop3.el ends here |