Return to rmail CVS log

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

researchv9-SUN3(old)

next-mail Go to next mail entry
<^From 
|������ ���
last-mail go to last mail entry
<^From 
|���2��� ���
sign-mail sign mail entry
|�����<!
�<$HOME/.sig_btl
�� <$HOME/.sig_local
���|���4�if file read in OK, then do nothing
� <$HOME/.signature
�4��
compose-mail compose and send mail item
kill stack contains:
		text of message being replied to
		address of new mail
		buffer to return to
	
old value of fill mode
<Mail
to mail buffer
To: %-make address

Subject: compose subject line
���<fill

�<fill
�
���|��if the user left something in the buffer
�sign-mail
put on user's signature
<$HOME/.mail_reply
���save mail and mail it
-pop off previous message
B%
rrmail mail processing subsystem
Warren Montgomery, version 4.7
��|���is-netty
�rmail-menu
��B<RMAIL
go to RMAIL buffer
<$HOME/rmail
�>�1don't complain if no rmail file
<$MAIL
�>��now have the new mail in rmail, wipe out old mail.
��000-empty out the buffer
now back to old mail
^��~����get display in shape
!��<RMAIL?
loop until user exits
�|���is-netty
�standard-menu
����exit from rmail
�n�next-mail
�next message
�p�last-mail
�last message
���m�<Mail
<$MAIL
�000<$MAIL
<RMAIL
-��N�<news
�unix news
B<.exec
<(.*).*:..:
�>^���while more news items
�pickup sender

�From-��>�-��000pick up whole buffer
%-��w�last-mail
��next-mail
B�get message
<Mail
-|���<Write mail to File? 
�� -��B%�last-mail
��d�last-mail
��next-mail
delete message
%�stack deleted message
�u%-bring back last message 
�last-mail
��e�last-mail
���g��>��last-mail
��<��next-mail
��!|���<Command? 
��<Continue?
�� -����sB<
<
�compose-mail
��r�last-mail
Breply, first find the reply address
^�~�>while next line starts with a >
|���~�*���+<!
+��process forwarding address

�move to next header line
all forwarding lines are now processed, now get the user address

�Skip the From
�^��~�~� �skip until next space
�pickup user name
�last-mail
��next-mail
�pickup mail message
�compose-mail
��P�last-mail
��next-mail
B�pick up message
<Mail
-<$PRINTER
�run user's printer command
B%��?B<Mail
help function, to to temp buffer
<~EMACS/macros/rmail_help
��<Continue? 
B%����anything else, just ring
��
rmail-menu initialize menu for rmail
�<M@!Standard Menu!m@!s!
�<MA!Next Letter!mA!n!
�<MB!Previous Letter!mB!p!
�<MC!First Letter!mC!<!
�<MD!Last Letter!mD!>!
�<ME!Delete!mE!d!
�<MF!Undelete!mF!u!
�<MG!Save Letter!mG!w!
�<MH!Reply!mH!r!
�<MI!Send Letter!mI!s!
�<MJ!Edit Mail!mJ!e!
�<MK!Exit!mK!!
�<ML!!mL!!


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