Return to vmail CVS log

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

Annotation of researchv9/cmd/emacs/macros/vmail, revision 1.1.1.1

1.1       root        1: vVacation Mail processor
                      2: 
                      3: Warren A. Montgomery (IH6E314) Version 3.4
                      4: 
                      5: This macro processes all of your new mail, building it into $HOME/rmail
                      6: And responding with the response in $HOME/response.
                      7: 
                      8: B            Push starting buffer into kill stack
                      9: <RMAIL
                     10: goto RMAIL buffer
                     11: <$HOME/rmail
                     12: 0><$MAIL
                     13: 0>��append new mail and save
                     14: �5000-wipeout /usr/mail
                     15: Read back rmail file
                     16: ^�While more messages
                     17:        �last_mail
                     18:        ��next_mail
                     19:        B�<fiddle
                     20:        �--�         Move text into fiddle buffer
                     21:        <AUTOMATIC RESPONSE
                     22:        |�
                     23:                ��          Skip message with "AUTOMATIC RESPONSE" in it
                     24:        � B^�~�>     While next line is '>'
                     25:                |��~�*  If not Forwarding line
                     26:                        ���+<!
                     27:                        +��           This line processed
                     28:                &�Move on
                     29:        &��^��~~� �Skip to space
                     30:        �      Pick up target user
                     31:        ��%And pick up sending time
                     32:        �last_mail
                     33:        ��next_mail
                     34:        �<Mail
                     35:        To: %-
                     36:        Subject: Your Message Sent: %-
                     37: 
                     38:        AUTOMATIC RESPONSE
                     39:        <fill
                     40:        �
Fill mode on
                     41:        <$HOME/response
                     42:        Reply to mail
                     43:        �Sign_mail
                     44:        �      Sign and send
                     45:        -<$HOME/.mail_reply
                     46:        <fill
                     47:        
B%Back to RMAIL
                     48: ���
                     49: next_mail Go to next mail entry
                     50: <^From 
                     51: |�   search for next From
                     52:        ���
                     53:        � ���
                     54: last_mail Go to last mail entry
                     55: <^From 
                     56: |�   Search backwords for a From
                     57:        �-2��
                     58:        � ���
                     59: Sign_mail
                     60: 
                     61: |�Look for what kind of mail
                     62:        ��<@
                     63:        ���<$HOME/.sig_arpa
                     64:        �      Arpanet mail
                     65:        ��<!
                     66:        ���<$HOME/.sig_btl
                     67:        �      btl mail
                     68:        �      Default, local mail
                     69:        <$HOME/.sig_local
                     70:        ��
                     71: ���        Read in signature (If any)
                     72: |�� �      If this worked, do nothing
                     73:        � <$HOME/.signature
                     74:        �   Read in default signature
                     75: ��

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