mail/exmh2: Scolling the folder list accepts only units

Units, which do not work in the scan listing window or the main
text windows, must be used int he folder display window. We create
a new fmscroll function just for the folder display window.

mail/exmh2/Makefile

@@ -4,7 +4,7 @@
 
 PORTNAME=	exmh
 PORTVERSION=	2.9.0
-PORTREVISION=	4
+PORTREVISION=	5
 CATEGORIES+=	mail tk
 # XXX: Standard SF fails with a hung download
 MASTER_SITES=	https://sourceforge.net/projects/${PORTNAME}/files/${PORTNAME}/${PORTVERSION}/

mail/exmh2/files/patch-lib_exwin.tcl

 --- lib/exwin.tcl.orig	2017-11-09 20:42:24.000000000 -0800
-+++ lib/exwin.tcl	2021-08-30 21:28:25.291533000 -0700
-@@ -101,12 +101,19 @@
++++ lib/exwin.tcl	2021-09-06 06:53:11.916007000 -0700
+@@ -101,12 +101,26 @@
  }
  
  proc mscroll {bindtag num} {
@@ -23,6 +23,13 @@
 +    bind $bindtag <MouseWheel> [ list tk::MouseWheel %W y %D [ expr 10/-$num ] pixels ]
 +    bind $bindtag <Shift-MouseWheel> { tk::MouseWheel %W y %D -10 pixels }
 +    bind $bindtag <Control-MouseWheel> { tk::MouseWheel %W y %D -1 pixels }
++}
++
++
++proc fmscroll {bindtag num} {
++    bind $bindtag <MouseWheel> [ list tk::MouseWheel %W y %D [ expr 200/-$num ] units ]
++    bind $bindtag <Shift-MouseWheel> { tk::MouseWheel %W y %D [expr 200/-10 ] units }
++    bind $bindtag <Control-MouseWheel> { tk::MouseWheel %W y %D -1 units }
  }
  
  

mail/exmh2/files/patch-lib_fdisp.tcl

+--- lib/fdisp.tcl.orig	2017-11-09 20:42:24.000000000 -0800
++++ lib/fdisp.tcl	2021-09-06 06:49:07.808426000 -0700
+@@ -254,7 +254,7 @@
+ 
+     # Enable wheelscroll if desired
+     if {$exwin(wheelEnabled)} {
+-        mscroll $fdisp(canvas) 1
++        fmscroll $fdisp(canvas) 5
+     }
+ 
+     # fdisp popup color hack