[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
