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

[REBOL] Debase, path! compare and import-email

From: mario::cassani::icl::com at: 14-Nov-2001 16:17

Hallo Rebolers, I am working with Brett's mime handling scripts trying to save attachments with /View 1.2.1. Some scripts claim that the 'debase is buggy in this release so I wondered why this hasn't been fixed/released, yet o, at least, an old 1.2.0 archive wasn't left on the RT site (the truth is that I really want to put my hands on the next version/release :P ). At last I used manipulate-emails.r but I still have one problem: 1) How can I compare two path!s? to-lit-path mime-type == 'text/plain gives this message: ** Script Error: text has no value ** Near: part-name: join "default" mime-file-ext part-mime to better understand a piece of the script follows... 8<---------------------------------------------------------- do %manipulate-emails.r mime-file-ext: func [mime-type] [ extension: ".bin" if to-lit-path mime-type == 'text/plain [extension: ".txt"] return extension ] change-dir %/d/rebol/programs/develop/ mailfile: %/D/Archivio/MailArchive/2001/11/14/Mail/ICL/0002.txt mmsg: import-email msg: read mailfile ; dump of a "real" message mime-contents: extract-mime-multipart-msg mmsg foreach [part-mime part-name part-data] mime-contents [ if none? part-name [ part-name: join "default" mime-file-ext part-mime ] print rejoin [{Type: } part-mime newline {Name: "} part-name {"}] save join %./ part-name part-data ] ---------------------------------------------------------->8 I have a doubt: isn't the 'import-email slow? Maybe some mail handling should be made on the "original" message (msg)? Thanks for any suggestion/comment Mario