Index: openacs-4/packages/forums/www/message-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-email.tcl,v
diff -u -r1.19 -r1.19.2.1
--- openacs-4/packages/forums/www/message-email.tcl	27 Sep 2017 11:07:52 -0000	1.19
+++ openacs-4/packages/forums/www/message-email.tcl	12 Apr 2022 12:27:40 -0000	1.19.2.1
@@ -8,13 +8,21 @@
 
 } {
     message_id:naturalnum,notnull
+} -validate {
+    valid_message_id -requires {message_id:naturalnum} {
+        # Load up the message information
+        forum::message::get -message_id $message_id -array message
+        if {![array exists message]} {
+            ad_complain "Invalid message_id"
+        }
+    }
 }
 
+
 # require login to avoid abuse from spammers
 auth::require_login
 
 # Get the message information
-forum::message::get -message_id $message_id -array message
 forum::security::require_read_forum -forum_id $message(forum_id)
 set message(tree_level) 0