diff -urN smeserver-qmHandle-1.4.old/root/etc/e-smith/web/functions/qmh smeserver-qmHandle-1.4/root/etc/e-smith/web/functions/qmh
--- smeserver-qmHandle-1.4.old/root/etc/e-smith/web/functions/qmh	2022-09-13 21:29:10.895912128 +0300
+++ smeserver-qmHandle-1.4/root/etc/e-smith/web/functions/qmh	2022-09-14 23:12:09.342698624 +0300
@@ -509,7 +509,7 @@
     print $q->hr;
     print $q->p($fm->localise('DELETE_MESSAGE')),"\n";
     my $Message = `/usr/bin/qmHandle -m$msgid|head -100`;
-    print $q->p ($q->pre ("$Message"));
+    print $q->textarea (-name => 'message', -override => 1, -default => "$Message", -rows => 30, -cols => 80);
 
     print $q->start_multipart_form(-method => 'POST', -action => $q->url (-absolute => 1));
     print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
@@ -543,7 +543,7 @@
     print $q->hr;
     print $q->p($fm->localise('DELETE_MESSAGE')),"\n";
     my $Message = `/usr/bin/qmHandle -X -m$msgid|head -100`;
-    print $q->p ($q->pre ("$Message"));
+    print $q->textarea (-name => 'message', -override => 1, -default => "$Message", -rows => 30, -cols => 80);
 
     print $q->start_multipart_form(-method => 'POST', -action => $q->url (-absolute => 1));
     print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},