home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 21858 < prev    next >
Encoding:
Internet Message Format  |  1993-01-24  |  2.3 KB
  1. Path: sparky!uunet!comp.vuw.ac.nz!zl2tnm!toyunix!don
  2. Newsgroups: comp.os.vms
  3. Subject: Re: TPU mail quoting procedure available?
  4. Message-ID: <16592023@zl2tnm.gen.nz>
  5. From: don@zl2tnm.gen.nz (Don Stokes)
  6. Date: 24 Jan 93 08:29:09 GMT
  7. Sender: news@zl2tnm.gen.nz (GNEWS Version 2.0 news poster.)
  8. References: <1jtc4kINNmu8@usenet.INS.CWRU.Edu>
  9. Distribution: world
  10. Organization: The Wolery
  11. Lines: 44
  12.  
  13. cg656@cleveland.Freenet.Edu (Michael O. Bartz) writes:
  14. > 
  15. > I am currently using a TPU file that has the ability to quote
  16. > a message when replied with REPLY/EXTRACT in mail.  It's something that
  17. > I whipped up that simply looks until it finds a blank line and
  18. > then it deletes everything above it.  Then it quotes the rest of
  19. > the message.  Simple!  However not so simple since mail is in this form:
  20. > 
  21. >       non-local                            local mail
  22. > 
  23. > [vax 4 line header]             |     [vax 4 line header]
  24. >      S P A C E                  |         S P A C E
  25. > [the rest of the net-headers]   |     [body of message]
  26. >      S P A C E                  |
  27. > [body of message]               |
  28. > 
  29. > So the problem is that the TPU procedure can't tell the difference
  30. > between net-mail headers and the body of the message.  If I call the
  31. > procedure twice, it will delete the first paragraph of local mail.
  32.  
  33. Well, obviously, you're going to need more smarts than that.  What I do
  34. (in EDT) is to go down _two_ paragraphs, search backward for a "From:"
  35. (be it a VMS header or a net header --  most mailers duplicate the From:
  36. line in the "in-body" headers), go to the end of the paragraph and delete
  37. everything from the beginning of the buffer to the current position.  If
  38. it's not a network message, you may lose the first paragraph if it contains
  39. a "From:".  Them's the breaks.
  40.  
  41. In EDT:
  42.  
  43. change;br ((+2par) -"From:" +par dbr) ex
  44.  
  45. For completeness, my EDT "remove header, quote & sign" macro goes:
  46.  
  47. change;br ((+2par) (-"From:" +par dbr) br 32767(i>^Z ll -v) ^M sel ^M^M) ex
  48. include SYS$LOGIN:SIG.TXT
  49. change; -sr ex
  50.  
  51. You will of course need to write a longer procedure for TPU.
  52.  
  53. --
  54. Don Stokes, ZL2TNM (DS555)                        don@zl2tnm.gen.nz (home)
  55. Network Manager, Computing Services Centre            don@vuw.ac.nz (work)
  56. Victoria University of Wellington, New Zealand              +64-4-495-5052
  57.