newt: add 'kf' command to grep $home/lib/newsgroups for group names

1 files changed, 5 insertions, 1 deletions

diff --git a/rc/bin/newt b/rc/bin/newt
index 7d6e8ab8e..af5c15b3d 100755
--- a/rc/bin/newt
+++ b/rc/bin/newt
@@ -75,7 +75,7 @@ fn k{
 	kmnt=`{echo $mnt | sed 's/\//\\\//g'}
 	f $mnt/$* |
 		grep -v -e '\/([0-9]+|article|body|header|post|xover)$' |
-		sed 's/^'$"kmnt'\// g	/g' |
+		sed 's/^'$"kmnt'\//  g	/g' |
 		sort
 }
 fn nshift{ shift; echo $* }
@@ -88,6 +88,7 @@ g ...		go to specified group
 h		print message headlines
 help		print this help message
 k ...		list sub-groups under specified group
+kf ...		grep $home/lib/newsgroups for regexp
 l		jump to last message
 n		next
 p		print message with minimal headers
@@ -194,6 +195,9 @@ while(){
 		k $group
 	case k' '*
 		k `{nshift $cmd | sed 's/\./\//g'}
+	case kf' '*
+		grep -e `{nshift $cmd} $home/lib/newsgroups |
+			sed 's/^/  g	/g'
 	case l
 		post=$posts($#posts)
 		printp $post