BSD 3 development

[unix-history] / .ref-BSD-2 / src / Mail / cmd1.c

/* Copyright (c) 1979 Regents of the University of California */
#
#include "rcv.h"
#include <sys/stat.h>

/*
* Mail -- a mail program
*
* User commands.
*/

/*
* Print the current active headings.
*/

headers(argv)
       char **argv;
{
       register int mesg, flag;
       register struct message *mp;
       char c, *str;
       static screen;

       str = argv[0];
       if (argcount(argv) == 0)
               c = 0;
       else
               c = str[0];
       if (c) {
               switch (c) {
               case '0':
                       /*
                        * Go back to top.
                        */
                       screen = 0;
                       break;

               case '+':
                       /*
                        * scroll down.
                        */
                       screen++;
                       break;

               case '-':
                       /*
                        * scroll up.
                        */
                       screen--;
                       break;
               }
               if (screen < 0)
                       screen = 0;
       }
       mp = &message[screen * SCREEN];
       if (mp > &message[msgCount])
               mp = &message[msgCount - SCREEN];
       if (mp < &message[0])
               mp = &message[0];
       flag = 0;
       mesg = mp - &message[0];
       dot = mp;
       for (; mp < &message[msgCount]; mp++) {
               mesg++;
               if (mp->m_flag & MDELETED)
                       continue;
               if (flag++ >= SCREEN)
                       break;
               printhead(mesg);
               sreset();
       }
       if (flag == 0) {
               printf("No more messages.\n");
               return(1);
       }
       return(0);
}

/*
* Print out the headlines for each message
* in the passed message list.
*/

from(msgvec)
       int *msgvec;
{
       register int *ip;

       for (ip = msgvec; *ip != NULL; ip++) {
               printhead(*ip);
               sreset();
       }
       if (--ip >= msgvec)
               dot = &message[*ip - 1];
       return(0);
}

/*
* Print out the header of a specific message.
* This is a slight improvement to the standard one.
*/

printhead(mesg)
{
       struct message *mp;
       FILE *ibuf;
       char headline[LINESIZE], wcount[10], *subjline, dispc;
       int s;
       struct headline hl;
       register char *cp;

       mp = &message[mesg-1];
       ibuf = setinput(mp);
       readline(ibuf, headline);
       subjline = hfield("subj", mp);

       /*
        * Bletch!
        */

       if (subjline != NOSTR)
               subjline[29] = '\0';
       if (mp->m_flag & MSAVED)
               dispc = '*';
       else if (mp->m_flag & MPRESERVED)
               dispc = 'P';
       else
               dispc = ' ';
       parse(headline, &hl);
       sprintf(wcount, " %d/%d", mp->m_lines, mp->m_size);
       s = strlen(wcount);
       cp = wcount + s;
       while (s < 7)
               s++, *cp++ = ' ';
       *cp = '\0';
       if (subjline != NOSTR)
               printf("%c%3d %-8s %16.16s %s \"%s\"\n", dispc, mesg,
                   hl.l_from, hl.l_date, wcount, subjline);
       else
               printf("%c%3d %-8s %16.16s %s\n", dispc, mesg,
                   hl.l_from, hl.l_date, wcount);
}

/*
* Print out the value of dot.
*/

pdot()
{
       printf("%d\n", dot - &message[0] + 1);
       return(0);
}

/*
* Print out all the possible commands.
*/

pcmdlist()
{
       register struct cmd *cp;
       register int cc;
       extern struct cmd cmdtab[];

       printf("Commands are:\n");
       for (cc = 0, cp = cmdtab; cp->c_name != NULL; cp++) {
               cc += strlen(cp->c_name) + 2;
               if (cc > 72) {
                       printf("\n");
                       cc = strlen(cp->c_name) + 2;
               }
               if ((cp+1)->c_name != NOSTR)
                       printf("%s, ", cp->c_name);
               else
                       printf("%s\n", cp->c_name);
       }
       return(0);
}

/*
* Go to the previous message and type it.
* If at the top, just bitch.
*/

previous(argv)
       char **argv;
{
       register struct message *mp;
       register int c;
       int list[2];

       c = 1;
       if (argcount(argv) != 0)
               c = atoi(argv[0]);
       while (c--) {
               mp = dot;
               mp--;
               if (mp < &message[0]) {
                       printf("Nonzero address required\n");
                       return(0);
               }
               dot = mp;
       }
       list[0] = dot - &message[0] + 1;
       list[1] = NULL;
       return(type(list));
}

/*
* Type out the messages requested.
*/

type(msgvec)
       int *msgvec;
{
       register *ip;
       register struct message *mp;
       register int mesg;
       int c;
       FILE *ibuf;

       for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
               mesg = *ip;
               touch(mesg);
               mp = &message[mesg-1];
               dot = mp;
               print(mp);
       }
       return(0);
}

/*
* Print the indicated message on standard output.
*/

print(mp)
       register struct message *mp;
{

       if (value("quiet") == NOSTR)
               printf("Message %2d:\n", mp - &message[0] + 1);
       touch(mp - &message[0] + 1);
       send(mp, stdout);
}

/*
* Print the top so many lines of each desired message.
* The number of lines is taken from the variable "toplines"
* and defaults to 5.
*/

top(msgvec)
       int *msgvec;
{
       register int *ip;
       register struct message *mp;
       register int mesg;
       int c, topl, lines, lineb;
       char *valtop, linebuf[LINESIZE];
       FILE *ibuf;

       topl = 5;
       valtop = value("toplines");
       if (valtop != NOSTR) {
               topl = atoi(valtop);
               if (topl < 0 || topl > 10000)
                       topl = 5;
       }
       lineb = 1;
       for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
               mesg = *ip;
               touch(mesg);
               mp = &message[mesg-1];
               dot = mp;
               if (value("quiet") == NOSTR)
                       printf("Message %2d:\n", mesg);
               ibuf = setinput(mp);
               c = mp->m_lines;
               if (!lineb)
                       printf("\n");
               for (lines = 0; lines < c && lines <= topl; lines++) {
                       if (readline(ibuf, linebuf) <= 0)
                               break;
                       puts(linebuf);
                       lineb = blankline(linebuf);
               }
       }
       return(0);
}

/*
* Touch all the given messages so that they will
* get mboxed.
*/

stouch(msgvec)
       int msgvec[];
{
       register int *ip;

       for (ip = msgvec; *ip != 0; ip++) {
               touch(*ip);
               dot = &message[*ip-1];
       }
       return(0);
}