(require 'cl))
(require 'mail-utils)
-(require 'nnheader)
(defgroup pop3 nil
"Post Office Protocol"
(defcustom pop3-connection-type nil
"*POP3 connection type."
- :type 'boolean
+ :type '(choice (const :tag "Not specified" nil)
+ (const tls)
+ (const ssl))
:group 'pop3)
(defcustom pop3-password-required t
:type '(file :format "%t: %v\n" :size 0)
:group 'pop3)
-(defcustom pop3-uidl-support nil
+(defvar pop3-uidl-support nil
"Alist of servers and flags of whether they support UIDLs.
-Users don't have to set this value."
- :type 'boolean
- :group 'pop3)
+Users don't have to set this value.")
(defvar pop3-uidl-obarray (make-vector 31 0)
"Uidl hash table.")
(defun pop3-progress-message (format percent &rest args)
(apply (function message) format args))
+;; Borrowed from nnheader-accept-process-output in nnheader.el.
+(defvar pop3-read-timeout
+ (if (string-match "windows-nt\\|os/2\\|emx\\|cygwin"
+ (symbol-name system-type))
+ ;; http://thread.gmane.org/v9655t3pjo.fsf@marauder.physik.uni-ulm.de
+ ;;
+ ;; IIRC, values lower than 1.0 didn't/don't work on Windows/DOS.
+ ;;
+ ;; There should probably be a runtime test to determine the timing
+ ;; resolution, or a primitive to report it. I don't know off-hand
+ ;; what's possible. Perhaps better, maybe the Windows/DOS primitive
+ ;; could round up non-zero timeouts to a minimum of 1.0?
+ 1.0
+ 0.1)
+ "How long pop3 should wait between checking for the end of output.
+Shorter values mean quicker response, but are more CPU intensive.")
+
+;; Borrowed from nnheader-accept-process-output in nnheader.el.
+(defun pop3-accept-process-output (process)
+ (accept-process-output
+ process
+ (truncate pop3-read-timeout)
+ (truncate (* (- pop3-read-timeout
+ (truncate pop3-read-timeout))
+ 1000))))
+
(defun pop3-movemail (&optional crashbox)
"Transfer contents of a maildrop to the specified CRASHBOX."
(or crashbox (setq crashbox (expand-file-name "~/.crashbox")))
(goto-char (point-max))
(forward-line -1)
(not (looking-at "+OK")))
- (nnheader-accept-process-output process)
+ (pop3-accept-process-output process)
(sit-for 1))
(delete-region (point-min) (point)))
(and process (memq (process-status process) '(open run))
(goto-char pop3-read-point)
(while (and (memq (process-status process) '(open run))
(not (search-forward "\r\n" nil t)))
- (nnheader-accept-process-output process)
+ (pop3-accept-process-output process)
(goto-char pop3-read-point))
(setq match-end (point))
(goto-char pop3-read-point)
(set-buffer (process-buffer process))
(goto-char start)
(while (not (re-search-forward "^\\.\r\n" nil t))
- ;; Fixme: Shouldn't depend on nnheader.
- (nnheader-accept-process-output process)
+ (pop3-accept-process-output process)
(goto-char start))
(setq pop3-read-point (point-marker))
(goto-char (match-beginning 0))