Re: POP SSL conexion failed

[Leo <sdl.web@gmail.com>]

On 2007-01-13 21:29 +0000, Leo wrote:
> I am getting this error a few times a day. Any ideas?
>
> It never occurred when using pop.el with SSL support¹.

I wonder if someone could look at this bug. Gnus can not reliably
retrieve emails from pop server.

I hope the following backtrace is of use.

Debugger entered--Lisp error: (error "POP SSL connexion failed")
  signal(error ("POP SSL connexion failed"))
  error("POP SSL connexion failed")
  (if (looking-at "\\+OK") (progn (delete-region ... ...) nil) (pop3-quit process) (error "POP SSL connexion failed"))
  (progn (pop3-accept-process-output process) (goto-char (point-max)) (forward-line -1) (if (looking-at "\\+OK") (progn ... nil) (pop3-quit process) (error "POP SSL connexion failed")))
  (if (memq (process-status process) (quote ...)) (progn (pop3-accept-process-output process) (goto-char ...) (forward-line -1) (if ... ... ... ...)))
  (when (memq (process-status process) (quote ...)) (pop3-accept-process-output process) (goto-char (point-max)) (forward-line -1) (if (looking-at "\\+OK") (progn ... nil) (pop3-quit process) (error "POP SSL connexion failed")))
  (while (when (memq ... ...) (pop3-accept-process-output process) (goto-char ...) (forward-line -1) (if ... ... ... ...)))
  (progn (while (when ... ... ... ... ...)) process)
  (if process (progn (while ...) process))
  (when process (while (when ... ... ... ... ...)) process)
  (let ((process ...)) (when process (while ...) process))
  (cond ((or ... ...) (if ... ...) (let ... ...)) ((eq pop3-stream-type ...) (if ... ...) (let ... ... ... process)) (t (open-network-stream "POP" ... mailhost port)))
  (setq process (cond (... ... ...) (... ... ...) (t ...)))
  (save-excursion (set-buffer (get-buffer-create ...)) (erase-buffer) (setq pop3-read-point (point-min)) (setq process (cond ... ... ...)) (let (...) (setq pop3-timestamp ...)) process)
  (let ((coding-system-for-read ...) (coding-system-for-write ...) process) (save-excursion (set-buffer ...) (erase-buffer) (setq pop3-read-point ...) (setq process ...) (let ... ...) process))
  pop3-open-server("pop.gmail.com" 995)
  pop3-movemail("~/.emacs-mail-crash-box")
  (save-excursion (pop3-movemail mail-source-crash-box))
  (if (or debug-on-quit debug-on-error) (save-excursion (pop3-movemail mail-source-crash-box)) (condition-case err (save-excursion ...) (error ... ...)))
  (let ((pop3-password password) (pop3-maildrop user) (pop3-mailhost server) (pop3-port port) (pop3-authentication-scheme ...) (pop3-stream-type stream)) (if (or debug-on-quit debug-on-error) (save-excursion ...) (condition-case err ... ...)))
  (cond (program (mail-source-fetch-with-program ...)) (function (funcall function mail-source-crash-box)) (t (require ...) (let ... ...)))
  (setq result (cond (program ...) (function ...) (t ... ...)))
  (let ((from ...) (mail-source-string ...) result) (when (eq authentication ...) (setq password ...)) (when server (setenv "MAILHOST" server)) (setq result (cond ... ... ...)) (if result (progn ... ...) (setq mail-source-password-cache ...) 0))
  (let ((stream nil) (authentication nil) (password nil) (function nil) (program nil) (user nil) (port nil) (server nil) (postscript nil) (prescript-delay nil) (prescript nil)) (mail-source-set-1 source) (mail-source-run-script prescript (format-spec-mak\x04e 112 password 116 mail-source-crash-box 115 server 80 port 117 user) prescript-delay) (let (... ... result) (when ... ...) (when server ...) (setq result ...) (if result ... ... 0)))
  (mail-source-bind (pop source) (mail-source-run-script prescript (format-spec-make 112 password 116 mail-source-crash-box 115 server 80 port 117 user) prescript-delay) (let (... ... result) (when ... ...) (when server ...) (setq result ...) (if result \x04... ... 0)))
  mail-source-fetch-pop((pop :server "pop.gmail.com" :port 995 :user "sdl.web@googlemail.com" :password "pw100") #[(file orig-file) "Â\bÃÄ\b	.?...Å	Æ\"Ç%." [file orig-file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (pop :server "pop.gm\x04ail.com" :port 995 :user "sdl.web@googlemail.com" :password "pw100") nnml-active-number] 7])
  funcall(mail-source-fetch-pop (pop :server "pop.gmail.com" :port 995 :user "sdl.web@googlemail.com" :password "pw100") #[(file orig-file) "Â\bÃÄ\b	.?...Å	Æ\"Ç%." [file orig-file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (pop :server\x04 "pop.gmail.com" :port 995 :user "sdl.web@googlemail.com" :password "pw100") nnml-active-number] 7])
  (if (or debug-on-quit debug-on-error) (funcall function source callback) (condition-case err (funcall function source callback) (error ... 0)))
  (+ found (if (or debug-on-quit debug-on-error) (funcall function source callback) (condition-case err ... ...)))
  (let ((function ...) (found 0)) (unless function (error "%S is an invalid mail source specification" source)) (when (file-exists-p mail-source-crash-box) (message "Processing mail from %s..." mail-source-crash-box) (setq found ...) (mail-source-delete-\x04crash-box)) (+ found (if ... ... ...)))
  (save-excursion (let (... ...) (unless function ...) (when ... ... ... ...) (+ found ...)))
  (if (or mail-source-plugged plugged) (save-excursion (let ... ... ... ...)))
  (let ((plugged nil)) (mail-source-set-common-1 source) (if (or mail-source-plugged plugged) (save-excursion ...)))
  (mail-source-bind-common source (if (or mail-source-plugged plugged) (save-excursion ...)))
  mail-source-fetch((pop :server "pop.gmail.com" :port 995 :user "sdl.web@googlemail.com" :password "pw100") #[(file orig-file) "Â\bÃÄ\b	.?...Å	Æ\"Ç%." [file orig-file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (pop :server "pop.gmail.\x04com" :port 995 :user "sdl.web@googlemail.com" :password "pw100") nnml-active-number] 7])
  nnmail-get-new-mail(nnml nnml-save-nov "/home/leo/GNUS/Mail" nil)
  nnml-request-scan(nil "")
  gnus-request-scan(nil (nnml ""))
  gnus-read-active-file-1((nnml "") nil)
  gnus-read-active-file()
  gnus-group-get-new-news(nil)
  call-interactively(gnus-group-get-new-news)

-- 
.:  Leo  :.  [ sdl.web AT gmail.com ]  .:  [ GPG Key: 9283AA3F ]  :.

       Use the most powerful email client -- http://gnus.org/