🚀 go-pugleaf

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