Re: Eudora mail folders and "" root (JD?)
Re: Eudora mail folders and "" root (JD?)
- Subject: Re: Eudora mail folders and "" root (JD?)
- From: John Delacour <email@hidden>
- Date: Sun, 7 Sep 2003 09:25:41 +0100
- Mac-eudora-version: 6.1a2
At 9:15 am -0700 6/9/03, Walter Ian Kaye wrote:
With an IMAP mailbox window frontmost, I can do this:
set x to name of window 1
file of mailbox x of mail folder "::IMAP Folder:<<Dominant>>:"
--> file "OSX:Users:boo:Documents:Eudora Folder:IMAP
Folder:<<Dominant>>:Inbox"
But it's still hard to determine that that's where "Inbox" is, since
the reference Eudora gives is bogus. Hard-coding "::IMAP
Folder:<<Dominant>>:" is making a large assumption. (Maybe I can
make it a user preference?)
It's not clear to me just what you need to do and how general you
want your script to be. There are ways, however hackish, to do
whatever it is and Eudora can provide you with all the data -- for
example:
tell app "Eudora"
set _nnf to file of nickname file 0
set _imapf to (do shell script "perl -e '
$_ = qq~" & _nnf & "~;s~[^:]+$~~;print'") & setting 11320 & ":"
end
--> "dxp:Users:jd:Documents:Eudora Folder:IMAP Folder:"
tell application "Eudora"
set w to name of window 1 as Unicode text
if setting 32628 is not "%p (%p)" then return beep
set ls to do shell script "perl -e '$s =qq~" & w & "~;
@ls = split /\\(/, $s;
for (@ls) {chop} ; print join $/, @ls ;'"
set {_mbx, _personality} to paragraphs of ls
try
name of personality _personality
on error
return "Not an IMAP mailbox"
end try
{_mbx, _personality}
end tell
etc.
But what's needed is for the aete to be enhanced to do the thing properly.
JD
.
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.