don't treat "applied.*", or "sorry" as patch directories.

Reference: /n/atom/patch/applied/apatchlistexclude
Date: Sat Feb 22 15:51:59 CET 2014
Signed-off-by: quanstro@quanstro.net

--- /rc/bin/apatch/list	Sat Feb 22 15:51:30 2014
+++ /rc/bin/apatch/list	Sat Feb 22 15:51:31 2014
@@ -3,7 +3,7 @@
 rfork e
 . /rc/bin/apatch/defs
 mountfs
-cd $PD || fail no $PD
+builtin cd $PD || fail no $PD
 
 args='dirs'
 flagfmt='a,v'
@@ -14,7 +14,9 @@
 
 dirs=$*
 if(~ $#dirs 0){
-	q = `{ls -tr | grep -v '\.[0-9]+$'}
+	q = `{ls -tr | grep -v '\.[0-9]+$
+sorry
+applied[0-9]*'}
 	p = ()
 	for(i in $q)
 		test -d $i && p = ($p $i)
@@ -34,10 +36,8 @@
 			}
 			'
 		}
-whatis dirs
 	}
 }
-echo dirs >[1=2]
 
 for(i in $dirs){
 	if($patch/okay $i){