1 /*-
2  * SPDX-License-Identifier: BSD-3-Clause
37  * Mail -- a mail program
54 	int *ip, *ip2, list[2], mdot;  in next()  local
64 		mdot = dot - &message[0] + 1;  in next()
71 		for (ip = msgvec; *ip != 0; ip++)  in next()
72 			if (*ip > mdot)  in next()
74 		if (*ip == 0)  in next()
75 			ip = msgvec;  in next()
76 		ip2 = ip;  in next()
78 			mp = &message[*ip2 - 1];  in next()
79 			if ((mp->m_flag & MDELETED) == 0) {  in next()
87 		} while (ip2 != ip);  in next()
106 		if ((mp->m_flag & (MDELETED|MSAVED)) == 0)  in next()
118 	list[0] = dot - &message[0] + 1;  in next()
136  * Copy a message to a file without affected its saved-ness
156 	int f, *msgvec, *ip;  in save1()  local
184 	for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {  in save1()
185 		mp = &message[*ip - 1];  in save1()
193 			mp->m_flag |= MSAVED;  in save1()
230 	cp = strlen(linebuf) + linebuf - 1;  in snarf()
237 		cp--;  in snarf()
245 		cp--;  in snarf()
279 	lastdot = dot - &message[0] + 1;  in deltype()
281 		list[0] = dot - &message[0] + 1;  in deltype()
302 	int *ip, last;  in delm()  local
305 	for (ip = msgvec; *ip != 0; ip++) {  in delm()
306 		mp = &message[*ip - 1];  in delm()
308 		mp->m_flag |= MDELETED|MTOUCH;  in delm()
309 		mp->m_flag &= ~(MPRESERVE|MSAVED|MBOX);  in delm()
310 		last = *ip;  in delm()
313 		dot = &message[last-1];  in delm()
316 			dot = &message[last-1];  in delm()
321 			return (-1);  in delm()
326 	 * Following can't happen -- it keeps lint happy  in delm()
329 	return (-1);  in delm()
339 	int *ip;  in undeletecmd()  local
342 	for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {  in undeletecmd()
343 		mp = &message[*ip - 1];  in undeletecmd()
346 		mp->m_flag &= ~MDELETED;  in undeletecmd()
352  * Interactively dump core on "core"
355 core(void *arg __unused)  in core()  function
360 	case -1:  in core()
371 		printf(" -- Core dumped.\n");  in core()
373 		printf(" -- Can't dump core.\n");  in core()
407 	clob1(n - 1);  in clob1()
466 		igp->i_field = calloc((unsigned)strlen(field) + 1,  in ignore1()
468 		strcpy(igp->i_field, field);  in ignore1()
469 		igp->i_link = tab->i_head[h];  in ignore1()
470 		tab->i_head[h] = igp;  in ignore1()
471 		tab->i_count++;  in ignore1()
486 	if (tab->i_count == 0) {  in igshow()
490 	ring = (char **)salloc((tab->i_count + 1) * sizeof(char *));  in igshow()
493 		for (igp = tab->i_head[h]; igp != NULL; igp = igp->i_link)  in igshow()
494 			*ap++ = igp->i_field;  in igshow()
496 	qsort(ring, tab->i_count, sizeof(char *), igcomp);  in igshow()