|
@@ -12,24 +12,33 @@ if ((DEBUG != 0)); then
|
|
SENDMAIL="$DEBUGMAIL"
|
|
SENDMAIL="$DEBUGMAIL"
|
|
fi
|
|
fi
|
|
|
|
|
|
-cat - | formail -kb \
|
|
|
|
- -X "MIME-Version:" \
|
|
|
|
- -X "Content-Type:" \
|
|
|
|
- -X "Subject:" \
|
|
|
|
- -X "Date:" \
|
|
|
|
-> "${WD}/mail"
|
|
|
|
-subject="$(formail -cx "Subject:" < "${WD}/mail")"
|
|
|
|
|
|
+cat - > "${WD}/original"
|
|
|
|
+subject="$(reformail -c -x "Subject:" < "${WD}/original")"
|
|
if [ "${subject/\[${SUBJECT}\]/}" == "${subject}" ]; then
|
|
if [ "${subject/\[${SUBJECT}\]/}" == "${subject}" ]; then
|
|
subject="[${SUBJECT}] ${subject## }"
|
|
subject="[${SUBJECT}] ${subject## }"
|
|
fi
|
|
fi
|
|
-formail \
|
|
|
|
|
|
+reformail \
|
|
|
|
+ -X "Date:" \
|
|
|
|
+ -X "MIME-Version:" \
|
|
-I "Subject: ${subject}" \
|
|
-I "Subject: ${subject}" \
|
|
|
|
+ -X "Subject:" \
|
|
-I "List-Id: $MAILGROUP" \
|
|
-I "List-Id: $MAILGROUP" \
|
|
|
|
+ -X "List-Id:" \
|
|
-I "List-Unsubscribe: <mailto:$MAILGROUP?subject=[UNSUBSCRIBE]>" \
|
|
-I "List-Unsubscribe: <mailto:$MAILGROUP?subject=[UNSUBSCRIBE]>" \
|
|
|
|
+ -X "List-Unsubscribe:" \
|
|
-I "List-Subscribe: <mailto:$MAILGROUP?subject=[SUBSCRIBE]>" \
|
|
-I "List-Subscribe: <mailto:$MAILGROUP?subject=[SUBSCRIBE]>" \
|
|
|
|
+ -X "List-Subscribe:" \
|
|
-I "List-Post: <mailto:$MAILGROUP>" \
|
|
-I "List-Post: <mailto:$MAILGROUP>" \
|
|
|
|
+ -X "List-Post:" \
|
|
-I "List-Unsubscribe-Post: List-Unsubscribe=One-Click" \
|
|
-I "List-Unsubscribe-Post: List-Unsubscribe=One-Click" \
|
|
-< "${WD}/mail" | tail -n+2 > "${WD}/mail.new"
|
|
|
|
|
|
+ -X "List-Unsubscribe-Post:" \
|
|
|
|
+< "${WD}/original" > "${WD}/headers"
|
|
|
|
+
|
|
|
|
+reformime -s1 -e < "${WD}/original" | makemime -c "$(reformail -c -x 'Content-Type:' < "${WD}/original")" - > "${WD}/body"
|
|
|
|
+echo "NOTICE:======== <<<" | makemime -c "text/plain" - > "${WD}/banner"
|
|
|
|
+makemime -m multipart/mixed "${WD}/banner" > "${WD}/new"
|
|
|
|
+makemime -j "${WD}/new" "${WD}/body" | cat "${WD}/headers" - > "${WD}/mail.new"
|
|
|
|
+
|
|
mv "${WD}"/mail{.new,}
|
|
mv "${WD}"/mail{.new,}
|
|
|
|
|
|
declare -A SUBSCRIBED
|
|
declare -A SUBSCRIBED
|