;;; message.mhtml: -*- Meta-HTML -*-  DESCRIPTIVE TEXT.

;;;  Copyright (c) 1996 Brian J. Fox
;;;  Author: Brian J. Fox (bfox@ai.mit.edu) Wed May 29 10:48:11 1996.
<defsubst message whitespace=delete>
  <set-session-var message = <prog <get-session-var message> %body>>
</defsubst>

<defsubst show-message whitespace=delete>
  <set-var message = <get-session-var message>>
  <unset-session-var message>
  <when <get-var message>>
    <table>
      <tr valign=top>
	<td align=right> <b>Note:</b> </td>
	<td align=left>
	  <get-var message>
	</td>
      </tr>
    </table>
  </when>
</defsubst>
