diff --git a/src/mb.kludge.pas b/src/mb.kludge.pas
index 83d12ac..ab19d00 100644
--- a/src/mb.kludge.pas
+++ b/src/mb.kludge.pas
@@ -111,7 +111,15 @@ begin
   if Line = '' then exit;
   isKludge := Line[1] = #1;
   upperLine := UpperCase(Line);
-  isTrailControl := (Pos('SEEN-BY:', upperLine) = 1) or
+  { FTS-0004: AREA:, SEEN-BY: and PATH: appear without ^A prefix -
+    AREA: is the echomail transport envelope, the other two are
+    FTS-4 trailing control lines.  All three belong in the attribute
+    bag so msgbase writers can store the area-tag in the slot that
+    makes sense for the format (JAM has no area field -- it's
+    implicit in the directory path -- so the attr is consumed and
+    dropped from body; Squish / SDM ditto). }
+  isTrailControl := (Pos('AREA:',    upperLine) = 1) or
+                    (Pos('SEEN-BY:', upperLine) = 1) or
                     (Pos('PATH:',    upperLine) = 1);
   if not (isKludge or isTrailControl) then exit;
 
@@ -158,6 +166,7 @@ begin
     'seen-by': AppendAttr(A, 'seen-by', value);
     'path':    AppendAttr(A, 'path',    value);
     'via':     AppendAttr(A, 'via',     value);
+    'area':    A.SetValue('area',       value);
   else
     AppendAttr(A, 'kludge.' + lower, value);
   end;