Eudora Settings (was Re: (no subject))
Eudora Settings (was Re: (no subject))
- Subject: Eudora Settings (was Re: (no subject))
- From: John Delacour <email@hidden>
- Date: Thu, 10 Apr 2003 18:24:21 +0100
- Mac-eudora-version: 6.0a14
At 7:30 am -0700 10/4/03, Paul Berkowitz wrote:
> <x-eudora-setting:260>
Ohmigod, what a way to design a program...
It's a terrific way to design a program, because every single
addition to the program is immediately scriptable. If Steve Dorner
were to add the ability to change header colors, for example, this
would be given a setting number and users would immediately be able
to script it without waiting two years for someone to rewrite an aete
dictionary. No wild new syntax to learn either -- just set setting x
to y.
It is quite clear from comments like this from you and John Welchm,
both Entourage users, that neither of you have any understanding of
Eudora.
If I want to find out which settings apply to certain options, I can
run a script to search for a string or regular expressioni n the
settings list and have the answer before you have even got your
entourage dictionary displayed, let alone found the dictionary entry.
So when you understand Eudora and have the slightest interest in it
your comments might have some value.
For users of Eudora, the menu script referrred so is as follows. You
type a regular expression in the dialog and Eudora displays a message
with all matching settings. The file "x-eudora-settings.txt" must be
in Eudora Folder.
(* Toolbar button script to search for geek strings *)
tell application "Eudora"
set my text item delimiters to {":"}
set f to file of nickname file 0
set f to "" & text items 1 through -2 of ("" & f) & ":"
set XEStxt to POSIX path of f & "x-eudora-settings.txt"
set my text item delimiters to {""}
end tell
set f to "/tmp/junk.txt"
set ppt to "
Search 'x-eudora-settings.txt' for ..."
set dd to display dialog ppt default answer "" with icon 1001
set s to dd's text returned
set my text item delimiters to "\\"
set ls to text items of s
set my text item delimiters to "\\\\"
set s to "" & ls
set my text item delimiters to ""
do shell script "perl -e '$searchstring = qq~" & s & "~;
$fout = qq~" & f & "~ ;
$f = q~" & XEStxt & "~ ;
$error = qq~$/Can\\047t find file $f$/$/~ ;
sysopen F, $f, O_RDONLY ;
sysread F, $_, 1000 ;
$/ = /(\\015\\012|\\015|\\012)/ ? $1: qq~\\n~;
open F, $f or die $error;
open FOUT, qq~>$fout~ ;
$s = 0 ;
print FOUT qq~Key COMMAND-D to delete$/$/~ ;
for (<F>) {
/$searchstring/i and print FOUT qq~$_$/~ ;
}'"
set s to read POSIX file f
if s is "" then return
tell application "Eudora"
activate
make message at end of mailbox 2
set body of message "" to s
end tell
_______________________________________________
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.