Return to mmail CVS log

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

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

1.1       root        1: next-mail Go to next mail entry
                      2: <^From 
                      3: |������ ���
                      4: last-mail go to last mail entry
                      5: <^From 
                      6: |���2��� ���
                      7: sign-mail sign mail entry
                      8: |�����<!
                      9: �<$HOME/.sig_btl
                     10: �� <$HOME/.sig_local
                     11: ���|���4�if file read in OK, then do nothing
                     12: � <$HOME/.signature
                     13: �4��
                     14: compose-mail compose and send mail item
                     15: kill stack contains:
                     16:               text of message being replied to
                     17:               address of new mail
                     18:               buffer to return to
                     19:       
                     20: old value of fill mode
                     21: <Mail
                     22: to mail buffer
                     23: To: %-make address
                     24: 
                     25: Subject: compose subject line
                     26: ���<fill
                     27: 
�<fill
                     28: �
���|��if the user left something in the buffer
                     29: �sign-mail
                     30: put on user's signature
                     31: <$HOME/.mail_reply
                     32: ���save mail and mail it
                     33: -pop off previous message
                     34: B%
                     35: rRMAIL mail processing subsystem
                     36: Warren Montgomery, version 4.7
                     37: ��B<RMAIL
                     38: go to RMAIL buffer
                     39: <$HOME/rmail
                     40: �>�1don't complain if no rmail file
                     41: <$MAIL
                     42: �>��now have the new mail in rmail, wipe out old mail.
                     43: ��000-empty out the buffer
                     44: now back to old mail
                     45: ^��~����get display in shape
                     46: !��<RMAIL?
                     47: loop until user exits
                     48: ���exit from rmail
                     49: �n�next-mail
                     50: �next message
                     51: �p�last-mail
                     52: �last message
                     53: ���m�<getmail
                     54: �go to end and run getmail
                     55: B<.exec
                     56: ���pickup-region text
                     57: %-bring it back
                     58: ��N�<news
                     59: �unix news
                     60: B<.exec
                     61: <(.*).*:..:
                     62: �>^���while more news items
                     63: �pickup sender
                     64: &�From-��>�-��000pick up whole buffer
                     65: %-��w�last-mail
                     66: ��next-mail
                     67: B�get message
                     68: <Mail
                     69: -|���<Write mail to File? 
                     70: �� -��B%�last-mail
                     71: ��d�last-mail
                     72: ��next-mail
                     73: delete message
                     74: %�stack deleted message
                     75: �u%-bring back last message 
                     76: �last-mail
                     77: ��e�last-mail
                     78: ���g��>��last-mail
                     79: ��<��next-mail
                     80: ��!|���<Command? 
                     81: ��<Continue?
                     82: �� -����sB<
                     83: <
                     84: �compose-mail
                     85: ��r�last-mail
                     86: Breply, first find the reply address
                     87: ^�~�>while next line starts with a >
                     88: |���~�*���+<!
                     89: +��process forwarding address
                     90: &�move to next header line
                     91: all forwarding lines are now processed, now get the user address
                     92: &�Skip the From
                     93: �^��~�~� �skip until next space
                     94: �pickup user name
                     95: �last-mail
                     96: ��next-mail
                     97: �pickup mail message
                     98: �compose-mail
                     99: ��P�last-mail
                    100: ��next-mail
                    101: B�pick up message
                    102: <Mail
                    103: -<$PRINTER
                    104: �run user's printer command
                    105: B%��?B<Mail
                    106: help function, to to temp buffer
                    107: <~EMACS/macros/rmail_help
                    108: ��<Continue? 
                    109: B%����anything else, just ring
                    110: ��

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