Re: pop3-read-response

[Adrian Lanz <lanz@wsl.ch>]

>>>>> On Sat, 04 Jun 2011 00:08:35 +0200
>>>>> Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

    > Daniel Dehennin <daniel.dehennin@baby-gnu.org> writes:
    >> Here is the output
    >> 
    >> #v+
    >> 1 IMAP4 IMAP4rev1 ACL QUOTA LITERAL+ NAMESPACE UIDPLUS CHILDREN
    >> BINARY UNSELECT SORT CATENATE URLAUTH LANGUAGE ESEARCH ESORT
    >> THREAD=ORDEREDSUBJECT THREAD=REFERENCES ENABLE CONTEXT=SEARCH
    >> CONTEXT=SORT WITHIN SASL-IR SEARCHRES XSENDER X-NETSCAPE
    >> XSERVERINFO X-SUN-SORT ANNOTATE-EXPERIMENT-1 X-UNAUTHENTICATE
    >> X-SUN-IMAP X-ANNOTATEMORE XUM1 AUTH=PLAIN

    > Uhmn.  That's the contents of an IMAP buffer.  How did that end up
    > in the POP buffer?


[...]

I use the following hack to make pop3.el work with my ISP (yes, it
offers no IMAP). I consider it as a hack. Any comments, recommendations?

*** /usr/share/emacs/24.0.50/lisp/gnus/pop3.el.gz
--- /emacs/lisp/gnus/pop3.el
***************
*** 313,318 ****
--- 313,321 ----
  	     (lambda (capabilities)
  	       (and (string-match "\\bSTLS\\b" capabilities)
  		    "STLS\r\n"))))
+ 
+       (sit-for 1)
+ 
        (when result
  	(let ((response (plist-get (cdr result) :greeting)))
  	  (setq pop3-timestamp