![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mail CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / emacs / macros|
Return to mail CVS log | Up to [Research Unix] / researchv9 / cmd / emacs / macros |
1.1 root 1: � runs the mail processing subsystem [MACRO]
2:
3: B save the name of the current buffer
4: <mail
5: goto mail buffer
6: |� check if should be special file
7: �1~ 0<
8: <Mail file to use?
9: � else read new mail
10: � 0<Retrieving Mail
11: 0 indicate that execution is in progress
12: <$MAIL
13: -��� empty mail file
14: <$HOME/mbox
15: ��
16: F- get (or create) the mailbox file
17: �� mark the end of the old mail
18: - append new mail and save
19: go to the top of the new mail
20: <lnumb
21: 2�0
turn off lnumb mode (save old value)
22: 11 0 go to one window mode
23: loop until 1 is returned
24: ^�8~!�-<mail?
25: � exit mail
26: save mail file
27: B% display old buffer and kill this one
28: <lnumb
29: 2
restore old lnumb mode
30: � return 1 to exit loop
31: �? help display
32: B<Mail
33: <~EMACS/macros/mail_help
34: 0-<Continue?
35: B% kill Mail buffer
36: 1 00� redisplay and return 0
37: �!s shell escape
38: 1 00�
39: � refresh screen
40: 1 00�
41: �<��Next
42: 1 00� first message
43: �>��Last
44: 1 00� last message
45: �n�Next
46: 1 00� next message
47: �p�Last
48: 1 00� previous message
49: ��skip_down
50: 00� next page
51: � �skip_down
52: 00� next page
53: ��skip_up
54: 00� previous page
55: �l look for next From in newsletters
56: <^From
57: �� move next From to top of screen
58: 00�
59: �d�Mark
60: delete message
61: % swap it and the buffer name
62: 1 00� redisplay and return 0
63: �u%- undelete message
64: �Last
65: 1 00� redisplay and return 0
66: �f forward message
67: �Put
68: <${MAILER:-mail}
69: +<Forward to?
70: �
71: B% display mail buffer & kill temp buffer
72: 1 00� redisplay and return 0
73: �w write message to file
74: �Put
75: <Write mail to File?
76:
77: B% display mail buffer & kill temp buffer
78: 0� replace cursor and return 0
79: �eB edit mail buffer
80: �Last
81: restore mail buffer if other buffer displayed
82: 1 00� redisplay and return 0
83: �s send message
84: <Mail
85: 2To:
86: Subject: insert message header
87: �reply_send
88: 1 00� redisplay and return 0
89: �r reply to message
90: �Mark
91: � push original message
92: <Mail
93: 2� switch to Mail buffer and get message
94: ^�~�> While next line is '>'
95: |��~�* If not Forwarding line
96: ���+<!
97: +�� This line processed
98: &� Move on
99: &� get to start of sender string
100: ^�2~� while less than a blank
101: �+ append word to string
102: �<
103: then get subject
104: |� ��<^[Ss]ubj.*:
105: � � if line starts with some subject line
106: � � get line after :
107: �
108: |� ��<^[rR]e:
109: � �
110: � � If a subject get line after :
111: � <
112: �� put in a space if no subject
113: ��
114: ���- throw away message
115: To: %- address reply buffer
116: Subject:-
117: �reply_send
118: - pop the original message
119: 1 00� redisplay and return 0
120: �N unix news
121: <news
122: �News
123: 00�
124: �U Usenet news
125: <if nchk;then netnews -p;fi
126: �News
127: 00�
128: �P print message
129: �Put
130: <8by11
131: �
132: B% display mail buffer & kill temp buffer
133: 1 00� redisplay and return 0
134: �A append message to BLFP add file and delete
135: �Put
136: <add
137: append message to file
138: B% display mail buffer & kill temp buffer
139: % delete message so it can be undeleted
140: 1 00� redisplay and return 0
141: �C append message to BLFP con file and delete
142: �Put
143: <con
144: append message to file
145: B% display mail buffer & kill temp buffer
146: % delete message so it can be undeleted
147: 1 00� redisplay and return 0
148: ��
149: Next
150: go to the next mail header
151: <^From
152: |� search for next From
153: ���
154: � ���
155: Last
156: back up to the last mail header
157: <^From
158: |� Search backwords for a From
159: �-2��
160: � ���
161: Mark
162: mark this message for deletion or putting on the kill stack
163: �Last
164: ��Next
165:
166: Put
167: put this message in the Mail buffer
168: �Mark
169: B�<Mail
170: -�
171: reply_send
172: common code for sending and replying to a message
173:
174: Cc:
175:
176: � put cursor at end of first line
177: <fill
178: �
set fill mode (save old value)
179: <usilent
180: 3�0
turn off usilent mode (save old value)
181: <$HOME/.mail_reply
182: add a file name to keep autosave mode happy
183: |� �<Mail
184: �Sign
185: if successfull edit, then sign, save the message,
186: �� and mail
187: �
188: else save the partial message
189: <usilent
190: 3
restore old usilent mode value
191: <fill
192:
restore old fill mode value
193: B return to other buffer & kill reply buffer
194: 1 restore one window mode
195: <mail
196: display mail buffer in case other file was displayed
197:
198: News
199: 0<Retrieving News
200: 0 indicate that execution is in progress
201: <usilent
202: 3�
turn on usilent mode (save old value)
203: �B<.exec
204: <(.*).*:..:
205: 0>^�� while we find a search string
206: �&From -0>�
207: -���� put the news on the kill stack
208: � mark .exec as up-to-date
209: %�-1 go to beginning and set at top of page
210: <usilent
211: 3
restore old usilent mode
212: clear message line
213: 0<
214:
215: Sign
216:
217: |� Look for what kind of mail
218: ��<@
219: �� �<$HOME/.sig_arpa
220: � Arpanet mail
221: ��<!
222: �� �<$HOME/.sig_btl
223: � btl mail
224: � Default, local mail
225: <$HOME/.sig_local
226: ��
227: ��� Read in signature (If any)
228: |�� � If this worked, do nothing
229: � <$HOME/.signature
230: � Read in default signature
231: ��
232: skip_down go to next page with cursor at top
233: ^��~ while not at end of file after moving
234: �~�=�1� and not off the screen
235: � then put this line at the top of a page
236:
237: skip_up go to previous page with cursor at top
238: �0 get previous page on screen
239: �= and go up the number of the line on the screen
240:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.