Importing pgnus-0.79

[elisp/gnus.git-] / lisp / pop3.el

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 3d5cdf5..391d5b8 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -104,7 +104,7 @@ Used for APOP authentication.")
     (pop3-quit process)
     (kill-buffer crashbuf)
     )
-  )
+  t)
 
 (defun pop3-open-server (mailhost port)
   "Open TCP connection to MAILHOST.
@@ -113,7 +113,7 @@ Returns the process associated with the connection."
         (get-buffer-create (format "trace of POP session to %s" mailhost)))
        (process)
        (coding-system-for-read 'binary)   ;; because FSF Emacs 20 and
-       (coding-system-for-write 'binary)  ;; XEmacs 20/1 are st00pid 
+       (coding-system-for-write 'binary)  ;; XEmacs 20/1 are st00pid
     )
     (save-excursion
       (set-buffer process-buffer)
@@ -163,7 +163,7 @@ Return the response string if optional second argument is non-nil."
       (setq match-end (point))
       (goto-char pop3-read-point)
       (if (looking-at "-ERR")
-         (error (buffer-substring (point) (- match-end 2)))
+         (signal 'error (list (buffer-substring (point) (- match-end 2))))
        (if (not (looking-at "+OK"))
            (progn (setq pop3-read-point match-end) nil)
          (setq pop3-read-point match-end)