|
|
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.