FasdUAS 1.101.10 k i I 0perform_mail_action  o 0info O k   r  n o 0SelectedMessages o 0info o 0 themessages theMessages X  k l r! J m  n!" !1  txdl "1  ascr#$ #r")%& %c"''( 'n"%)* )1#%  sndr *o"# 0 thismessage thisMessage (m%&  TEXT &o 0 thissender thisSender$+, +r*5-. -I*3/ .sysooffslongnull/01  psof 0m,-2 2<13  psin 3o./ 0 thissender thisSender .o 0brkpos,45 4Z6678 6l699 9?69:; :o67 0brkpos ;m78 7k<l<<=> =r<M?@ ?c<KAB An<ICD Cl=IE E7=IFG  citm FmAC GlDHH H\DHIJ IoEF 0brkpos JmFG Do<= 0 thissender thisSender BmIJ  TEXT @o 0 thissender thisSender>K KZNlLM LENSNO NoNO 0 thissender thisSender OmORP P" MkVhQQRS RrV_TU TJV[VVW WmVYX X" UnYZ Y1\^  txdl Z1[\  ascrS[ [r`h\] \c`f^_ ^n`d`a `4adb  citm bmbc ao`a 0 thissender thisSender _mde  TEXT ]o 0 thissender thisSender 8koccde dZofg florh h=orij ioop 0brkpos jmpq grukl kcumn mnuop olvq q7vrs  citm rmz| sm} pouv 0 thissender thisSender nm  TEXT lo 0 thissender thisSenderetu trvw vJxxy ymz z@ wn{| {1  txdl |1  ascru} }r~ ~c n 4  citm m o 0 thissender thisSender m  TEXT o 0 thissender thisSender5 l r c n 1  subj o 0 thismessage thisMessage m  TEXT o 0 thissubject thisSubject l l ! remove "Re:", "Fwd:", etc. r J m  n 1  txdl 1  ascr r I .sysooffslongnull  psof m :  psin o 0 thissubject thisSubject o 0colonpos Z l A o 0colonpos m r c n l l 7  citm l [ o 0colonpos m m o 0 thissubject thisSubject m  TEXT o 0 thissubject thisSubject l l 71 remove text between [ and ]; and between ( and ) l KE I can't get these next two lines to work when calling this from Mail l GA but they work when running from ScriptEditor (though I take this l 60 part out of the perform_mail_action subroutine) l A;set thisSubject to removeTextBetween(thisSubject, "[", "]") l A;set thisSubject to removeTextBetween(thisSubject, "(", ")") l O I .sysottosnull**** b b b m  Mail from,  l o 0 thissender thisSender m  , regarding,  o 0 thissubject thisSubject mnull߀w Finder.appP0%P0# (0|@MACSalisr Macintosh HD0H+w Finder.app8廚; CoreServices won3Macintosh HD:System:Library:CoreServices:Finder.app Finder.app Macintosh HD&System/Library/CoreServices/Finder.app/ l 0 thismessage thisMessage o  0 themessages theMessages mnull߀ Mail.app00"(0| emalalisD Macintosh HD0H+ Mail.appMCaF`^ Applicationsa "Macintosh HD:Applications:Mail.appMail.app Macintosh HDApplications/Mail.app/ l l F@ removes any text between "a" and "b" in "s"; returns the result l~~ IC doesn't handle the case where a...b is nested inside another a...b l}} NH (because there's no "last offset of" and I didn't feel like writing one l|| NH (hey, it's the first AppleScript I have written since System 7 days...){ i Izy z&0removetextbetweenremoveTextBetween ox x0s ow w0av ou u0bvy k V k ltsts r Irq r.sysooffslongnullqp p psof oo o0anm n psin ol l0sm ok k0aindexaIndex r'   I%ji j.sysooffslongnulli h  h psof  og g0bfe f psin o !d d0se  oc c0bindexbIndex  l((baba Z(`_ l(3^ F(3 l(+] ?(+ o()\ \0aindexaIndex m)*[[] l.1Z ?.1 o./Y Y0bindexbIndex o/0X X0aindexaIndexZ^ k6} !  l66WVWV!"# "Z6S$%U& $l69'T '?69() (o67S S0aindexaIndex )m78RRT %r<M*+ *c<K,- ,n<I./ .l =I0Q 0l=I1P 17=IO23 O citm 2mACNN 3lDH4M 4\DH56 5oEFL L0aindexaIndex 6mFGKKMPQ /o<=J J0s -mIJI I TEXT +oH H0beforeabeforeAU &rPS78 7mPQ9 9 8oG G0beforeabeforeA#:; :lTTFEFE;<= <ZTs>?D@ >lTYAC AATYBC BoTUB B0bindexbIndex ClUXDA DnUXEF E1VX@ @ leng FoUV? ?0sAC ?r\mGH Gc\kIJ In\iKL Kl ]iM> Ml]iN= N7]i<OP < citm OlaeQ; Q[aeRS Robc: :0bindexbIndex Smcd99; Pmfh88=> Lo\]7 70s Jmij6 6 TEXT Ho5 50afterbafterBD @rpsTU TmpqV V Uo4 40afterbafterB=WX Wltt3232XYZ Yrt{[\ [bty]^ ]btw_` _otu1 10beforeabeforeA `muva a  ^owx0 00afterbafterB \o/ /0sZb. bl||-,-,.`_c+ cl*)*)+ ld( dFef elg' gEhi ho& &0s io% %0a' fl j$ jE kl ko # #0s lo " "0b$(mn ml! ! no oLp po 0s{qrsq 0perform_mail_action &0removetextbetweenremoveTextBetweenrtu 0perform_mail_actionvv 0infot 0info 0 themessages theMessages 0 thismessage thisMessage 0 thissender thisSender  0brkpos 0 thissubject thisSubject  0colonposu 2PXz 0SelectedMessages  kocl  cobj .corecnte********  ascr  txdl  sndr  TEXT  psof  psin .sysooffslongnull  citm  subj .sysottosnull****,EO[l khkv,FO,&EO* EOk5[\[Zk\Zk2&EOaakv,FOl/&EYhY.k[\[Zl\Zi2&EYhOakv,FOk/&EOa,&EOakv,FO*a EOa[\[Zk\Zi2&EYhOaa%a%%j UOP[OY Uswx &0removetextbetweenremoveTextBetweenyy 0s 0a 0bw 0s 0a 0b 0aindexaIndex 0bindexbIndex 0beforeabeforeA 0afterbafterBx 9Va  bool  psof  psin .sysooffslongnull  citm  TEXT  lengh &* EO* EOj &Lk[\[Zk\Zk2&EYEO,[\[Zk\Zi2&EYEO%%EOPYhOP[OY~Oascr ޭ