Commit | Line | Data |
---|---|---|
0f5e4452 KS |
1 | /* Copyright (c) 1979 Regents of the University of California */ |
2 | # | |
3 | ||
4 | /* | |
5 | * Mail -- a mail program | |
6 | * | |
7 | * Version 7 | |
8 | * | |
9 | * Local routines that are installation dependent. | |
10 | * All fiddlers please note: if you make careful note of | |
11 | * what you change here, I will incorporate your changes and | |
12 | * you won't have to remake them each release. | |
13 | */ | |
14 | ||
15 | #include "rcv.h" | |
16 | ||
17 | /* | |
18 | * Locate the user's mailbox file (ie, the place where new, unread | |
19 | * mail is queued). In Version 7, it is in /usr/spool/mail/name. | |
20 | */ | |
21 | ||
22 | findmail() | |
23 | { | |
24 | register char *cp; | |
25 | ||
26 | cp = copy("/usr/spool/mail/", mailname); | |
27 | copy(myname, cp); | |
28 | } | |
29 | ||
30 | /* | |
31 | * Get rid of the queued mail. | |
32 | */ | |
33 | ||
34 | demail() | |
35 | { | |
36 | unlink(mailname); | |
37 | } | |
38 | ||
39 | /* | |
40 | * A stub for the mailfile locking stuff. | |
41 | */ | |
42 | ||
43 | lock(name) | |
44 | char name[]; | |
45 | { | |
46 | ||
47 | return(0); | |
48 | } | |
49 | ||
50 | unlock() | |
51 | { | |
52 | ||
53 | return(0); | |
54 | } |