nb-mails

diff --git a/etc/bashrc.function b/etc/bashrc.function
index a8627f2f32167be498fa9171dcd0f2af7f9978c1..98660108d4f9d0823be8a6a5b303650c3253302a 100644 (file)
--- a/etc/bashrc.function
+++ b/etc/bashrc.function
@@ -48,7 +48,8 @@ if ($_ eq "") {
   next;
 }
 /^(Date|Subject|From): (.*)$/ and $h{$1} = $2;
-END { for (reverse @m) { printf "%20.20s | %16.16s | %s\n",@$_; }}
+END { for (reverse sort {$a[1] cmp $b[1]}  @m) { printf "%20.20s | %16.16s | %s\n",@$_; }}
+#END { for (reverse @m) { printf "%20.20s | %16.16s | %s\n",@$_; }}
 '
   #printf 'f *\nx\n' | mail |  perl -e '@_=<>; shift @_; print shift @_; print reverse @_'
 }