home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / bit / listserv / mailbook / 1142 < prev    next >
Encoding:
Text File  |  1992-07-25  |  5.7 KB  |  147 lines

  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!RICEVM1.RICE.EDU!SCHAFER
  3. Organization: Networking & Computing Systems, Rice University
  4. Message-ID: <MAILBOOK%92072415120551@RICEVM1.RICE.EDU>
  5. Newsgroups: bit.listserv.mailbook
  6. Date:         Fri, 24 Jul 1992 15:00:15 CDT
  7. Sender:       RiceMail discussion list <MAILBOOK@RICEVM1.BITNET>
  8. From:         "Richard A. Schafer" <SCHAFER@RICEVM1.RICE.EDU>
  9. Subject:      Making MAIL92 look like MAIL91
  10. X-To:         MAIL/MAILBOOK Mailing list <MAILBOOK@ricevm1.rice.edu>
  11. Lines: 134
  12.  
  13. As I promised, I include below an exec which will largely change the
  14. user interface of Mail92 back to that of Mail91.  Not everything
  15. is reset (for example, colors), but the biggest set of things are,
  16. I think.
  17.  
  18. I make *NO* claims about the correctness of this code, its suitability
  19. for anything but the bitbucket, etc.  I will *NOT* support it, nor do
  20. I guarantee that any future changes to the code will not interfere with
  21. its operation.
  22.  
  23. I strongly believe that you do *NOT* want to run this code, and am supplying
  24. it for only two reasons:
  25.  
  26.     1. To show the kinds of flexibility the package has
  27.        and give examples of things like setting function keys.
  28.     2. Some people have expressed a desire to do this for transition
  29.        purposes.
  30.  
  31. Since this code only makes sense for people who've had the 91 or earlier
  32. versions of the package, I will not distribute it as part of the package,
  33. but simply post it to this list once.  To use it, insert something like
  34.  
  35.    Arg mode
  36.    'MACRO OLDMAIL' mode
  37.  
  38. in your MAILSYS (or MAILUSER) XEDIT file.
  39.  
  40. Richard
  41.  
  42.  
  43.  
  44. /* OLDMAIL XEDIT
  45.    Purpose: Set MAIL pf keys to their Mail91 state for those sites unwilling
  46.             to accept the changed arrangement.
  47.    Author: Richard A. Schafer
  48.    Date: July 19, 1992
  49.    Copyright: None
  50.  
  51.    Change Activity: None
  52. */
  53. Address XEDIT
  54. Arg mode
  55.  
  56. Select
  57.   When mode = 'INITIAL' Then Do
  58.     /* Allow PRE- calls.  We'll define the PF keys in the PRE calls   */
  59.     /* to allow the user to change things with the Options menu.      */
  60.     'SETMAIL EXIT.PREMENU YES'
  61.     'SETMAIL EXIT.PREREAD YES'
  62.     'SETMAIL EXIT.PRESEND YES'
  63.     'SETMAIL CMS.WINDOWS NO'
  64.     End
  65.   When mode = 'PREMENU' Then Do
  66.     /* Claim to use two function key lines                            */
  67.     'SETMAIL KEY.LINES 2'
  68.     /* Set Forward message key to F6                                  */
  69.     'SETMAIL PF13 6'
  70.     /* Set Sortup key to F10                                          */
  71.     'SETMAIL PF15 10'
  72.     /* Set Sortdown key to F11                                        */
  73.     'SETMAIL PF16 11'
  74.     /* Set Cancel key to F3                                           */
  75.     'SETMAIL PF12 3'
  76.     /* Unset Cursor Home key                                          */
  77.     'SETMAIL PF14  '
  78.     /* Unset Log key                                                  */
  79.     'SETMAIL PF11  '
  80.     /* Set Select key to F12                                          */
  81.     'SETMAIL PF6 12'
  82.     /* Unset Menubar key                                              */
  83.     'SETMAIL PF10  '
  84.     pf1 = "PF1=Help     PF2=Read       PF3=Quit    PF4 =Print  "||,
  85.           "PF5 =Reply    PF6 =Forward"
  86.     pf2 = "PF7=ScrollUp PF8=ScrollDown PF9=Discard PF10=SortUp"||,
  87.           " PF11=SortDown PF12=Select"
  88.     'SET RESERVED -1 HIGH' pf2
  89.     'SET RESERVED -2 HIGH' pf1
  90.     End
  91.   When mode = 'PREREAD' Then Do
  92.     /* Claim to use two function key lines                            */
  93.     'SETMAIL KEY.LINES 2'
  94.     /* Set Switch Send key to F10                                     */
  95.     'SETMAIL PF6 10'
  96.     /* Unset Menubar key                                              */
  97.     'SETMAIL PF10  '
  98.     /* Set Cancel key to F3                                           */
  99.     'SETMAIL PF12 3'
  100.     /* Set Forward Message key to F6                                  */
  101.     'SETMAIL PF13 6'
  102.     /* Set Cursor Home key to F12                                     */
  103.     'SETMAIL PF14 12'
  104.     /* Set Switch Send key to F10                                     */
  105.     'SETMAIL PF6 10'
  106.     pf1 = "PF1=Help     PF2=Next       PF3=Quit    PF4 =Print  "||,
  107.           "PF5 =Reply    PF6 =Forward"
  108.     pf2 = "PF7=ScrollUp PF8=ScrollDown PF9=Discard PF10=Switch"||,
  109.           " PF11=Log      PF12=Cursor"
  110.     'SET RESERVED -1 HIGH' pf2
  111.     'SET RESERVED -2 HIGH' pf1
  112.     End
  113.   When mode = 'PRESEND' Then Do
  114.     /* Claim to use two function key lines                            */
  115.     'SETMAIL KEY.LINES 2'
  116.     /* Set Switch Read key to F10                                     */
  117.     'SETMAIL PF6 10'
  118.     /* Set Cancel key to F3                                           */
  119.     'SETMAIL PF12 3'
  120.     /* Unset Menubar key                                              */
  121.     'SETMAIL PF10  '
  122.     /* Set Suspend key to F6                                          */
  123.     'SETMAIL PF13 6'
  124.     /* Set Cursor Home key to F12                                     */
  125.     'SETMAIL PF14 12'
  126.     pf1 = "PF1=Help     PF2=Addline    PF3=Quit    PF4 =Page   "||,
  127.           "PF5 =Send     PF6 =Suspend"
  128.     pf2 = "PF7=ScrollUp PF8=ScrollDown PF9=Delline PF10=Switch"||,
  129.           " PF11=SpltJoin PF12=Cursor"
  130.     'SET RESERVED -1 HIGH' pf2
  131.     'SET RESERVED -2 HIGH' pf1
  132.     End
  133.   Otherwise Nop
  134.   End
  135. If Find('PREMENU PREREAD PRESEND',mode) ^= 0 Then Do
  136.   cmd = Getmail('COMMAND')
  137.   If cmd = 'MAILBOOK' Then cmd = 'MBOK'
  138.   'GLOBALV SELECT' cmd'CMDS SET MAILCMDS.0 5'
  139.   'GLOBALV SELECT' cmd'CMDS SETL MAILCMDS.1 MENUBAR OFF'
  140.   'GLOBALV SELECT' cmd'CMDS SETL MAILCMDS.2 SET RESERVED -4 OFF'
  141.   'GLOBALV SELECT' cmd'CMDS SETL MAILCMDS.3 SET RESERVED -3 OFF'
  142.   'GLOBALV SELECT' cmd'CMDS SETL MAILCMDS.4 SET CMDLINE TOP'
  143.   l = C2d(Substr(Diag(8C),5,2)) - 1
  144.   'GLOBALV SELECT' cmd'CMDS SETL MAILCMDS.5 SET MSGLINE ON' l '2 OVERLAY'
  145.   End
  146. Exit 0
  147.