* This macro inserts extra header-lines from the file "header.txt" into
* an e-mail file produced by NetTamer. See the documentation for the
* whole package to understand how to use it.
*
* The macro is written for version 2.15 of the QMac macro compiler
* to make it compatible with the XEdit freeware editor.
* QMac is still shareware though.
* Read the documentation of these packages to understand how the macro
* works.
*
f10 MacroBegin                            *
    AltWordSet                            * So we can mark a filename
                                          * as a word
    SaveSettings SetScreenOff             * Save current status
    SetInsMode                            * Turn on insert
    SetAutoIndentMode ToggleIndent        * Turn off AutoIndent
    BegFile                               * Top of file
    findempty:                            * Find end of header
      CursorDown                          * This assumes a nonblank line
      isEmptyLine JFalse findempty:       * at the top of the file
    BegLine                               * Make sure we are at beginning of
                                          * line
    'header.txt' WordLeft MarkWord Cut    * Put xtra header-lines in this file
                                          * to suit your taste
    ReadBlock Paste Return                * Import the xtra header lines
    UnmarkBlock                           *
    NextPara                              * Go to body of message
    InsertLine                            * Insert an xtra blank line
                                          * before body
    RestoreSettings SetScreenOn           * Reset to before-macro status
    DefaultWordSet                        *
    GFile                                 * Save file to disk and exit

