#!/bin/sh
# bin mail-sort -ci "-vD" -- \
# mail-sort -- sort mail by the sender or the from header fields
revision='$Revision: 1.10 $'; version(){ cat <<VRS
$pgm $2
Copyright (C) 2003 by Richard Hawes <rhawes@dma.org>
This is free software; see the GNU General Public License version 2
or later for copying conditions.  There is NO warranty.
VRS
false;
}

help() { cat <<HLP
usage: mail-sort -[$one] [ -d directory | -f find_options ] maildir_folder . . .
options:
	-V	print version information and exit
	-H	print help and exit
	-D	debug mode
	-d	directory	(SORT_DIR)
	-f	find options	(SORT_FIND)
	-v	verbose

sources $HOME/.procmailrc.include for:
MAILDIR		path for relative mail folder names
		(== "$MAILDIR")
SORT_DIR	directory for storing \`mailbox'.gz folders (== "$SORT_DIR")
SORT_FIND	find options	(== "$SORT_FIND")
SORT_LOG	relative path name for log	(== "$SORT_LOG")
UMASK		file creation mask (== `umask`)

sorts email in \`maildir' folder into SORT_DIR/\`mailbox'.gz folders by
the email address in the sender (if available) or from header fields

HLP
false;
}

error() { warn "$@"; false; }

false() { return 1;}

get_email_addr() {
# the sed regular exp was taken from an automatically generated file
# by the procmail module for the Dotfile Generator
formail -zx $1 |
sed  -n -e '/^[^@]*@[^ ]* *(.*)/ {;s/^\([^@]*@[^ ]*\) *(.*)/\1/p;q;}'  -e '/.*<[^@]*@[^ >]*>/ {;s/.*<\([^@]*@[^ >]*\)>/\1/p;q;}' -e '/[^@ ]*@[^ ]*/ s/\([^@ ]*@[^ ]*\)/\1/p'|
tr '[ [:upper:]]' '[_[:lower:]]'
}

log_mail() {
	[ "$*" ]&&
	echo "$pgm: $*" >&4;
}

sort_mail() {
	local dir="$1" folder out;

### Filter files into $dir/(sender|from)
###
### This single recipe/function sorts mail by $dir/(sender|from)
### filed according to the dir variable, and in this subdirectory,
### folders will be created based on the sender header field, if it exists,
### otherwise, folders will be created based on the from header field.

	while read -r file; do
		[ "$file" ]&& [ -f "$file" ]|| continue;
		# get sender
		from=`get_email_addr sender: <"$file"`
		[ "$from" ]|| from=`get_email_addr from: <"$file"`
		folder="$dir/$from"
		formail -l "$folder" <$file
		if [ -z "$debug" ]; then
			formail <$file | gzip >>"${folder}.gz"&&
			log_mail $(rm -f $verb "$file")
		fi
	done
}

warn() { echo $pgm:\ "$@">&2;}

# default values
INCLUDERC="$HOME/.procmailrc.include"
MAILDIR=$HOME/Mail
YEAR=`date +%Y`;
SORT_LOG=log/sort.$YEAR
SORT_DIR=From;
SORT_FIND="-mtime +7";
UMASK=077;

[ ! -f "$INCLUDERC" ]||
. "$INCLUDERC"|| exit;

pgm=mail-sort
one="DHVv"
umask $UMASK;

while getopts "d:f:S:$one" option;do case "$option" in
	H) help;;
	V) version $revision;;
	S) set $OPTARG;;
	D) debug=y;;
	d) SORT_DIR="$OPTARG";;
	f) SORT_FIND="$OPTARG";;
	v) verb=-v;;
	\?) false;;
	*) false;;
esac|| exit; done
shift $(($OPTIND-1));

[ "$MAILDIR" ]|| error "MAILDIR variable is null"|| exit;
cd "$MAILDIR"|| exit;
[ "$debug" ]&& SORT_LOG="${SORT_LOG}.debug"
[ "$SORT_LOG" ]|| error "SORT_LOG variable is null"|| exit;
[ -d "$SORT_DIR" ]|| mkdir -p $verb "$SORT_DIR"|| exit

exec 4>>"$SORT_LOG"|| exit;

while [ $# -gt 0 ]; do
	[ -d "$1/cur" ]&&
	find "$1/cur" $SORT_FIND | sort_mail "$SORT_DIR" >&4;
	shift
done;