        case 'A':
        case 'S':
	  if (!okmail)
	    break;
          close(f);
          num_mail=((long) thisuser.feedbacksent) +
                   ((long) thisuser.emailsent) +
                   ((long) thisuser.emailnet);
	  if (m.fromuser!=65535)
            email(m.fromuser,m.fromsys,0,m.anony);
          f=open(fn,O_RDWR | O_BINARY);
          num_mail1=((long) thisuser.feedbacksent) +
                    ((long) thisuser.emailsent) +
                    ((long) thisuser.emailnet);
          if (ch=='A') {
            if (num_mail!=num_mail1) {
              strcpy(s,nam(&thisuser,usernum));
              if (m.anony & anony_receiver)
                strcpy(s,">UNKNOWN<");
              strcat(s," read your mail on ");
              strcat(s,date());
              if ((m.fromsys==0) && (m.fromuser!=65535))
                ssm(m.fromuser,m.fromsys,s);
              delmail(f,mloc[curmail]);
              mloc[curmail]=-1;
              ++curmail;
              if (curmail>=mw)
                done=1;
              if (!wfc)
                topscreen();
            } else {
              nl();
              pl("No mail sent.");
              nl();
              i2=0;
            }
          } else {
            ++curmail;
            if (curmail>=mw)
              done=1;
            if (!wfc)
              topscreen();
          }
          break;
