-** Write the phantom body for access-type "mail-server".
-*/
-
-static int
-writeExternalBody(CT ct, FILE *out)
-{
- char **ap, **ep, *cp;
- struct exbody *e = (struct exbody *) ct->c_ctparams;
-
- putc('\n', out);
- for (cp = e->eb_body; *cp; cp++) {
- CT ct2 = e->eb_content;
- CI ci2 = &ct2->c_ctinfo;
-
- if (*cp == '\\') {
- switch (*++cp) {
- case 'I':
- if (ct2->c_id) {
- char *dp = trimcpy(ct2->c_id);
-
- fputs(dp, out);
- free(dp);
- }
- continue;
-
- case 'N':
- for (ap = ci2->ci_attrs, ep = ci2->ci_values;
- *ap; ap++, ep++)
- if (!mh_strcasecmp(*ap, "name")) {
- fprintf(out, "%s", *ep);
- break;
- }
- continue;
-
- case 'T':
- fprintf(out, "%s/%s", ci2->ci_type,
- ci2->ci_subtype);
- for (ap = ci2->ci_attrs, ep = ci2->ci_values;
- *ap; ap++, ep++)
- fprintf(out, "; %s=\"%s\"", *ap, *ep);
- continue;
-
- case 'n':
- putc('\n', out);
- continue;
-
- case 't':
- putc('\t', out);
- continue;
-
- case '\0':
- cp--;
- break;
-
- case '\\':
- case '"':
- break;
-
- default:
- putc('\\', out);
- break;
- }
- }
- putc(*cp, out);
- }
- putc('\n', out);
-
- return OK;
-}
-
-
-/*