+while [ $# -gt 0 ]; do
+ case "$1" in
+ "--announce") announce=yes; a_email="$2"; shift ;;
+ "--batch")
+ makelog="$(pwd)/make.log"
+ exec >"$makelog" 2>&1
+ ;;
+ esac
+ shift
+done
+
+send_mail () {
+ to="$1"; shift
+ title="$*"
+ mx_gnu_org="$(host -t mx gnu.org | sed 's/.*[ ]//')"
+ (sleep 5; echo "HELO elpa.gnu.org"
+ sleep 1; echo "MAIL FROM: <elpa@elpa.gnu.org>"
+ sleep 1; echo "RCPT TO: <$to>"
+ sleep 1; echo "DATA"
+ sleep 1; cat <<ENDDOC
+From: ELPA update <do.not.reply@elpa.gnu.org>
+To: $to
+Subject: $title
+
+ENDDOC
+ cat -; echo
+ echo "."; sleep 1) | telnet "$mx_gnu_org" smtp
+}