#!/bin/bash
# Prosty skrypt trimmailbox usuwający ze skrzynki odbiorczej
# wszystkie wiadomości oprócz czterech pierwszych. Obsługuje
# system Berkeley Mail (zwany również Mailx lub mail) i może
# wymagać dostosowania do innych systemów pocztowych.

keep=4  # Domyślnie pozostawiane są cztery najnowsze wiadomości.

totalmsgs="$(echo 'x' | mail | sed -n '2p' | awk '{print $2}')"

if [ $totalmsgs -lt $keep ] ; then
  exit 0          # Nie trzeba usuwać wiadomości.
fi

topmsg="$(( $totalmsgs - $keep ))"

mail > /dev/null << EOF
d1-$topmsg
q
EOF

exit 0
