Replying to the list in Eudora
Replying to the list in Eudora
- Subject: Replying to the list in Eudora
- From: John Delacour <email@hidden>
- Date: Sat, 3 Aug 2002 00:53:39 +0100
Apple list owners seem to be very rare in believing that a Reply-To
header is undesirable, but that's their problem. I happen to find it
a very silly policy.
For users of Eudora, here is a script that will allow you to choose
which recipient to have in your To field. Unfortunately another
silly policy of the list owners is to convert QP to 8-bit so that
people like me at Demon.co.uk can't receive the messages properly if
they contain high ascii characters. This means that I can't send
this script with the raw codes, so anyone who wants the raw code
without the "tell Eudora" bits will have to compile the script in
Smile. Others will need to uncomment the tell blocks.
I'm getting a low number as the first item of <options> which I can't
account for, so I've added a line to zap the first item in the list,
but it may be something peculiar with my set-up. I can't see where
it's coming from. If you comment the line after the (**) comment, you
may see what I mean.
The script belongs in the Eudora Stuff/Scripts/ folder and not in the
user's Eudora Folder. If you use a script regularly, add it to your
Eudora toolbar by command clicking between two items and then
choosing the script from the Scripts menu. The best arrangement for
the toolbar is vertical, names only with buttons set to 100, 18
(Eudora Extras/Esoteric settings must be in Eudora Stuff/). Then you
can just click to run the script or use a function key to run it.
Remember that new scripts will not be available until you relaunch
Eudora, but existing scripts can be edited once Eudora knows they're
there.
(* ":Eudora Application Folder:Eudora Stuff:Scripts:Reply To..." *)
--tell application "Eudora"
if outgoing of the front message then return "Can't go on"
set mAll to the whole text of the front message
set AppleScript's text item delimiters to (return & return)
set header to mAll's first text item
set {mAll, options} to {"", {}}
set dataLines to {"to", "from", "reply-to", "cc"}
repeat with p in header's paragraphs
set p to p as string
if p's first word is in dataLines then
set AppleScript's text item delimiters to {":"}
set adr to p's second text item
set AppleScript's text item delimiters to {""}
repeat while adr begins with space
set adr to text 2 through -1 of adr
end repeat
if the adr is not in options then
set end of options to adr
end if
end if
end repeat
(* Next line copes with what appears to be a bug *)
set the options to items 2 through -1 of the options
--end tell
set ppt to "Who do you want to reply to? Use cmd key for 2+"
choose from list options with prompt ppt with multiple selections allowed
tell me to set the choice to the result
if the choice is in {false, ""} then
set AppleScript's text item delimiters to {""}
return "Cancelled"
end if
set AppleScript's text item delimiters to {", "}
set toField to "" & the choice
set AppleScript's text item delimiters to {""}
--tell application "Eudora"
set mReply to reply message "" with everyone
set mReply's field "cc" to ""
set mReply's field "to" to toField
open mReply
--end tell
(* 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.
| References: | |
| | >Re: Why root? (From: Christopher Nebel <email@hidden>) |