home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / vmsnet / tpu / 405 < prev    next >
Encoding:
Internet Message Format  |  1992-09-09  |  2.3 KB

  1. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!wupost!usc!elroy.jpl.nasa.gov!ames!agate!usenet.ins.cwru.edu!ukma!cs.widener.edu!cs.widener.edu!usenet
  2. From: YOUNG@tattoo.cs.widener.edu (Rob Young)
  3. Newsgroups: vmsnet.tpu
  4. Subject: Re: simple TPU procedure
  5. Date: 10 Sep 1992 04:59:15 GMT
  6. Organization: Widener University Department of Computer Science, Chester PA
  7. Lines: 63
  8. Distribution: world
  9. Message-ID: <18mkn3INNctm@cs.widener.edu>
  10. References: <BuBxJs.G9q@news.cso.uiuc.edu>
  11. NNTP-Posting-Host: tattoo.cs.widener.edu
  12. X-News-Reader: VMS NEWS 1.20
  13. In-Reply-To: cbl@uihepa.hep.uiuc.edu's message of Wed, 9 Sep 1992 21:11:51 GMT
  14.  
  15. Chris,
  16.  
  17. In <BuBxJs.G9q@news.cso.uiuc.edu> cbl@uihepa.hep.uiuc.edu writes:
  18.  
  19. > Hi all,
  20. >   I want to set up something so that when I reply to a mail
  21. > message in VMS mail with the \extract qualifier, the extracted
  22. > text is quoted in net style ie a > is inserted at the beginning
  23.  
  24. ....
  25.  
  26. There is a dozen different ways of doing this.  Here is what I do:
  27.  
  28.  
  29. $ show log mail$edit
  30.    "MAIL$EDIT" = "ROB:[YOUNG.MAIL]MAIL_EDIT.COM" (LNM$JOB_806784D0)
  31.  
  32. $ show log eve$signature
  33.    "EVE$SIGNATURE" = "SYS$LOGIN:.SIGNATURE" (LNM$JOB_806784D0)
  34.  
  35. $ ! mail_edit.com
  36. $ this_dir = "''f$element(0,"]",f$environment("PROCEDURE"))']" 
  37. $ DEFINE /USER SYS$INPUT 'F$TRNLNM("SYS$OUTPUT")'
  38. $ IF P1 .EQS. "" THEN GOTO NOINPUT
  39. $ EDIT/TPU/COMMAND='this_dir'quote.tpu /OUTPUT='P2' 'P1'
  40. $ EXIT
  41. $NOINPUT:
  42. $ EDIT/TPU/COMMAND='this_dir'quote.tpu 'P2' 
  43. $ EXIT
  44.  
  45. procedure eve_my_quote
  46.  
  47.     local
  48.     prompt_string,comm_param,comment_string;
  49.  
  50.     comm_param := "";
  51.     if (beginning_of(current_buffer) <> end_of(current_buffer))
  52.         then
  53.     prompt_string := "String to comment with: [" + eve$kt_comment_string + "] ";
  54.     if not (eve$prompt_string(comm_param,comment_string,prompt_string,
  55.         "Using Default")) then
  56.       comment_string := eve$kt_comment_string;
  57.     endif;
  58.     eve$comment_buffer(current_buffer,comment_string);
  59.     position(end_of(current_buffer));
  60.     endif;  ! Else it was an empty buffer
  61.     split_line;
  62.     eve_include_file("eve$signature");
  63.     position(beginning_of(current_buffer));
  64.  
  65. endprocedure;
  66.  
  67. eve_my_quote;  ! Quote file, include sig
  68.  
  69.  
  70. I received this from someone out there, can't recall who.  
  71.  
  72.                 Rob
  73.  
  74.  
  75.                                                      young@tattoo.cs.widener.edu
  76. "Bad men live that they may eat and drink, wheras good men eat and drink that 
  77.   they may live."  --Socrates         
  78.