The commercial mail server i connect to sends a simple +OK after a USER. It doesn't have any trailing characters, so this match from the pop3.scm fetch proc fails:
    (match (string-match "(\\+OK|\\-ERR) (.*)" ln)

I changed it (somewhat inexpertly) to:
    (match (string-match "(\\+OK|\\-ERR) *(.*)" ln)

and it works.



_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users

Reply via email to