XXX the stupid pop() in filter_mail

diff --git a/minc b/minc
index 6837e19b7e7bd0065200c0d965b56759129205e8..f9457810e20126f316eb34172b8b3380a13ab2dc 100755 (executable)
--- a/minc
+++ b/minc
@@ -586,6 +586,8 @@ sub filter_mail {
             print(' ' x $COLUMNS);
             printf("\r\%-${nf}s \%${nm}d \%-${nF}s \%s\n",
                    substr($mhfolder, 0, $nf), substr($msgnum, 0, $nm),
+                   # XXX shouldn't pop, as these are about to be
+                   # passed to post_store_hooks
                    substr(pop(@{$headers{'from'}}), 0, $nF),
                    substr(pop(@{$headers{'subject'}}), 0, $ns))
         }