Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: POP and SMTP servers for yahoo accounts?

From: deadzaphod:flyingparty at: 28-Aug-2001 6:22

I just took a look through the POP RFC (1725) to see how to deal with this. Here's a couple of functions to help (there's another feature that could be used for detected whether or not you already have a given message, but it would be more complex to add) ; like 'first on a pop port, but only gets the specified number of lines after the header pop-top: func [ port lines ] [ insert port/sub-port rejoin [ "TOP " pick port/locals/msg-nums port/state/index + 1 " " lines ] net-utils/confirm port/sub-port [ none "+OK" ] port/handler/read-til-dot port make string! 1024 ] ; the same as [ length? first port ] for a pop port, but doesn't download pop-size: func [ port ][ pick (extract next port/locals/sizes 2) port/state/index + 1 ]