[REBOL] [mail] poping headers ... only
is it possible to do a read/part on an open POP port? I tried a few things and it seems the protocol always wants to open the hole mail... problem, is downloading a 15MB file on a 56k modem is not worth it... especially if its a mail bomb. I've heard talks about checking headers but am not sure how those issues where answered !? TIA... -MAx -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] [mail] poping headers ... only
Didier's script has worked well for me. http://membres.lycos.fr/didec/rebsite/delete-emails/delete-emails.r You can see an non-Rebol version of this at: http://www.mailwasher.net/ I have used both and prefer Didier's version. I did not try Graham's Cerebus but would expect that it would be another bit of top quality work from Graham. -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: REBOL Mail List Changes
Hi Sabu,
Have been looking at your send patch everthing works fine.
I do have a query though in the function 'sendProperFrom' you do a
hObj/Return-Path: none
Is there a reason for this?
The patch seems to work even if I comment this line out.
Cheers Phil
=== Original Message ===
Hi:
Here is the complete, patched send function.
(There was a small typo in my earlier post)
I hope my email client does not word wrap this at the wrong places.
Note that this is patched from the original send function, not the
one that Ingo has written.
Please let me know if this is the correct way to
handle it as I have tested this only using Qmail.
What is the experience with other servers?
Regards
Sabu Francis
send: func [
Send a message to an address (or block of addresses)
;Note - will also be used with REBOL protocol later.
address [email! block!] An address or block of addresses
message Text of message. First line is subject.
/only Send only one message to multiple addresses
/header Supply your own custom header
header-obj [object!] The header to use
/attach Attach file, files, or [.. [filename data]]
files [file! block!] The files to attach to the message
/subject Set the subject of the message
subj The subject line
/show Show all recipients in the TO field
/local smtp-port content do-send boundary
make-boundary tmp from sendProperFrom
][
make-boundary: does []
do-send: func [port data] [
foreach item reduce data [
if string? item [replace/all item ^/. ^/..]
]
insert port reduce data
]
sendProperFrom: func [ hObj s-port frm ]
[
either get in hObj 'Return-Path
[ do-send s-port [MAIL FROM: hObj/Return-Path ]
hObj/Return-Path: none
]
[do-send s-port [MAIL FROM: frm ] ]
]
if file? files [files: reduce [files]] ; make it a block
if email? address [address: reduce [address]] ; make it a block
message: either string? message [copy message] [mold message]
if not header [ ; Clone system default header
header-obj: make system/standard/email [
subject: any [subj copy/part message any [find message newline 50]]
]
]
if subject [header-obj/subject: subj]
either none? header-obj/from [
if none? header-obj/from:
from: system/user/email
[net-error Email header not set: no from address]
if all [string? system/user/name not empty? system/user/name][
header-obj/from: rejoin [system/user/name from ]
]
][
from: header-obj/from
]
if none? header-obj/to [
header-obj/to: tmp: make string! 20
if show [
foreach email address [repend tmp [email , ]]
clear back back tail tmp
]
]
if none? header-obj/date [header-obj/date: to-idate now]
if attach [
boundary: rejoin [--__REBOL-- system/product
-- system/version -- checksum form now/precise __]
header-obj/MIME-Version: 1.0
header-obj/content-type:
join multipart/mixed; boundary= [{} skip boundary 2 {}]
message: build-attach-body message files boundary
]
;-- Send as an SMTP batch or individually addressed:
smtp-port: open [scheme: 'smtp]
either only [ ; Only one message to multiple addrs
;commented out to handle Return-Path
;do-send smtp-port [MAIL FROM: from ]
sendProperFrom header-Obj smtp-port from
foreach addr address [
if email? addr [
do-send smtp-port [RCPT TO: addr ]
]
]
insert insert message net-utils/export header-obj newline
do-send smtp-port [DATA message]
][
foreach addr address [
if email? addr [
;commented out to handle Return-Path
;do-send smtp-port [MAIL FROM: from ]
sendProperFrom header-Obj smtp-port from
do-send smtp-port [RCPT TO: addr ]
if not show [insert clear header-obj/to addr]
content: rejoin [net-utils/export header-obj newline message]
do-send smtp-port [DATA content]
]
]
]
close smtp-port
]
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] REBOL Mail List Changes
These changes have been made to the REBOL Ecartis list: 1. The list now requires email confirmation on both subscribe and unsubscribe actions. 2. We've disabled the listing of subscribed users to prevent spam abuse. Thanks to Andreas for these suggestions. -Carl Sassenrath REBOL Technologies -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: REBOL Mail List Changes
Hi:
Here is the complete, patched send function.
(There was a small typo in my earlier post)
I hope my email client does not word wrap this at the wrong places.
Note that this is patched from the original send function, not the
one that Ingo has written.
Please let me know if this is the correct way to
handle it as I have tested this only using Qmail.
What is the experience with other servers?
Regards
Sabu Francis
send: func [
Send a message to an address (or block of addresses)
;Note - will also be used with REBOL protocol later.
address [email! block!] An address or block of addresses
message Text of message. First line is subject.
/only Send only one message to multiple addresses
/header Supply your own custom header
header-obj [object!] The header to use
/attach Attach file, files, or [.. [filename data]]
files [file! block!] The files to attach to the message
/subject Set the subject of the message
subj The subject line
/show Show all recipients in the TO field
/local smtp-port content do-send boundary
make-boundary tmp from sendProperFrom
][
make-boundary: does []
do-send: func [port data] [
foreach item reduce data [
if string? item [replace/all item ^/. ^/..]
]
insert port reduce data
]
sendProperFrom: func [ hObj s-port frm ]
[
either get in hObj 'Return-Path
[ do-send s-port [MAIL FROM: hObj/Return-Path ]
hObj/Return-Path: none
]
[do-send s-port [MAIL FROM: frm ] ]
]
if file? files [files: reduce [files]] ; make it a block
if email? address [address: reduce [address]] ; make it a block
message: either string? message [copy message] [mold message]
if not header [ ; Clone system default header
header-obj: make system/standard/email [
subject: any [subj copy/part message any [find message newline 50]]
]
]
if subject [header-obj/subject: subj]
either none? header-obj/from [
if none? header-obj/from:
from: system/user/email
[net-error Email header not set: no from address]
if all [string? system/user/name not empty? system/user/name][
header-obj/from: rejoin [system/user/name from ]
]
][
from: header-obj/from
]
if none? header-obj/to [
header-obj/to: tmp: make string! 20
if show [
foreach email address [repend tmp [email , ]]
clear back back tail tmp
]
]
if none? header-obj/date [header-obj/date: to-idate now]
if attach [
boundary: rejoin [--__REBOL-- system/product
-- system/version -- checksum form now/precise __]
header-obj/MIME-Version: 1.0
header-obj/content-type:
join multipart/mixed; boundary= [{} skip boundary 2 {}]
message: build-attach-body message files boundary
]
;-- Send as an SMTP batch or individually addressed:
smtp-port: open [scheme: 'smtp]
either only [ ; Only one message to multiple addrs
;commented out to handle Return-Path
;do-send smtp-port [MAIL FROM: from ]
sendProperFrom header-Obj smtp-port from
foreach addr address [
if email? addr [
do-send smtp-port [RCPT TO: addr ]
]
]
insert insert message net-utils/export header-obj newline
do-send smtp-port [DATA message]
][
foreach addr address [
if email? addr [
;commented out to handle Return-Path
;do-send smtp-port [MAIL FROM: from ]
sendProperFrom header-Obj smtp-port from
do-send smtp-port [RCPT TO: addr ]
if not show [insert clear header-obj/to addr]
content: rejoin [net-utils/export header-obj newline message]
do-send smtp-port [DATA content]
]
]
]
close smtp-port
]
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] complete rebol mail client ?
Hi, Does anybody have a fully functional mail client written in REBOL which is available as share ware, open source or anything of the like? It should have the usual features like mailboxes, automatic FW: RE: and stuff like that... I want to replace outlook... And I have enough things to do already... If I already had a solid base, I wouldn't mind hacking in the features I need. Thanks in advance ciao! -MAx - Steel project coordinator http://www.rebol.it/~steel - -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: complete rebol mail client ?
Maxim Olivier-Adlhoch wrote: Hi, Does anybody have a fully functional mail client written in REBOL which is available as share ware, open source or anything of the like? It should have the usual features like mailboxes, automatic FW: RE: and stuff like that... I want to replace outlook... And I have enough things to do already... If I already had a solid base, I wouldn't mind hacking in the features I need. Thanks in advance I am not sure there is something robust enough for you to continue with, but I would suggest you going with Mozilla 1.5 RC2 - good enough - emails stored in plain text format, fast enough, feature complete, contains spam filtering. http://www.mozilla.org or there is stripped down version if you don't want to download full browser ... but hey - IE is crap in comparison to Mozilla for quite some time already ... http://www.mozilla.org/projects/thunderbird/ -pekr- ciao! -MAx - Steel project coordinator http://www.rebol.it/~steel - -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: complete rebol mail client ?
Hi Maxim, MOA Does anybody have a fully functional mail client written in MOA REBOL which is available as share ware, open source or MOA anything of the like? Phil Bevan's is by far the most complete one I have seen. You can get at if from his Reb site, but I'm not sure what the latest version is. -- Gregg -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: complete rebol mail client ?
Hello Maxim, Try The Bat! - it has nothing common with Rebol, but it's small, works, and don't run attachments. http://www.ritlabs.com/en/products/thebat/ Tuesday, October 7, 2003, 4:51:38 PM, you wrote: MOA Hi, MOA Does anybody have a fully functional mail client written in MOA REBOL which is available as share ware, open source or anything MOA of the like? MOA It should have the usual features like mailboxes, automatic MOA FW: RE: and stuff like that... MOA I want to replace outlook... And I have enough things to MOA do already... If I already had a solid base, I wouldn't mind MOA hacking in the features I need. MOA Thanks in advance MOA ciao! MOA -MAx MOA - MOA Steel project coordinator MOA http://www.rebol.it/~steel MOA - -- Best regards, George Bashilovmailto:[EMAIL PROTECTED] -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Re: complete rebol mail client ?
Hi, FYI the latest version is 3.0.23 (just uploaded). Sorry the docs are way out of date just not enough hours in the day. The code has been accumulated over a number of years so its a bit ugly (OK vey). The source is freeware and until recently was on the IOS server but since upgrading to WinXP I havent reloaded IOS on my machine. (The version on my Rebsite is a compressed version). Feel free to hack away to implement the features you need !! Cheers Phil === Original Message === Hi Maxim, MOA Does anybody have a fully functional mail client written in MOA REBOL which is available as share ware, open source or MOA anything of the like? Phil Bevan's is by far the most complete one I have seen. You can get at if from his Reb site, but I'm not sure what the latest version is. -- Gregg -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject. -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
[REBOL] Mail delays - was Re: Sorry about my mails
Some of my mails, however, are appearing here up to five days late! There is trouble with my ISP's email server. Don't think that's the problem. Mail is being held up at cobalt.reboltech.com for 4-5 days on occasion. Holger may wish to comment. -- Graham Chiu -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Mail with no password?
Hi how is it possible to read emails from pop3 account without pasword. In outlook settings I've one account just with username and without password. I'd like to read that account using REBOL but it says ERR - invalid password. Can anybody help me? Thanks, bolek --- Odchoz zprva neobsahuje viry. Zkontrolovno antivirovm systmem AVG (http://www.grisoft.cz). Verze: 6.0.350 / Virov bze: 196 - datum vydn: 17.4.2002 -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] mail weirdness
Hi everyone, Am I the only obvserving extremely slow mail tranfers with the rebol list... I just received a mail I sent at 8h00 AM (it is now 3h30 PM!) I've also received some mails in the wrong order... just wondering?! -MAx -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] mail help, revisited
mail help, revisited
here is ye olde modified mailboxsave.r. It doesn't work as it is--
see any glaring mistakes (especially in the while loop?)
thanks,
-tom
#!/usr/local/bin/rebol -cs
REBOL [
Title: "Save to Mailbox File"
File: %rebmutt.r
Date: 10-Sep-1999
Purpose: {
This example reads email and appends it to a standard
mailbox file (which can be read by most email apps).
}
Note: {
Set the remove-mail flag true if you want to delete
the email from your server as it is saved.
}
]
;change-dir %/home/thisdir/thatdir
remove-mail: false
days: [Mon Tue Wed Thu Fri Sat Sun]
months: [Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec]
pad: [#"0" ""]
spc: #" "
inbox: open pop:pop.pop.com
print [length? inbox "messages"]
when: now
while [not tail? inbox] [
mail: import-email message: first inbox
if [EMAIL PROTECTED] = mail/to [file: %rebol.tml]
if [EMAIL PROTECTED] = mail/to [file: %me.tml]
write/append file rejoin [
"From " mail/from spc
pick days when/weekday spc
pick months when/month spc
pick pad when/day 10 when/day spc
pick pad when/time 10:00 when/time spc
when/year
newline first inbox newline
]
either remove-mail [remove inbox][inbox: next inbox]
]
close inbox
[REBOL] mail help? Re:
t wrote: I'm thinking that I can change the value of "file" conditionally.. if mail/to = "address@com" file: thisfile would I put that in a block? if address@com = mail/from [file: address_com_file] where in the while loop would it go? After this: mail: import-email message: first inbox am I even on the right track? Very close. I hope REBOL's around for years and years--might take me that long to "get it" ! Me too! Andrew Martin Working too hard... ICQ: 26227169 http://members.xoom.com/AndrewMartin/ --
[REBOL] Mail
Hello all... I'm having this problem: I can access my e-mail server without a proxy server, but if i try to access it with the "help" of my proxy server then i can't reach it (it is not the objective of the proxy server). But if I want to access web pages, the only way to do that is using the proxy server. My problem is that when we configure the proxy server in REBOL he assumes that the proxy should be used also to access the mail server. Is there a way to correct this excluding the hipothesis of doing a set-net every time i want to access the web or the mail?! -- Signout: Zé Matos -- A frase imediatamente abaixo desta é verdadeira! A frase imediatamente acima desta é falsa! --
[REBOL] Mail Re:
Howdy Matos: You can specify a proxy for each individual protocol. I believe the following should work for you: (In your user.r, or at the top of your script:) set-net [[EMAIL PROTECTED] mail.host.dom] system/schemes/http/proxy/host: "your.proxy.host" system/schemes/http/proxy/port-id: some-number (Of course, substituting in all your information..) You probably want ftp and others too. I believe you can also just set a by-pass for individual protocols as well -- which might be a cleaner way to do what you want... -jeff Hello all... I'm having this problem: I can access my e-mail server without a proxy se= rver, but if i try to access it with the "help" of my proxy server then i can't reach it (it is not the objective = of the proxy server). But if I want to access web pages, the only way to do that is using the proxy server. My problem is that when we configure the proxy server in REBOL he assumes= that the proxy should be used also to access the mail server. Is there a way to correct this excluding the hipo= thesis of doing a set-net every time i want to access the web or the mail?!
[REBOL] Mail/Proxy service Re:
On Sat, 29 Jan 2000, you wrote: I've found I can't use 'SEND from REBOL anymore. My setup refers to a local machine that is the proxy/mail server. This used to work, but now I'm told [...] This sounds like the SMTP server is not responding correctly. Please try again with "trace/net on" and send me the output, along with your network configuration (user.r), and I will have a look. Send it directly to "[EMAIL PROTECTED]", please. If you are using a SOCKS proxy in REBOL and the SMTP server is on "your" side of the proxy (i.e. reachable without going through the proxy) then try adding the server to the "bypass" list in REBOL (to system/schemes/default/proxy/bypass). -- Holger Kruse [EMAIL PROTECTED]
[REBOL] mail question Re:
Hi Tom,
The short answer is, you use WRITE/APPEND instead of PRINT.
Here is the function I use to download the mail. It's really
primitive, but might give you some more ideas.
readmail: func [
{read mail from POP server}
/bak "save to a backup file with all header info"
/local mail url message bakfile emfile mail-directory
][
if not mail-directory: select directories 'mail [
mail-directory: %""
]
prin "Password: "
url: rejoin [
pop://
system/user/email/user
":" input/hide; get the user's the password
"@" system/schemes/pop/host
]
bakfile: join mail-directory %email.bak
emfile: join mail-directory %email.em
mail: open url
while [ not tail? mail ] [
message: first mail
if bak [
write/append bakfile rejoin [
"^(page)^/"
message
]
]
message: import-email message
write/append emfile rejoin [
"^(page)" message/subject
"^/" message/from
"^/" message/date
either in message 'x-mailer [join "^/" message/x-mailer][""]
either all [in message 'cc message/cc] [join "^/" message/cc][""]
"^/^/" message/content
"^/"
]
remove mail
]
close mail
]
Cheers,
Eric
[REBOL] Mail/Proxy service
I've found I can't use 'SEND from REBOL anymore. My setup refers to a local machine that is the proxy/mail server. This used to work, but now I'm told ** Script Error: pick expected series argument of type: series money date time object port tuple any-function. ** Where: pick server-said 4 If I use the IPs instead of the hostname, it times out instead (which it did before). HTTP is fine in either case. Now, I haven't tried email from my local machine in awhile, and some other things were switched back and forth, but this setup did work once, and I think everything else is now the same as it ever was. I'm just now sure why it's failing now. -Ted.
[REBOL] mail/smtp issue
I seem to have a problem sending emails from within a script.however if I fire up Rebol on its own I have no problems..I am receiving the following error message; ** User Error: No network server for smtp is specified. ** Where: smtp-port: open [scheme: 'smtp] if email? However if I run the same command from within Rebol things work. There is certainly smtp settings in the user.r file. Any ideas re Francois
[REBOL] mail/smtp issue Re:
[EMAIL PROTECTED] wrote: I seem to have a problem sending emails from within a script.however if I fire up Rebol on its own I have no problems..I am receiving the following error message; ** User Error: No network server for smtp is specified. ** Where: smtp-port: open [scheme: 'smtp] if email? Try: "source send", maybe it will be illustrative for you, what does 'send function do ... help set-net Network setup. All values after default are optional. Words OK for server names. Arguments: settings -- [email-addr default-server pop-server proxy-server proxy-port-id proxy-type] (block) anyway, could you provide us your script? -pekr- However if I run the same command from within Rebol things work. There is certainly smtp settings in the user.r file. Any ideas re Francois
[REBOL] mail/smtp issue Re:(2)
Thanks - I have it working now, just needed to either set the home directory for rebol or define the smtp settings using net-set Cheers Francois -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Friday, October 22, 1999 2:37 PM To: [EMAIL PROTECTED] Subject: [REBOL] mail/smtp issue Re: [EMAIL PROTECTED] wrote: I seem to have a problem sending emails from within a script.however if I fire up Rebol on its own I have no problems..I am receiving the following error message; ** User Error: No network server for smtp is specified. ** Where: smtp-port: open [scheme: 'smtp] if email? Try: "source send", maybe it will be illustrative for you, what does 'send function do ... help set-net Network setup. All values after default are optional. Words OK for server names. Arguments: settings -- [email-addr default-server pop-server proxy-server proxy-port-id proxy-type] (block) anyway, could you provide us your script? -pekr- However if I run the same command from within Rebol things work. There is certainly smtp settings in the user.r file. Any ideas re Francois
[REBOL] mail/smtp issue Re:
OK - I need to use the set-net function..however is there away to have Rebol use the user.r file. I am running a script from cron under linux. Cheers Francois -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Friday, October 22, 1999 2:20 PM To: [EMAIL PROTECTED] Subject: [REBOL] mail/smtp issue I seem to have a problem sending emails from within a script.however if I fire up Rebol on its own I have no problems..I am receiving the following error message; ** User Error: No network server for smtp is specified. ** Where: smtp-port: open [scheme: 'smtp] if email? However if I run the same command from within Rebol things work. There is certainly smtp settings in the user.r file. Any ideas re Francois
[REBOL] Mail headers being stripped by SELMA (I think)
I have noticed that in this list (the only one that I'm subscribed to that uses SELMA to my knowledge) the To: and From: headers seem to have data stripped from them. For example, whenever I send an email, the From: header shows "Chris Elliott [EMAIL PROTECTED]" (minus the quotation marks, of course...). Some where between when I send the mail out, and when I get it back from SELMA, the From: header is stripped down to just the email address. Is there anyway to get it to stop doing this? (I remember people better from their names than their email addresses, as some mail from home and work where the addresses are different...) Is there a user option that I can send directly to the SELMA program to change that 'feature' for me, or is it hardcoded into SELMA to strip that stuff? (If hard coded, can it be changed to either not strip it, or optionally strip it/not strip it?) Pax -- Member: Team AMIGA --} WatchDog Fingerprint: 2C 8A 03 3C D6 D3 32 7F (Chris Elliott) 66 0F 9B 9F 03 77 1D 85 PGP Key ID: A6A79259 tsb"Ford, you're turning into a penguin. Stop it." --Arthur Dent
