+# return the standard directory line for this ref
+sub dir
+{
+ my $ref = shift;
+ return sprintf "%6d%s%s%5d %8.8s %8.8s %-6.6s %5.5s %-30.30s",
+ $ref->msgno, $ref->read ? '-' : ' ', $ref->private ? 'p' : ' ', $ref->size,
+ $ref->to, $ref->from, cldate($ref->t), ztime($ref->t), $ref->subject;
+}
+