home *** CD-ROM | disk | FTP | other *** search
- 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
- From: YOUNG@tattoo.cs.widener.edu (Rob Young)
- Newsgroups: vmsnet.tpu
- Subject: Re: simple TPU procedure
- Date: 10 Sep 1992 04:59:15 GMT
- Organization: Widener University Department of Computer Science, Chester PA
- Lines: 63
- Distribution: world
- Message-ID: <18mkn3INNctm@cs.widener.edu>
- References: <BuBxJs.G9q@news.cso.uiuc.edu>
- NNTP-Posting-Host: tattoo.cs.widener.edu
- X-News-Reader: VMS NEWS 1.20
- In-Reply-To: cbl@uihepa.hep.uiuc.edu's message of Wed, 9 Sep 1992 21:11:51 GMT
-
- Chris,
-
- In <BuBxJs.G9q@news.cso.uiuc.edu> cbl@uihepa.hep.uiuc.edu writes:
-
- > Hi all,
- > I want to set up something so that when I reply to a mail
- > message in VMS mail with the \extract qualifier, the extracted
- > text is quoted in net style ie a > is inserted at the beginning
-
- ....
-
- There is a dozen different ways of doing this. Here is what I do:
-
-
- $ show log mail$edit
- "MAIL$EDIT" = "ROB:[YOUNG.MAIL]MAIL_EDIT.COM" (LNM$JOB_806784D0)
-
- $ show log eve$signature
- "EVE$SIGNATURE" = "SYS$LOGIN:.SIGNATURE" (LNM$JOB_806784D0)
-
- $ ! mail_edit.com
- $ this_dir = "''f$element(0,"]",f$environment("PROCEDURE"))']"
- $ DEFINE /USER SYS$INPUT 'F$TRNLNM("SYS$OUTPUT")'
- $ IF P1 .EQS. "" THEN GOTO NOINPUT
- $ EDIT/TPU/COMMAND='this_dir'quote.tpu /OUTPUT='P2' 'P1'
- $ EXIT
- $NOINPUT:
- $ EDIT/TPU/COMMAND='this_dir'quote.tpu 'P2'
- $ EXIT
-
- procedure eve_my_quote
-
- local
- prompt_string,comm_param,comment_string;
-
- comm_param := "";
- if (beginning_of(current_buffer) <> end_of(current_buffer))
- then
- prompt_string := "String to comment with: [" + eve$kt_comment_string + "] ";
- if not (eve$prompt_string(comm_param,comment_string,prompt_string,
- "Using Default")) then
- comment_string := eve$kt_comment_string;
- endif;
- eve$comment_buffer(current_buffer,comment_string);
- position(end_of(current_buffer));
- endif; ! Else it was an empty buffer
- split_line;
- eve_include_file("eve$signature");
- position(beginning_of(current_buffer));
-
- endprocedure;
-
- eve_my_quote; ! Quote file, include sig
-
-
- I received this from someone out there, can't recall who.
-
- Rob
-
-
- young@tattoo.cs.widener.edu
- "Bad men live that they may eat and drink, wheras good men eat and drink that
- they may live." --Socrates
-