]> diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/m_getfolder.c
Create new mh-format function %(ordinal)
[nmh] / docs / historical / mh-jun-1982 / subs / m_getfolder.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 char *m_getfolder()
12 {
13 register char *folder;
14
15 m_getdefs();
16 if((folder = m_find(pfolder)) == NULL || *folder == 0)
17 folder = defalt;
18 return(folder);
19 }