From 76f9edecf671ef908196b04370b252d1e5df3238 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Sun, 2 Jun 2024 10:36:21 -0400
Subject: [PATCH] Don't purge reminders with a SCANFROM clause.

---
 src/dorem.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/dorem.c b/src/dorem.c
index f351d852..b16c59c4 100644
--- a/src/dorem.c
+++ b/src/dorem.c
@@ -162,6 +162,7 @@ int DoRem(ParsePtr p)
 	    if (p->expr_happened) {
 		if (p->nonconst_expr) {
 		    PurgeEchoLine("%s\n", "#!P: Next line may have expired, but contains non-constant expression");
+		    PurgeEchoLine("%s\n", "#!P: or a SCANFROM clause");
 		    PurgeEchoLine("%s\n", CurLine);
 		} else {
 		    PurgeEchoLine("%s\n", "#!P: Next line has expired, but contains expression...  please verify");
@@ -362,6 +363,9 @@ int ParseRem(ParsePtr s, Trigger *trig, TimeTrig *tim)
 	    DBufFree(&buf);
 	    r=ParseScanFrom(s, trig, tok.val);
 	    if (r) return r;
+            /* Don't expire reminders with a scanfrom */
+            s->expr_happened = 1;
+            s->nonconst_expr = 1;
 	    break;
 
 	case T_RemType: