appl/popper/pop_dele.c

   1 /*
   2  * Copyright (c) 1989 Regents of the University of California.
   3  * All rights reserved.  The Berkeley software License Agreement
   4  * specifies the terms and conditions for redistribution.
   5  */
   6
   7 #include <popper.h>
   8 RCSID("$Id$");
   9
  10 /*
  11  *  dele:   Delete a message from the POP maildrop
  12  */
  13 int
  14 pop_dele (POP *p)
  15 {
  16     MsgInfoList     *   mp;         /*  Pointer to message info list */
  17     int                 msg_num;
  18
  19     /*  Convert the message number parameter to an integer */
  20     msg_num = atoi(p->pop_parm[1]);
  21
  22     /*  Is requested message out of range? */
  23     if ((msg_num < 1) || (msg_num > p->msg_count))
  24         return (pop_msg (p,POP_FAILURE,"Message %d does not exist.",msg_num));
  25
  26     /*  Get a pointer to the message in the message list */
  27     mp = &(p->mlp[msg_num-1]);
  28
  29     /*  Is the message already flagged for deletion? */
  30     if (mp->del_flag)
  31         return (pop_msg (p,POP_FAILURE,"Message %d has already been deleted.",
  32             msg_num));
  33
  34     /*  Flag the message for deletion */
  35     mp->del_flag = TRUE;
  36
  37 #ifdef DEBUG
  38     if(p->debug)
  39         pop_log(p, POP_DEBUG,
  40                 "Deleting message %u at offset %ld of length %ld\n",
  41                 mp->number, mp->offset, mp->length);
  42 #endif /* DEBUG */
  43
  44     /*  Update the messages_deleted and bytes_deleted counters */
  45     p->msgs_deleted++;
  46     p->bytes_deleted += mp->length;
  47
  48     /*  Update the last-message-accessed number if it is lower than
  49         the deleted message */
  50     if (p->last_msg < msg_num) p->last_msg = msg_num;
  51
  52     return (pop_msg (p,POP_SUCCESS,"Message %d has been deleted.",msg_num));
  53 }