385 |
(pop3-send-command process (format "USER %s" user)) |
(pop3-send-command process (format "USER %s" user)) |
386 |
(let ((response (pop3-read-response process t))) |
(let ((response (pop3-read-response process t))) |
387 |
(if (not (and response (string-match "+OK" response))) |
(if (not (and response (string-match "+OK" response))) |
388 |
(error (format "USER %s not valid" user))))) |
(error "USER %s not valid" user)))) |
389 |
|
|
390 |
(defun pop3-pass (process) |
(defun pop3-pass (process) |
391 |
"Send authentication information to the server." |
"Send authentication information to the server." |