-case "$1" in
- "--batch") batchmode=yes ;;
-esac
-
-# Return on STDOUT the files that don't seem to have the needed copyright
-# notice, or that have a copyright notice that looks suspicious.
-copyright_notices () {
- find . -name '*.el' -print0 |
- xargs -0 grep -L 'Free Software Foundation, Inc' |
- grep -v '\(\.dir-locals\|.-\(pkg\|autoloads\)\)\.el$'
-
- find . -name '*.el' -print |
- while read f; do
- sed -n -e '/[Cc]opyright.*, *[1-9][-0-9]*,\?$/N' \
- -e '/Free Software Foundation/d' \
- -e "s|^\\(.*[Cc]opyright\\)|$(echo $f | tr '|' '_'):\\1|p" "$f"
- done
+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