/*** (C) Copyright 1984, 1985  S.R.I. International ***/
/*
 *
 *	Command to type messages
 *
 */
#include "vax-mm.h"

CMD_Type()
{
	int Message;

	/*
	 *	Message List
	 */
	Parse_Message_List("CURRENT");
	/*
	 *	Confirm
	 */
	Confirm();
	/*
	 *	Do it
	 */
	while(1) {
		Message = Next_Message(0);
		if (Message <= 0) break;
		Current_Message = Message;
		Print_Message(Message,1);
	}
}


/*
 *	Type message without header suppression
 */
CMD_Literal_Type()
{
	int Message;

	/*
	 *	Message List
	 */
	Parse_Message_List("CURRENT");
	/*
	 *	Confirm
	 */
	Confirm();
	/*
	 *	Do it
	 */
	while(1) {
		Message = Next_Message(0);
		if (Message <= 0) break;
		Current_Message = Message;
		Print_Message(Message,0);
	}
}