]> diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/m_gmprot.c
Create new mh-format function %(ordinal)
[nmh] / docs / historical / mh-jun-1982 / subs / m_gmprot.c
1 #ifdef COMMENT
2 Proprietary Rand Corporation, 1981.
3 Further distribution of this software
4 subject to the terms of the Rand
5 license agreement.
6 #endif
7
8 #include "../mh.h"
9 #include <stdio.h>
10
11 m_gmprot()
12 {
13 register char *cp;
14 register int prot;
15
16 if((cp = m_find("msg-protect")) != NULL)
17 prot = atooi(cp);
18 else
19 prot = atooi(msgprot);
20 return(prot);
21 }