Mercurial > emacs

comparison lisp/gnus/pop3.el @ 63495:91a6c1b5b3c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pop3-user): Don't use `format' on `error' arguments.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 16 Jun 2005 14:57:23 +0000
parents 31ebc6690b8b
children 23c6b2acce05 b7da78284d4c
comparison
equal deleted inserted replaced
63494:c6c9f46490d0 63495:91a6c1b5b3c4
383 (defun pop3-user (process user) 383 (defun pop3-user (process user)
384 "Send USER information to POP3 server." 384 "Send USER information to POP3 server."
385 (pop3-send-command process (format "USER %s" user)) 385 (pop3-send-command process (format "USER %s" user))
386 (let ((response (pop3-read-response process t))) 386 (let ((response (pop3-read-response process t)))
387 (if (not (and response (string-match "+OK" response))) 387 (if (not (and response (string-match "+OK" response)))
388 (error (format "USER %s not valid" user))))) 388 (error "USER %s not valid" user))))
389 389
390 (defun pop3-pass (process) 390 (defun pop3-pass (process)
391 "Send authentication information to the server." 391 "Send authentication information to the server."
392 (pop3-send-command process (format "PASS %s" pop3-password)) 392 (pop3-send-command process (format "PASS %s" pop3-password))
393 (let ((response (pop3-read-response process t))) 393 (let ((response (pop3-read-response process t)))