|
|
1.1 root 1: #
2:
3: /*
4: * Mail -- a mail program
5: *
6: * Version 7
7: *
8: * Local routines that are installation dependent.
9: */
10:
11: #include "rcv.h"
12:
13: /*
14: * Locate the user's mailbox file (ie, the place where new, unread
15: * mail is queued). In Version 7, it is in /usr/spool/mail/name.
16: */
17:
18: findmail()
19: {
20: register char *cp;
21:
22: cp = copy("/usr/spool/mail/", mailname);
23: copy(myname, cp);
24: }
25:
26: /*
27: * Get rid of the queued mail.
28: */
29:
30: demail()
31: {
32:
33: remove(mailname);
34: }
35:
36: /*
37: * Discover user login name.
38: */
39:
40: username(uid, namebuf)
41: char namebuf[];
42: {
43:
44: return(getname(uid, namebuf));
45: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.