🚀 go-pugleaf

I don't know if this would be useful for anyone else, but it has been
very useful to me.  Its not very elaborate code, but it saves me a lot
of time.  If you have certain mailing LISTS that you would rather just
stick aside in their own notebook and read later, rather than having them
read into your UNREAD NOTEBOOK, you may want to use this.  I stick the
mail that I receive this way into a seperate notebook called P-name, which
stands for PERSONAL, and I use this to sort my personal, rather than
work-related, mail out so I am not spending all day answering personal
mail instead of doing my job.  You may freely edit, but not redistribute
this code.

/*------------------------------------------------------------*\
:   Program:   PMAIL EXEC  -- PERSONAL MAIL RECEIVER           :
:--------------------------------------------------------------:
:   Purpose:   To receive mail from lists of a personal        :
:              rather than business nature, so that            :
:              I can use MAIL during the day without           :
:              being so tempted to read my non-work related    :
:              mail.                                           :
:--------------------------------------------------------------:
:   Operation: Type "PMAIL".  You will need to manually        :
:              customize the EXEC to include the names of the  :
:              lists you receive, and the names of the         :
:              notebooks you would like to store that mail in. :
:--------------------------------------------------------------:
:   Programmer: THE GAR  (205) 870-2477                        :
:   AKA      Gary Warner, Systems Programmer, PCs and Networks :
:            Samford University Computer Services              :
:--------------------------------------------------------------:
:   Disclaimer: This program is distributed without any        :
:     guarantees as to its usefulness, safety, or future       :
:     support.  Any loss of time or data resulting from        :
:     its use is simply NOT MY PROBLEM.  This program is       :
:     privately written on private time.  Not related to       :
:     Samford University in any way.                           :
:--------------------------------------------------------------:
:  Comments:                                                   :
:       To use this program, go to the SELECT statement        :
:       found on line #  and insert the names of the lists     :
:       you want to have received by this program.  Put the    :
:       name of the NOTEBOOK you want that LIST stored to      :
:       in the variable SPEC.  This is NOT ALWAYS the actual   :
:       name of the list.  To see what to use, do a Q RDR ALL  :
:       and look at the NAME column.  That is the name you     :
:       should use.  I have given some examples that I use     :
:       below.                                                 :
\*------------------------------------------------------------*/
MAKEBUF
'EXECIO * CP (MARGINS 1 72 BUFFER 30000 STRING QUERY READER ALL *'
IF (RC > 2) THEN EXIT
PULL DISCAR
DO QUEUED()
PULL ORG SPID CL STY RECS COPY HOLD DATE TIME FN FT
IF FT ^= 'MAIL'
   THEN ITERATE
ELSE DO
SELECT
   WHEN FN = 'ASIMOV-L' THEN SPEC = 'P-ASIMOV  NOTEBOOK G'
   WHEN FN = 'CHESS-L'  THEN SPEC = 'P-CHESS   NOTEBOOK G'
   WHEN FN = 'GAMES-L'  THEN SPEC = 'P-GAMES   NOTEBOOK G'
   WHEN FN = 'HIT'      THEN SPEC = 'P-HIT     NOTEBOOK G'
   WHEN FN = 'IVCF-L'   THEN SPEC = 'P-IVCF    NOTEBOOK G'
   WHEN FN = 'LINGUIST' THEN SPEC = 'P-LING    NOTEBOOK G'
   WHEN FN = 'ROOTS-L'  THEN SPEC = 'P-ROOTS   NOTEBOOK G'
   WHEN FN = 'SAS-L'    THEN SPEC = 'P-SAS     NOTEBOOK G'
   WHEN FN = 'SFLOVERS' THEN SPEC = 'SFLOVERS  NOTEBOOK G'
   WHEN FN = 'SPACE-RE' THEN SPEC = 'P-SPACE   NOTEBOOK G'
   WHEN FN = 'STREK-L'  THEN SPEC = 'P-STREK   NOTEBOOK G'
   WHEN FN = 'TFTD-L'   THEN SPEC = 'TFTD      NOTEBOOK G'
   WHEN FN = 'TK0JUT2'  THEN SPEC = 'P-CUD     NOTEBOOK G'
   WHEN FN = 'WIN3-L'   THEN SPEC = 'P-WIN     NOTEBOOK G'
   WHEN FN = 'WRITE'    THEN SPEC = 'P-WRITE   NOTEBOOK G'
OTHERWISE ITERATE
END /* DO */
/*     RECEIVE THEM TO THE APPROPRIATE FILES   */
     'SET CMSTYPE HT'
     'EXEC RECEIVE 'SPID '(NOT DUMMY'
     'SET CMSTYPE RT'
     'COPY DUMMY NOTEBOOK A ' SPEC ' (APPEND'
     IF RC = 0 THEN 'ERASE DUMMY NOTEBOOK A'
                ELSE DO
                SAY 'ERROR!' FN FT ' HAS BEEN LEFT IN DUMMY NOTEBOOK A'
                'SET EMSG ON'
                EXIT
                END
        END
END
DROP BUF
EXIT


 /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\
!  Later        +   Systems Programmer                                 !
!  Gary Warner  +   Samford University Computer Services               !
!               +   II TIMOTHY 2:15                                    !
 \+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/