home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / bit / listserv / mailbook / 1473 < prev    next >
Encoding:
Text File  |  1993-01-24  |  2.6 KB  |  75 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!WEIZMANN.WEIZMANN.AC.IL!VSLAWR
  3. Return-Path: <@OHSTVMA.ACS.OHIO-STATE.EDU:MAILBOOK@DEARN.BITNET>
  4. Message-ID: <MAILBOOK%93012408535309@DEARN>
  5. Newsgroups: bit.listserv.mailbook
  6. Date:         Sun, 24 Jan 1993 09:39:59 +0200
  7. Sender:       RiceMail discussion list <MAILBOOK@RICEVM1.BITNET>
  8. From:         "Lawrence S. Kalman" <VSLAWR@WEIZMANN.WEIZMANN.AC.IL>
  9. Subject:      Re: Attribution line
  10. In-Reply-To:  Message of Fri, 22 Jan 93 22:07:48 EST from <CMS2@ETSU>
  11. Lines: 62
  12.  
  13. On Fri, 22 Jan 93 22:07:48 EST Bill Williams said:
  14. >Since I am an SysProg and the PostMaster I sometimes need to REPLY to an
  15. >item  that  has been  RESENT  from  a FORWARDED  from  a  RESENT from  a
  16. >FORWARDED ...etc. which  originaltd lord knows where, and  would like to
  17. >see  additions to  the  'ALL',  'FROM', and  'SENDER'  options. Or  more
  18. >precisely  some *qualifiers*  to  the existing  so that  I  may be  real
  19. >specific.  I want  to say  something like:
  20. >    REPLY TEXT SENDER RESENT
  21. >              | FROM |
  22. >or  REPLY TEXT SENDER NORESENT or ORIGINAL
  23. >
  24. >I generally get around problems wherein I cannot get the specific I want
  25. >with the REPLY by doing a REPLY ALL and then EXCLUDE da-de-da for those
  26. >I don't want.
  27.  
  28. This problem manifests itself in so many situations that it would be futile to
  29. provide a RiceMail subcommand option for every instance.  My solution to the
  30. problem is to use the attached macro, CAPTURE XEDIT.  Type CAPTURE on the
  31. command line, move the cursor to the line containing the address to which you
  32. want to REPLY, FORWARD, or whatever, press ENTER, and voila!  All that is left
  33. to do is to replace the text preceding the address with the appropriate
  34. subcommand name and press ENTER again.
  35.  
  36. - Lawrence
  37. ------------------------------------------------------------------------
  38. /* CAPTURE XEDIT - Copy cursor line into command line        */
  39.  
  40. /* Usage: CAPTURE [col]                                      */
  41. /*        col is the column to occupy the first position in  */
  42. /*            the command line.  Default is 1.               */
  43.  
  44. Address XEDIT
  45.  
  46. Arg col .
  47. If col = '' Then col = 1
  48.  
  49. If ^Datatype(col,'W') | col <= 0
  50. Then  Do
  51.    msgparms = '543 col ( FORMAT 2'
  52.    Signal Emsg
  53. End
  54.  
  55. 'COMMAND EXTRACT /CURSOR/LINE'
  56. If cursor.3 > 0
  57. Then Do
  58.    ':'cursor.3 'COMMAND EXTRACT /CURLINE'
  59.    ':'line.1   'COMMAND CMSG' Substr(curline.3,col)
  60.    'COMMAND CURSOR CMDLINE'
  61. End
  62. Else Do
  63.    msgparms = '561'
  64.    Signal Emsg
  65. End
  66.  
  67. Exit
  68.  
  69. Emsg:
  70.  
  71.    Parse Var msgparms msgparms '(' options
  72.    Address COMMAND 'XMITMSG' msgparms '(VAR' options
  73.    'COMMAND EMSG' Substr(message.1,4)
  74.    Exit
  75.