+# makemmdf_A mmdfboxname sz
+# The first email in $MBOX will be sz bytes long, including its MMDF
+# magic strings that top and tail it.
+makemmdf_A () {
+ MBOX="$1"
+ SZ=$2
+
+ arith_eval $SZ - $MMDFDELIMLINESZ - $HDRSZ - 1 - $MMDFDELIMLINESZ; WANTSZ=$arith_val
+ dd if="$FILLER" of="$MBOX.body" bs="$WANTSZ" count=1 2>/dev/null
+ echo >> "$MBOX.body"
+ #### The trailing $MMDF_DELIM's allows $MBOX to exactly match a file
+ #### created by packf.
+ (eval "$MMDF_DELIM"; cat "$HDR" "$MBOX.body"; eval "$MMDF_DELIM"; \
+ eval "$MMDF_DELIM"; cat "$HDR" "$FILLER"; eval "$MMDF_DELIM") > "$MBOX"
+}
+