M This file contains the direction on how to implement Internet style signature  files on OpenVMS Mail.  L It also does automatic commenting (>) for replies/forwards. And it has a TPU  routine to do rot-13 encryption!  H ------------------------------------------------------------------------    2 Using automatic signature files with OpenVMS Mail.2 --------------------------------------------------  M 1: Create an empty subdirectory and create a logical name (in your login.com) M    which points to it. (I will assume in the following that this logical name     is called MAIL_COM .)  5 2: Copy the following file to MAIL_COM:MAILEDIT.COM : G START------------------------------------------------------------------ - $ p1 = f$edit("''p1'","trim,collapse,upcase") - $ p2 = f$edit("''p2'","trim,collapse,upcase") / $ if "''p2'" .nes. "" then p2 = "/output=''p2'"  $ deassign sys$inputA $ edit/tpu/comm=MAIL_COM:mail.tpu/init=MAIL_COM:mail.eve'p2' 'p1'  $ exitG STOP-------------------------------------------------------------------   > 3: Define the logical name MAIL$EDIT in your login.com, let it#    point to MAIL_COM:MAILEDIT.COM .   1 4: Copy the following file to MAIL_COM:MAIL.TPU : G START------------------------------------------------------------------  procedure tpu$local_init;      eve$x_trimming:=1;  
 endprocedure;    procedure eve_exit;   #   position(end_of(current_buffer)); 
   split_line; /   eve_include_file("sys$login:mail.signature");      eve$exit_dispatch;  
 endprocedure;    procedure eve_rot13;     if eve$x_select_position=0 then    translate(current_buffer,<      "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",=      "NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm");   else     translate(select_range,<      "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",=      "NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm");     eve$x_select_position:=0;  endif;   
 endprocedure;    procedure eve_commentify;    local      comment_range,found_range;  
   on_error%     [tpu$_controlc,tpu$_strnotfound]: 
       return;      [otherwise]:       abort;   endon_error;  !   if eve$x_select_position=0 then =     comment_range:=create_range(beginning_of(current_buffer), =                                 end_of(current_buffer),none); ;     found_range:=create_range(beginning_of(current_buffer), A                               beginning_of(current_buffer),none);    else;     comment_range:=create_range(beginning_of(select_range), ;                                 end_of(select_range),none); 9     found_range:=create_range(beginning_of(select_range), ?                               beginning_of(select_range),none);      eve$x_select_position:=0;    endif;     loop4     comment_range:=create_range(end_of(found_range),  				end_of(comment_range),none);C     found_range:=search(line_begin,forward,no_exact,comment_range); (     position(beginning_of(found_range));     copy_text(">");    endloop;    
 endprocedure; G STOP-------------------------------------------------------------------   1 5: Copy the following file to MAIL_COM:MAIL.EVE : G START------------------------------------------------------------------  eve_commentify, ! following commands are examples & optional set key edt			 tpu set(mouse,off)		 define key=gold/1 one		  define key=gold/2 two		  define key=gold/3 other		 & define key=f17 tpu set(mouse,on)      & define key=gold/f17 tpu set(mouse,off)& define key=f18 set left 5              define key=gold/f18 set left 1& define key=f19 tpu eve_rot13          G STOP-------------------------------------------------------------------   , 6: Add the following line to your login.com:  ) $ MAIL :== MAIL/EDIT=(SEND,REPLY=EXTRACT)     M 7: Create a file called SYS$LOGIN:MAIL.SIGNATURE , containing your signature! 1    This file will be added whenever you use MAIL.   K 8: Now over to Motif-MAIL. Create the following file MAIL_COM:DECMAIL.COM : G START------------------------------------------------------------------  $ delete/symbol/global/all; $ mailtpu = f$parse("mail.tpu;",f$environment("procedure")) ; $ maileve = f$parse("mail.eve;",f$environment("procedure")) # $ define/user tpu$command 'mailtpu'   $ define/user eve$init 'maileve'U $ if f$search("sys$login:*mail*.tmp").nes."" then delete/nolog sys$login:*mail*.tmp;*  $ run sys$system:decw$mail $ exitG STOP-------------------------------------------------------------------   8 9: Enter Session Manager, select Options, select Menues,9    Change the command for Mail to @MAIL_COM:DECMAIL.COM . N    If your login.com isn't set up to define logicals in all kinds of processesA    you might have to spell out the full directory specification.)   , 10: Start Motif-Mail, select Options, select5     Send Options and change editor to Decwindows EVE.   
 11: Ready!   !++ , ! Lennart Boerjeson, System Manager Emeritus1 ! (No longer at) School of Electrical Engineering  ! Royal Institute of Technology  ! S-100 44 Stockholm, Sweden ! tel: int+46-8-7907814  ! Internet: lennartb@e.kth.se  !--       