#!/bin/bash

SENDER="$1"
[ -z "$SENDER" ] && echo "Usage : $0 [sender]" && exit 1

for ID in $( mail_from_sender "$SENDER" )
do
	SUBJECT=$( postcat -q $ID|egrep '^Subject:' )
	while true
	do
		echo $SUBJECT
		echo -n "$ID : (c = cat mail / d = delete mail / K = keap mail / q = quit ) ? "
		read a
		case $a in
			c)
				postcat -q $ID|less
			;;
			d)
				postsuper -d $ID
				break
			;;
			k|"")
				break
			;;
			q)
				exit 0
			;;
			*)
				echo "Bad choice !"
		esac
	done
done