Commit | Line | Data |
---|---|---|
6e8b8cce BJ |
1 | # print mail file |
2 | cd /usr/spool/mail | |
3 | set multi=$#argv | |
4 | if ($#argv == 0) then | |
5 | set me=`whoami` | |
6 | if (! -r $me) then | |
7 | echo No mail. | |
8 | exit(1) | |
9 | endif | |
10 | /usr/ucb/more $me | |
11 | echo 'Remove this mail [yn] ? \c' | |
12 | if (`gets n` == y) then | |
13 | rm -f $me | |
14 | endif | |
15 | else | |
16 | while ($#argv > 0) | |
17 | if (! -e $argv[1] || -z $argv[1]) then | |
18 | echo No mail for $argv[1] | |
19 | else | |
20 | echo '>>>' $argv[1] '<<<' | |
21 | /usr/ucb/more $argv[1] | |
22 | # Removed per RJ Fateman | |
23 | # if { /usr/ucb/more $argv[1] } then | |
24 | # echo 'Remove this mail [yn] ? \c' | |
25 | # if (`gets n` == y) then | |
26 | # rm -f $argv[1] | |
27 | # endif | |
28 | # endif | |
29 | endif | |
30 | shift argv | |
31 | if ($#argv > 0) then | |
32 | echo '-----\n\n' | |
33 | endif | |
34 | end | |
35 | endif |