summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-01-25 19:39:58 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-01-25 19:39:58 -0700
commit3872d4850ca9ade0eccc8c7054b6459a1d00b25f (patch)
tree6978e081f8b1129c501e410c859df1a4804f5cec
parent77740f4625825f605258fa706069efff52b511d9 (diff)
downloadmailscripts-3872d4850ca9ade0eccc8c7054b6459a1d00b25f.tar.gz
gmi2email: don't record as seen if sending mail threw an exception
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rwxr-xr-xgmi2email5
1 files changed, 2 insertions, 3 deletions
diff --git a/gmi2email b/gmi2email
index f03c930..cae0767 100755
--- a/gmi2email
+++ b/gmi2email
@@ -158,18 +158,17 @@ sub send_subscribed_gemtext {
}
};
#>>>
- $dbh->do("INSERT INTO seen VALUES (\"$uri\")");
- $mail and !$no_mail or return;
if ($type =~ m{^text/gemini}) {
gemtext_to_mail(
$data, %to_mail_opts,
gemlog => $gemlog // "unknown gemlog",
link_title => $link_title,
date => email_date $feed_date
- )->send;
+ )->send if $mail and !$no_mail;
} else {
warn "$uri is not gemtext";
}
+ $dbh->do("INSERT INTO seen VALUES (\"$uri\")");
}
sub gemini_fetch {