#! /bin/sh
# $Header: /home/jerry/.bin/RCS/folstkclr,v 2.1 92/08/10 11:48:47 jerry mh_contrib $
#
###	folstkclr -- clear stack from MH mail "folder" command
###	Usage: folstkclr
##
##	IF YOU DO A LOT OF MH5 folder -push COMMANDS, YOU CAN GET
##	SEVERAL FOLDERS ON YOUR STACK.  TO CLEAR THEM, USE folstkclr.
#
#	NOTE TO HACKERS: TABSTOPS SET AT 4 IN THIS CODE
#
#	USE AT YOUR OWN RISK.  SEEMS TO WORK, BUT IT'S YOUR RESPONSIBILITY!
#	PLEASE TELL ME ABOUT BUGS AND FIXES: Jerry Peek, jerry@ora.com

mhdir=/usr/local/mh

case $# in
0) ;;
*)	echo "Usage: `basename $0`" 1>&2
	exit 1
	;;
esac

# KEEP RUNNING folder -pop UNTIL FOLDER RETURNS NON-ZERO (EMPTY STACK):
while $mhdir/folder -pop >/dev/null 2>&1
do :  # NOTHING
done