#! /bin/sh
# $Header: /home/jerry/.bin/RCS/inc,v 1.2 92/08/09 23:26:30 jerry mh_contrib $
###	inc - front-end to MH "inc" that handles folder stack
##
##	IF YOU'RE USING A FOLDER STACK AND YOUR CURRENT FOLDER ISN'T inbox,
##	AND YOU TYPE inc, THE CURRENT FOLDER WILL BE REPLACED BY inbox.
##
##	THIS FRONT-END CHECKS YOUR FOLDER STACK.  IF YOU HAVE A STACK BUT
##	inbox ISN'T THE CURRENT FOLDER, THE SCRIPT PUSHES inbox ON THE STACK
##	BEFORE IT RUNS THE REAL inc.
#
#	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

mh=/usr/local/mh	# WHERE MH COMMANDS LIVE

# SHOULD CHECK FOR A +folder ARGUMENT TO inc...
incargs="$*"
set `$mh/folder -list`	# SHOULD USE MORE SWITCHES FOR SAFETY?
case $# in
0)	echo "$0: quitting: no output from '$mh/folder -list'???" 1>&2; exit 1;;
1)	;;	# NO FOLDER STACK; DON'T DO ANYTHING
*)	case "$1" in
	inbox)	;;	# DON'T DO ANYTHING
	*)	echo "$0: pushing inbox onto folder stack" 1>&2
		$mh/folder -push +inbox
		pushed=yes
		;;
	esac
	;;
esac

# IF INC RETURNS NON-ZERO AND WE PUSHED inbox ABOVE, POP IT:
$mh/inc $incargs || {
	case "$pushed" in
	yes)	echo "$0: popping inbox" 1>&2
			$mh/folder -pop
			;;
	esac
}