Return to vmail CVS log

Up to [Research Unix] / researchv9 / cmd / emacs / macros

researchv9-SUN3(old)

vVacation Mail processor

Warren A. Montgomery (IH6E314) Version 3.4

This macro processes all of your new mail, building it into $HOME/rmail
And responding with the response in $HOME/response.

B		Push starting buffer into kill stack
<RMAIL
goto RMAIL buffer
<$HOME/rmail
0><$MAIL
0>��append new mail and save
�5000-wipeout /usr/mail
Read back rmail file
^�While more messages
	�last_mail
	��next_mail
	B�<fiddle
	�--�		Move text into fiddle buffer
	<AUTOMATIC RESPONSE
	|�
		��		Skip message with "AUTOMATIC RESPONSE" in it
	� B^�~�>	While next line is '>'
		|��~�*	If not Forwarding line
			���+<!
			+��		This line processed
		
�Move on
	
��^��~~� �Skip to space
	�	Pick up target user
	��%And pick up sending time
	�last_mail
	��next_mail
	�<Mail
	To: %-
	Subject: Your Message Sent: %-

	AUTOMATIC RESPONSE
	<fill
	�
Fill mode on
	<$HOME/response
	Reply to mail
	�Sign_mail
	�	Sign and send
	-<$HOME/.mail_reply
	<fill
	
B%Back to RMAIL
���
next_mail Go to next mail entry
<^From 
|�	search for next From
	���
	� ���
last_mail Go to last mail entry
<^From 
|�	Search backwords for a From
	�-2��
	� ���
Sign_mail

|�Look for what kind of mail
	��<@
	���<$HOME/.sig_arpa
	�	Arpanet mail
	��<!
	���<$HOME/.sig_btl
	�	btl mail
	� 	Default, local mail
	<$HOME/.sig_local
	��
���	Read in signature (If any)
|�� �	If this worked, do nothing
	� <$HOME/.signature
	�	Read in default signature
��

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.