@@ If you're trying to install this on a pre-1.8.1p9 game, you brought this flashing ANSI on yourself. :P
think if(cand(numversion(),gte(numversion(),1008001009)),Beginning installation...,ansi(hgfu,THIS SYSTEM REQUIRES AT LEAST PENNMUSH 1.8.1p9 IN ORDER TO WORK CORRECTLY. YOU APPEAR TO BE USING AN EARLIER VERSION. IT'S HIGHLY RECOMMENDED THAT YOU UPGRADE YOUR COPY OF PENNMUSH BEFORE YOU INSTALL OR USE THIS CODE.))
  
  
@desc %vb=[repeat(=,78)]%r[iter(lattr(me/info`*),rest(%i0,`) - [u(%i0)],,%r)]%r[repeat(-,78)]%rFor more info, see HELP MAIL VERSION and HELP MAIL CREDITS%r[repeat(=,78)]
&INFO`VERSION %vb=2.0
  
&config`db_prefix %vb=A string prefixed to the name of the SQL tables used. The default is 'mm_'.
&config`db_prefix`onchange %vb=set(%!,vp:[sqlescape(%0)])[iter(%va %vc %vd,set(%i0,VP:%vp))]
&en`timeout-set %vc=Timeout for BB '%0' [switch(%1,0,cleared,set to [squish(timestring(%1))])].
&en`not-timestring %vc='%0' is not a valid timestring.
&en`connect-writing %vc=You are currently writing a +mail message. Type +PROOF to see it.
&en`deleted-bb %vc=Messages deleted from BB '%0'.
&en`deleted-bb-noforce %vc=You cannot delete messages from a bulletin board unless you use +DELETE/FORCE (or +EXPUNGE) <bb> <range>.
&en`bbheader-new-default %vc=BB Header for '%0' reset.
&en`bbheader-new-arb %vc=BB Header for '%0' set to: %1

&en`bbadmin %vc=You set the admin lock for '%0' to: %1
&en`lock-fail-empty %vc=You can't set the lock to the empty string. Set it to 0 if you want noone to pass it.

&en`ignore-start %vc=You start ignoring the '%0' BB.
&en`ignore-end %vc=You are no longer ignoring the '%0' BB.
&en`ignore-none %vc=You aren't ignoring any bulletin boards at present.
&en`ignore-list %vc=You are currently ignoring the following BBs: %0

&en`config-one %vc=Config option '%0': %1%r%2
&en`no-such-config %vc=There is no config option with that name.
&en`config-all %vc=Type +MAIL/CONFIG <option> for more info on any option:
&en`config-invalid %vc=That is not a valid %0.
&en`config-changed %vc=Value set.
  
&fun.format-names %vb=localize(squish(iter(setq(0,lwho(switch(pmatch(%1),#-*,%vz,#$)))%0,switch(%i0,#*:*,if(pmatch(%i0),if(member(%q0,pmatch(%i0)),ansi(h,ufun(fun.propername,%i0)),ufun(fun.propername,%i0)),ufun(%vb/config`purgedname`value,%i0)),ufun(config`bbformat`value,ufun(fun.is-bb,%i0))))))
  
&fun.valid-bb %vb=cand(valid(attrname,%0),regmatch(%0,^\[0-9a-zA-Z_-\]\{2\,14\}$),not(isint(%0)))
  
&fun.bbname-to-num %vb=default(%vd/bb`id`[regediti(%0,^(bb:)+,)],if(hasattr(%vd,bb`id->name`%0),%0,-1))
&FUN.IS-BB %vb=default(%vd/bb`name`[regediti(%0,^(bb:)+,)],%vd/bb`id->name`%0,)
  
&FUN.CAN-WRITE-BB %vb=cand(member(llocks(%vd),USER:BB-WRITE-[ufun(fun.bbname-to-num,%1)]),elock(%vd/BB-WRITE-[ufun(fun.bbname-to-num,%1)],%0))
  
&FUN.CAN-NOTIFY-BB %vb=cand(member(llocks(%vd),USER:BB-NOTIFY-[ufun(fun.bbname-to-num,%1)]),elock(%vd/BB-NOTIFY-[ufun(fun.bbname-to-num,%1)],%0))
  
&FUN.IS-BB-ADMIN %vb=cand(member(llocks(%vd),USER:BB-ADMIN-[ufun(fun.bbname-to-num,%1)]),elock(%vd/BB-ADMIN-[ufun(fun.bbname-to-num,%1)],%0))
  
  
&fun.checklocks %vb=localize(null(iter(elements(ufun(fun.clearregs)%0,1,setr(x,ufun(%vb/beep))),if(elock(##/mail,%1),setq(0,%q0 ##),setq(1,%q1 ##)[if(cand(hasattrpval(##,mailfailure),strlen(setr(3,ufun(##/mailfailure)))),setq(2,%r[ufun(tag)][ufun(msg,mailfailure,ufun(fun.propername,##),%q3)]))]))[iter(elements(%0,2,%qx),if(ufun(%vb/fun.can-write-bb,%1,%i0),setq(0,%q0 %i0),setq(1,%q1 %i0)))])[setunion(%q0,)]%qx[setunion(%q1,)]%qx[trimpenn(%q2,%r,r)])

&fun.parseaddr %vb=localize(null(iter(edit(ufun(fun.clearregs)%0,setr(x,ufun(%vb/beep)),),switch(%i0,player:*,if(setr(1,ufun(fun.parseaddr-player,%i0)),setq(P,%q1 %qp),setq(e,%qe %i0)),bb:*,if(gt(setr(1,ufun(%vb/fun.parseaddr-bb,%i0)),-1),setq(B,%q1 %qb),setq(e,%qe %i0)),mg:*,if(ufun(fun.parseaddr-mg,%i0,%2),,setq(e,%i0 %qe)),switch(1,gt(setr(1,ufun(fun.parseaddr-bb,%i0)),-1),setq(b,%q1 %qb),ufun(fun.parseaddr-mg,%i0,%2),,t(setr(1,ufun(fun.parseaddr-player,%i0))),setq(p,%q1 %qp),setq(e,%qe %i0))))[switch(%qm,,,setq(m,ufun(fun.parseaddr,setunion(iter(%qm,ufun(fun.expand-mg,%i0,%1)),),%1,1)))])[setunion(%qp,elements(%qm,1,%qx))]%qx[setunion(%qb,elements(%qm,2,%qx))]%qx%qe)
! 
  
&fun.parseaddr-bb %vb=ufun(%vb/fun.bbname-to-num,%0)
&fun.format-message %vb=localize(repeat(=,78)%r[switch(ufun(fun.clearregs)%0,-1,switch(%3,*p*,Mail Message In Progress,*s*,Sent Message,Unknown Message),Mail Message [switch(%1,,,ufun(fun.format-name-noansi,%1)%b)]%0)] (Message ID #%2)[switch(setinter(%3,p n e),,,%b%b%b%b---[iter(edit(#$,p,PROOF,e,EXAMINE,n,NEW),##,,\,%b)]---)]%r[ljust(FROM:,9)][ufun(fun.format-names,%4,%:)] - [convsecs(%5)]%r[ljust(SUBJECT:,9)]%6%r[ljust(TO:,9)][wrap(ufun(fun.format-names,%7,%:),69,69,%r[space(9)])]%r[ljust(ljust(MESSAGE:,9),78,-)]%r[ulocal(fun.format-message-body,%8,%4,member(%3,e))]%r[if(strlen(%9),%r[iter(%9,ansi(n,<Forwarded message originally by [ufun(fun.format-name-noansi,elements(%i0,2,^))] on [timefmt($d-$b-$Y,elements(%i0,3,^))][if(member(%3,e),%b\(#[elements(%i0,1,^)]\))]>)%r[ulocal(fun.format-message-body,rest(rest(rest(%i0,^),^),^),elements(%i0,2,^),member(%3,e))]%r<End of Forwarded Message>,ufun(%vb/beep),%r%r)]%r)][ansi(n,repeat(=,78))])
  
&fun.range %vb=localize(ufun(fun.clearregs)[setq(e,1)][setq(9,switch(%0,#*:*,sql(SELECT `%vpinbox`.`id` FROM `%vpinbox` INNER JOIN `%vpmail` ON `%vpinbox`.`id`=`%vpmail`.`id` WHERE `%vpinbox`.`who`='%0' ORDER BY `%vpmail`.`date`),sql(SELECT `%vpbbinbox`.`id` FROM `%vpbbinbox` INNER JOIN `%vpmail` ON `%vpbbinbox`.`id`=`%vpmail`.`id` WHERE `%vpbbinbox`.`bbcode`='[setr(b,ufun(%vb/fun.bbname-to-num,%0))]' ORDER BY `%vpmail`.`date`)))][switch(0,strlen(%q9),0|no-messages-[switch(%0,#*:*,switch(%0,%1,you,player),bb)]|%0,setq(r,iter(%2,ufun(fun.range-sub,%i0,%q9,words(%q9),switch(%0,#*:*,player,bb),%1),|,%bOR%b))[t(%qe)],0|[rest(%qe)],words(setr(r,sql(SELECT `%vpmail`.`id` FROM `%vpmail` INNER JOIN [switch(%0,#*:*,`%vpinbox` ON `%vpinbox`.`id`,`%vpbbinbox` ON `%vpbbinbox`.`id`)] = `%vpmail`.`id` WHERE [switch(%qr,,,\(%qr\) AND)] `%vpmail`.`id` IN\([iter(%q9,'##',,\,)]\) AND [switch(%0,#*:*,`%vpinbox`.`who`='%0',`%vpbbinbox`.`bbcode`='%qb')] ORDER BY `%vpmail`.`date`  ))),0|none-in-range,1|[setr(r,sql(SELECT `id` FROM `%vpmail` WHERE `id` IN\([iter(%qr,'##',,\,)]\) ORDER BY `date`))]|[sort(iter(%qr,member(%q9,##)),n)])])
  
&fun.range-sub %vb=iter(setq(a,,s,,d,,n,,m,,t,,u,)%0,if(%qe,switch(%i0,*=*,ufun(fun.range-sub-equals,before(%i0,=),after(%i0,=),%3,%4),if(regmatch(%i0,^(\[0-9\]+|\[0-9\]*-\[0-9\]*)$),setq(n,%qn [ufun(fun.range-numbers,%i0,%2)]),setq(e,#-1 bad-range-spec|%i0)))))([switch(squish(setr(t,%qa %qs %qd %qm) %qn),,1,squish(%qt [switch(%qn,,1,`%vpmail`.`id` IN\([iter(%qn,'[elements(%1,%i0)]',,\,)]\))]))])
  
&cmd.bbheader %va=$^\+bbheader(?\:/n(?\:o(?\:e(?\:v(?\:al?)?)?)?)?)? ([^=]*?)(?\:=(.*))$: @nspemit/silent %#=ufun(%vb/tag)[ufun(%vb/fun.bbheader,%1,%2)]
@set %va/cmd.bbheader=regexp
&fun.bbheader %vb=switch(0,strlen(setr(0,ufun(%vb/fun.is-bb,%0))),ufun(msg,no-such-bb),cor(orflags(%#,Wr),ufun(fun.is-bb-admin,%:,%q0)),ufun(msg,permission-denied),strlen(%1),set(%vd,bb`header`%0:[ufun(%vb/config`bb_header`value,%q0)])[ufun(msg,bbheader-new-default,%q0)],set(%vd,bb`header`%0:%1)[ufun(msg,bbheader-new-arb,%q0,%1)])
  
&fun.bbtimeout %vb=switch(0,strlen(setr(0,ufun(fun.is-bb,%0))),ufun(msg,no-such-bb,%0),orflags(%#,Wr),ufun(msg,permission-denied),not(strmatch(setr(1,stringsecs(%1)),#-*)),ufun(msg,not-timestring,%1),set(%vd,bb`timeout`%0:%q1)[ufun(msg,timeout-set,%q0,%q1)])
  
&cmd.bblock %va=$^\+bblock(?\:/noe(?\:v(?\:al?)?)?)?(?\:/(\S*?))?(?\:/noe(?\:v(?\:al?)?)?)? ([^=]+)=(.*)$: @nspemit/silent %#=ufun(%vb/tag)[switch(,%1,ufun(%vb/fun.bblock,Read,%2,%3),setr(0,first(iter(%1,grab(|Read|Write|Notify|Post,%i0*,|),/,%b))),ufun(%vb/msg,bblock-bad-switch),ufun(%vb/fun.bblock,edit(%q0,Post,Write),%2,%3))]
  @set %va/cmd.bblock=regexp
  &fun.bblock %vb=switch(0,strlen(setr(0,ufun(fun.is-bb,%1))),ufun(msg,no-such-bb,%1),orflags(%#,Wr),ufun(msg,permission-denied),strlen(squish(%2)),ufun(msg,lock-fail-empty),set(%vd,bb`%0`%q0:%2)[ufun(msg,bblock-set,%0,%q0,%2)])
&fun.bbinfo %vb=%r[ufun(%vd/bb`header`%0)]%rName: [get(%vd/bb`name`%0)]%rNumber: [get(%vd/bb`id`%0)]%r[if(hasattrval(%vd,bb`desc`%0),Desc: [get(%vd/bb`desc`%0)]%r)]Timeout: [switch(default(%vd/bb`timeout`%0,0),0,None,timestring(get(%vd/bb`timeout`%0)))]%rRead Lock: [get(%vd/bb`read`%0)]%rWrite Lock: [get(%vd/bb`write`%0)]%rNotify Lock: [get(%vd/bb`notify`%0)][if(hasattrval(%vd,bb`admin`%0),%rAdmin Lock: [get(%vd/bb`admin`%0)])][if(ufun(fun.can-read-bb,%:,%0),%rMessages Posted: [sql(SELECT count(`id`) FROM `%vpbbinbox` WHERE `bbcode` = '[ufun(fun.bbname-to-num,%0)]')])]%rBB Header: [get(%vd/bb`header`%0)]%r[repeat(=,78)]
  
&cmd.bblist %va=$^\+bblist([ /]a(?\:ll?)?)?(?\: (.+))?$: @nspemit/silent %#=ufun(%vb/fun.parseargs,%2)[switch(ufun(%vb/fun.isalt,%:,%qa,a,1),-1,ufun(%vb/tag)[ufun(%vb/msg,no-such-player,%qa)],0,ufun(%vb/tag)[ufun(%vb/msg,not-an-alt,%qa)],ufun(%vb/fun.bblist-[if(%1,all,some)],%qa))]

&fun.bblist-all %vb=ufun(if(hasattr(%vb,skin`bblist),skin`bblist,fun.bblist-show),u(msg,bblist-all),iter(edit(lattr(%vd/bb`name`*),BB`NAME`,),get(%vd/bb`id`##)^[get(%vd/bb`name`##)]^[if(ufun(fun.can-read-bb,%0,##),sql(SELECT count(`id`) FROM `%vpbbinbox` WHERE `bbcode` = '[ufun(fun.bbname-to-num,##)]'))],,|))
  
&fun.bblist-show %vb=ufun(%vb/tag)%0%r[repeat(=,78)]%r[table(iter(%1,rjust(first(##,^),3). %b[elements(##,2,^)][switch(last(##,^),,,%b(#$))],|,|),25,78,|)]%r[repeat(=,78)]

&skin`bblist %vb=ufun(%vb/tag)%0%r[repeat(=,78)]%r[table(iter(%1,%b[elements(##,2,^)] [switch(last(##,^),,,%b(#$))],|,|),25,78,|)]%r[repeat(=,78)]
  
  @@ @@@@@@@@@@@@@@@@@@@
  @@ +BBSCAN [@<alt>]
  &cmd.bbscan %va=$+bbscan*: @nspemit/silent %#=ufun(%vb/fun.bbscan,%0)
  
@@ Args: %0 = args (for @<alt>). If %1 is true we don't show a "no new messages" message, for the @aconnect
&fun.bbscan %vb=ufun(fun.parseargs,%0)[switch(ufun(fun.isalt,%:,%qa,a,1),-1,ufun(%vb/tag)[ufun(msg,no-such-player,%qa)],0,ufun(%vb/tag)[ufun(msg,not-an-alt,%qa)],switch(0,words(setr(0,filterbool(#lambda/ufun(%vb/fun.can-read-bb,%:,first(%%0)),sql(SELECT `bbcode`\, COUNT(*) FROM `%vpbbinbox` WHERE `readers` NOT LIKE '[get(%vb/config`sql_wildcard`value)]|%qa|[get(%vb/config`sql_wildcard`value)]' AND `bbcode` NOT IN([iter(regraball(default(%qa/BBIGNORE,-1) -1,^-?\[0-9\]+$),'##',,\,)]) GROUP BY `bbcode`,^,%b),^))),if(%1,,ufun(%vb/tag)[ufun(msg,bbscan-nonew)]),[ufun(if(hasattrval(%vb,skin`bbscan),skin`bbscan,fun.bblist-show),ufun(msg,bbscan),iter(%q0,first(##)^[ufun(fun.bbnum-to-name,first(##))]^[rest(##)],^,|))]))]
&fun.purge-sub %vb=null(sql(DELETE FROM `%vpbbinbox` WHERE [setq(0,secs())][iter(setunion(regeditall(setr(0,sql(SELECT `%vpbbinbox`.`bbcode`\, `%vpbbinbox`.`id` FROM `%vpbbinbox` INNER JOIN `%vpmail` ON `%vpmail`.`id` = `%vpbbinbox`.`id` WHERE [iter(lattr(%vd/bb`id->name`*),(`%vpbbinbox`.`bbcode` = '[last(##,`)]' AND `%vpmail`.`date` < [sub(%q0,switch(default(%vd/bb`timeout`[get(%vd/##)],0),0,%q0,get(%vd/bb`timeout`[get(%vd/##)])))]),,%bOR%b)],%b,^)),\\^\\S+,),),(`bbcode` = '##' AND `id` IN([squish(regeditall(graball(%q0,##^*),\\S+\\^(\\S+),'$1'\,),\,)])),,%bOR%b)])[sql(DELETE FROM `%vpmail` WHERE `id` IN([squish(regeditalli(sql(SELECT P.ID FROM `%vpmail` P LEFT JOIN `%vpinbox` ON P.id = `%vpinbox`.ID LEFT JOIN `%vpbbinbox` ON P.id = `%vpbbinbox`.ID LEFT JOIN `%vpmail` C ON C.forwards LIKE concat("%%|"\,P.id\,"|%%") WHERE `%vpinbox`.ID IS NULL AND `%vpbbinbox`.ID IS NULL AND C.forwards IS NULL),\\S+,$0\,),\,)]))][sql(DELETE FROM `%vpinbox` WHERE `who` IN([trimpenn(iter(sql(SELECT DISTINCT `who` FROM `%vpinbox`),if(pmatch(##),,'##'\,)),\,,r)]))])
  
&fun.config-set %vb=switch(0,hasattrval(%vb,config`%0`value),ufun(msg,no-such-config),strlen(setr(0,ufun(fun.config-validate,%1,get(%vb/config`%0`type)))),ufun(msg,config-invalid,switch(get(%vb/config`%0`type),time,timestring,get(%vb/config`%0`type))),null(ufun(%vb/config`%0`onchange,%q0)[set(%vb,config`%0`value:%q0)])[ufun(msg,config-changed)])
  
&fun.config-validate %vb=switch(%1,string,%0,int,ufun(fun.config-validate-num,%0),time,ufun(fun.config-validate-time,%0),bool,ufun(fun.config-validate-bool,%0))
&fun.config-validate-time %vb=switch(stringsecs(%0),#-*,,#$)
  
&cmd.mail %va=$^\+mail(/\S*)?(?\: +(.*))?$: @nspemit/silent %#=ufun(%vb/tag)[switch(first(setunion(iter(%1,grab(|ban|banned|config|purge|unban|version,%i0*,|),/,%b),)),,switch(0,lte(strlen(%1),1),ufun(%vb/msg,unknown-mail-switch),match(%2,*=*),ufun(%vb/fun.mail-check,%:,%2),ufun(%vb/fun.mail-start,before(%2,=),after(%2,=))),ufun(%vb/fun.#$,%2))]
  
@ACONNECT %va=@wait 1=@nspemit/silent %#=allof(if(get(%vb/config`connect_mail`value),ulocal(%vb/tag)[ulocal(%vb/fun.mail-check-info,%:,%:)]),if(get(%vb/config`connect_bb`value),ulocal(%vb/fun.bbscan,,1)),if(ufun(%vb/fun.writing-mail,%:),ulocal(%vb/tag)[ufun(%vb/msg,connect-writing)]),%r)

&fun.reply-sub %vb=switch(0,first(setr(0,ufun(fun.range,%1,%0,%2)),|),ufun(msg,elements(%q0,2,|),elements(%q0,3,|)),eq(words(setr(i,elements(%q0,2,|))),1),ufun(msg,reply-to-one,words(%qi)),not(strmatch(setr(a,ufun(fun.parseaddr,null(regmatch(sql(SELECT CONCAT(`who`,' ',`recip`)\, `subject` FROM `%vpmail` WHERE `id` = '[sqlescape(%qi)]',,^),^(.+)\\^(.+)$,-1 r s))%qr,%:)),setr(x,ufun(%vb/beep))%qx*)),ufun(msg,no-good-replyers),switch(setr(t,elements(%qa,3,%qx)),?*,ufun(msg,these-players-bad,%qt)%r[ufun(tag)])[switchall(0,strlen(elements(setr(1,ufun(fun.checklocks,%qa,%0)),1,%qx)),ufun(msg,fail-locks-all,ufun(fun.format-names,elements(%q1,%qx,2),%0))[elements(%q1,3,%qx)],not(strmatch(%ql,?*%qx?*%qx*)),ufun(msg,fail-locks-some,ufun(fun.format-names,elements(%q1,2,%qx),%0))[elements(%q1,3,%qx)]%r[u(tag)],not(strlen(elements(%q1,1,%qx))),ufun(msg,reply-msg,ufun(fun.mail-start-sub,%0,get(%vb/config`re_subject`value) %qs,elements(%q1,1,%qx)),switch(%1,%0,,ufun(%vb/fun.format-name-noansi,%1)%b)[elements(%q0,3,|)]))])
  
&cmd.write %va=$^\+write((?\:/nos(?\:p(?\:a(?\:ce?)?)?)?)?(?\:/noe(?\:v(?\:al?)?)?)?|(?\:/nos(?\:p(?\:a(?\:ce?)?)?)?)?(?\:/noe(?\:v(?\:al?)?)?)?)? ((?\:\s|\S)+)$: @nspemit/silent %#=ufun(%vb/tag)[ufun(%vb/fun.write,%2,strmatch(%1,*/nos*))]

&fun.send-sub %vb=null(if(strlen(graball(%5,#*:*)),sql(INSERT INTO `%vpinbox`\(`id`\,`who`\,`status`\) VALUES[iter(graball(%5,#*:*),\('%4'\,'[sqlescape(##)]'\,'n'\),,\,)]))[if(strlen(regraballi(%5,^(?!#.*:.*).*$)),sql(INSERT INTO `%vpbbinbox`\(`id`\,`bbcode`\,`readers`\) VALUES[iter(regraballi(%5,^(?!#.*:.*).*$),\('%4'\,'##'\,'||'\),,\,)]))])[switch(setr(0,if(%3,iter(graball(%5,#*:*),'[sqlescape(##)]',,\,),edit(squish(iter(graball(%5,#*:*),if(member(lwho(##),%1),'[sqlescape(##)']),,|),|),|,\,))),,,setq(0,sql(SELECT `%vpinbox`.`who`\,`%vpinbox`.`id` FROM `%vpinbox` INNER JOIN `%vpmail` ON `%vpinbox`.`id`=`%vpmail`.`id` WHERE `%vpinbox`.`who` IN \(%q0\) ORDER BY `%vpmail`.`date`,%b,|))[iter(setinter(regeditall(%q0,(:\\S+),%b),lwho()),nspemit(##,ufun(tag)[ufun(msg,new-mail[if(andlflags(##,nospoof paranoid),-nospoof)],%1,%2,match(graball(%q0,objid(##)|*),*|%4))]))])][setq(s,if(%3,1,member\(lwho\(##\)\,%1\)))][setq(0,sql(SELECT `%vpbbinbox`.`bbcode`\,`%vpbbinbox`.`id` FROM `%vpbbinbox` INNER JOIN `%vpmail` ON `%vpbbinbox`.`id`=`%vpmail`.`id` ORDER BY `%vpmail`.`date`,|,^))][iter(regraballi(%5,^(?!#.*:.*).*$),nspemit(iter(filterbool(#lambda/%qs,lwho()),if(ufun(%vb/fun.can-notify-bb,%i0,##),%i0)),ufun(tag)[ufun(msg,new-bb-posting,%2,ufun(fun.bbnum-to-name,##),match(graball(%q0,##^*,|),*^%4,|))]))]
  
&fun.edit %vb=switch(0,ufun(fun.writing-mail,%:),ufun(msg,not-writing),setq(0,sql(SELECT `id`\,`date`\,`subject`\,`recip`\,`body` FROM `%vpmail` WHERE `who` = '%:' AND `sent` = '0',%b,setr(x,ufun(%vb/beep))))[ufun(fun.store-undo,%:)][sql(UPDATE `%vpmail` SET `body` = '[sqlescape(localize(switch(%0,edit,edit(elements(%q0,5,%qx),%1,%2),[%0(elements(%q0,5,%qx),%1,setq(0,$0,1,$1,2,$2,3,$3,4,$4,5,$5,6,$6,7,$7,8,$8,9,$9)[regeditall(%2,\\$(\\d),r($1))])])))]' WHERE `who` = '%:' AND `sent` = '0')][ufun(msg,edit)]%r[ufun(fun.format-message,-1,,elements(%q0,1,%qx),p,%:,elements(%q0,2,%qx),elements(%q0,3,%qx),elements(%q0,4,%qx),switch(%0,edit,edit(elements(%q0,5,%qx),%1,ansi(h,%2)),localize([%0(elements(%q0,5,%qx),%1,setq(0,$0,1,$1,2,$2,3,$3,4,$4,5,$5,6,$6,7,$7,8,$8,9,$9)[ansi(h,regeditall(%2,\\$(\\d),r($1)))])])))])
  
&cmd.bbread %va=$+bbread */*: @nspemit/silent %#=ufun(%vb/fun.read,bb:%0 [switch(%1,u,mark=new,%1)],0,ufun(%vb/tag))
  
&fun.read-sub %vb=switch(0,first(setr(0,ufun(fun.range,%0,%:,%1)),|),%3[ufun(msg,elements(%q0,2,|),elements(%q0,3,|))],lte(words(setr(i,elements(%q0,2,|))),get(%vb/config`max_reads`value)),%3[ufun(msg,too-many-reads,get(%vb/config`max_reads`value))],setq(x,ufun(%vb/beep))[setq(m,elements(%q0,3,|))][iter(%qi,setq(1,switch(%0,#*:*,sql(SELECT `%vpmail`.`id`\,`%vpmail`.`who`\,`%vpmail`.`date`\,`%vpmail`.`subject`\,`%vpmail`.`recip`\,CONCAT(`%vpmail`.`body`\,`%vpmail`.`sig`)\,`%vpmail`.`forwards`\,`%vpinbox`.`status` FROM `%vpmail` INNER JOIN `%vpinbox` ON `%vpinbox`.`id` = `%vpmail`.`id` WHERE `%vpmail`.`id` = '[sqlescape(%i0)]' AND `%vpinbox`.`who`='[sqlescape(%0)]',%b,%qx),sql(SELECT `%vpmail`.`id`\,`%vpmail`.`who`\,`%vpmail`.`date`\,`%vpmail`.`subject`\,`%vpmail`.`recip`\,CONCAT(`%vpmail`.`body`\,`%vpmail`.`sig`)\,`%vpmail`.`forwards`\,CASE WHEN INSTR(`%vpbbinbox`.`readers`,'[sqlescape(|%4|)]') > 0 THEN 'r' ELSE 'n' END FROM `%vpmail` INNER JOIN `%vpbbinbox` ON `%vpbbinbox`.`id`=`%vpmail`.`id` WHERE `%vpmail`.`id` = '[sqlescape(%i0)]' AND `%vpbbinbox`.`bbcode`='[sqlescape(ufun(fun.bbname-to-num,%0))]',%b,%qx)))[ulocal(fun.format-message,elements(%qm,#@),switch(%0,%:,,%0),%i0,setunion(elements(%q1,8,%qx),if(%2,e)),elements(%q1,2,%qx),elements(%q1,3,%qx),elements(%q1,4,%qx),elements(%q1,5,%qx),elements(%q1,6,%qx),if(squish(elements(%q1,7,%qx),|),sql(SELECT `id`\,`who`\,`date`\,CONCAT(`body`\,`sig`) FROM `%vpmail` WHERE `id` IN([iter(squish(elements(%q1,7,%qx),|),'[sqlescape(%i0)]',|,\,)]),%qx,^)))],,%r)][null(switch(%0,#*:*,sql(UPDATE `%vpinbox` SET `status`='r' WHERE `who` = '[sqlescape(%0)]' AND `id` IN([iter(%qi,'[sqlescape(%i0)]',,\,)]) AND `status` = 'n'),sql(UPDATE `%vpbbinbox` SET `readers` = CONCAT('|',TRIM(BOTH '|' FROM CONCAT(TRIM(BOTH '|' FROM `readers`),'[sqlescape(|%qa)]')),'|') WHERE `bbcode` = '[sqlescape(ufun(fun.bbname-to-num,%0))]' AND `id` IN([iter(%qi,'[sqlescape(%i0)]',,\,)]) AND `readers` NOT LIKE '[sqlescape(get(%vb/config`sql_wildcard`value)|%4|[get(%vb/config`sql_wildcard`value)])]')))])
  
&fun.delete %vb=ufun(fun.parseargs-noalt,%0)[switch(0,not(cand(not(strlen(%qc)),%1)),ufun(msg,expunge-norange),strlen(%qb),ufun(fun.delete-personal,%:,%qc,%1),%1,ufun(msg,delete-bb-noforce),ufun(fun.delete-bb,%qb,%:,%qc,%1))]

&en`expunge-norange %vc=You must give a message range to +EXPUNGE. To delete all messages, use the message range '-'
  
&fun.delete-personal %vb=switch(0,first(setr(0,ufun(fun.range,%0,%0,%1)),|),ufun(msg,elements(%q0,2,|),elements(%q0,3,|)),if(cand(not(%2)[setq(1,iter(elements(%q0,2,|),'##',,\,))],words(sql(SELECT `status` FROM `%vpinbox` WHERE `who` = '%0' AND `status` = 'n' AND `id` IN(%q1)))),ufun(msg,delete-new)%r[u(tag)])[sql(UPDATE `%vpinbox` SET `status` = 'd' WHERE `who` = '%0' [if(%1,,AND `status` != 'n')] AND `id` IN(%q1))][setq(2,elements(ufun(fun.range,%0,%0),2,|))][ufun(msg,marked-as-del,sort(iter(sql(SELECT `id` FROM `%vpinbox` WHERE `status` = 'd' AND `who` = '%0'),member(%q2,%i0)),n))])
  
&fun.delete-bb %vb=switch(0,strlen(setr(0,ufun(fun.is-bb,%0))),ufun(msg,no-such-bb,%0),cor(orflags(%1,Wr),ufun(fun.is-bb-admin,%1,%q0)),ufun(msg,permission-denied),switch(0,first(setr(1,ufun(fun.range,%q0,%1,%2)),|),ufun(msg,elements(%q1,2,|),elements(%q1,3,|)),sql(DELETE FROM `%vpbbinbox` WHERE `id` IN([iter(elements(%q1,2,|),'%i0',,\,)]) AND `bbcode` = '[ufun(fun.bbname-to-num,%q0)]')[ufun(msg,deleted-bb,%q0)]))

&fun.skim %vb=ufun(fun.parseargs,%0)[switch(ufun(fun.isalt,%:,%qa,a,1),-1,ufun(msg,no-such-player,%qa),0,ufun(msg,not-an-alt,%qa),switch(0,strlen(%qb),ufun(fun.skim-player,%qa,%:,%qc),strlen(setr(1,ufun(%vb/fun.is-bb,%qb))),ufun(msg,no-such-bb,%qb),ufun(fun.can-read-bb,%qa,%q1),ufun(msg,cant-read-bb,%q1),ufun(fun.skim-bb,%q1,%qa,%qc)))]
  
&fun.skim-player-sub %vb=ufun(fun.mail-check-info,%0,%1)%r[repeat(-,78)]%r[setq(0,%0,1,%1,2,%2,3,%3)][mapsql(%!/fun.skim-player-sub-sub,SELECT `%vpmail`.`id`\,`%vpinbox`.`status`\,`%vpmail`.`who`\, `%vpmail`.`date`\,`%vpmail`.`subject` FROM `%vpmail` INNER JOIN `%vpinbox` ON `%vpinbox`.`id` = `%vpmail`.`id` WHERE `%vpmail`.`id` IN([iter(%2,'##',,\,)]) AND `%vpinbox`.`who` = '%0' ORDER BY `%vpmail`.`date`,%r)]%r[repeat(-,78)]%r+Delete mail you're done with!%b%bSee HELP POP3 to download it to your computer!

&fun.skim-player-sub-sub %vb=left(<[switch(%2,n,N,d,D,%b)]>[rjust(elements(%q3,%0),4)]. [ljust(left(ufun(fun.format-names,%3,%q1),17),18)] [timefmt($a $b $d $Y,%4)]%b%b-%b%b%5,78)

&fun.skim-bb-sub %vb=ufun(fun.mail-check-info,%0,%1)%r[ufun(%vd/bb`header`%0)]%r[repeat(-,78)]%r[setq(0,%0,1,%1,2,%2,3,%3)][mapsql(%!/fun.skim-bb-sub-sub,SELECT `%vpmail`.`id`\, CASE WHEN INSTR(`%vpbbinbox`.`readers`,'|%1|') > 0 THEN ' ' ELSE 'n' END\, `%vpmail`.`who`\, `%vpmail`.`date`\, `%vpmail`.`subject` FROM `%vpmail` INNER JOIN `%vpbbinbox` ON `%vpbbinbox`.`id` = `%vpmail`.`id` WHERE `%vpmail`.`id` IN([iter(%2,'##',,\,)]) AND `%vpbbinbox`.`bbcode` = '[ufun(fun.bbname-to-num,%0)]' ORDER BY `%vpmail`.`date`,%r)]%r[repeat(-,78)]

&fun.skim-bb-sub-sub %vb=left(<[switch(%2,n,N,d,D,%b)]>[rjust(elements(%q3,%0),4)]. [ljust(left(ufun(fun.format-names,%3,%q1),17),18)] [timefmt($a $b $d $Y,%4)]%b%B-%b%b%5,78)
  
&fun.outbox %vb=ufun(fun.parseargs,%1)[switch(ufun(%vb/fun.isalt,%:,%qa,a,1),-1,ufun(msg,no-such-player,%qa),0,ufun(msg,not-an-alt,%qa),switch(setr(0,sql(SELECT `id`\,`date`\,`subject`\,`recip` FROM `%vpmail` WHERE `who` = '%qa' AND `sent` = '1' ORDER BY `%0`,setr(x,u(beep)),^)),,ufun(msg,outbox-none),ufun(fun.outbox-sub,%q0,%qx)))]
  
&fun.outbox-sub %vb=ufun(msg,outbox-num,words(%0,%1))%r[repeat(=,78)]%r[ljust(ID Num,8)][ljust(Date,12)][ljust(Subject,27)]Address%r[repeat(-,78)]%r[iter(%0,left(ljust(rjust(elements(%i0,1,^),6),8)[ljust(timefmt($x,elements(%i0,2,^)),12)][ljust(left(elements(%i0,3,^),24),27)][ufun(fun.format-names,elements(%i0,4,^),%:)],78),%1,%r)]%r[repeat(=,78)]
  
&fun.sendmail-sub %vb=switch(0,comp(left(setr(1,ulocal(fun.parseaddr,%1,owner(%qC))),2),beep(2)),0,null(sql(INSERT INTO `%vpmail`(`who`,`date`,`subject`,`recip`,`body`,`sent`,`forwards`) VALUES('[setr(0,firstof(objid(pmatch(%0)),objid(pmatch(#1)),objid(pmatch(owner(%qc))),objid(owner(me))))]','[secs()]','[sqlescape(ufun(fun.format-subject,%2))]','[sqlescape(setr(1,elements(%q1,1 2,beep(),%b)))]','[sqlescape(edit(%3,ufun(%vb/beep),))]','1',''))[ufun(fun.send-sub,%q0,pmatch(%q0),ufun(fun.propername,%q0),not(%4),sql(SELECT last_insert_id()),%q1)])1)