Description: remove registration email option, as brent is no longer involved
Author: Alexander Zangerl <az@debian.org>
--- a/lib/app-defaults
+++ b/lib/app-defaults
@@ -233,7 +233,7 @@ exmh.iconic:		0
 *Main.bind.m.c_compose:	Sedit_ComposeUI
 
 *Main.help.text:	Help...
-*Main.help.m.entrylist:	help colorkey html faq wiki sep list bug reg pgp
+*Main.help.m.entrylist:	help colorkey html faq wiki sep list bug pgp
 *Main.help.m.l_colorkey:	Color Legend
 *Main.help.m.c_colorkey:	Help_KeyDisplay
 *Main.help.m.l_help:	Quick Intro
@@ -247,8 +247,6 @@ exmh.iconic:		0
 *Main.help.m.t_sep:	separator
 *Main.help.m.l_bug:	Submit Bug Report
 *Main.help.m.c_bug:	Report_Bug
-*Main.help.m.l_reg:	Register as an EXMH User
-*Main.help.m.c_reg:	Report_Registration
 *Main.help.m.l_list:	Exmh Mailing Lists...
 *Main.help.m.m_list:	list
 *Main.help.m.t_list:	cascade
--- a/lib/html/Intro.html
+++ b/lib/html/Intro.html
@@ -112,10 +112,6 @@ Under Help, <button -command Help>Quick
 window. <button -command "Help exmh-faq">FAQ</button> shows the
 Frequently-Asked-Questions file.
 <p>
-You are encouraged to register as an exmh user, too. All this does
-is open a mail draft to me in which you can send your pro and con opinions
-about exmh. There is no obligation associated with registration. 
-<p>
 The <button -command Preferences_Dialog>Preferences</button> dialog
 gives you some control over exmh features. Within this dialog you can
 get more help on setting preferences by clicking the Help button that
--- a/lib/html/reference.html
+++ b/lib/html/reference.html
@@ -108,13 +108,6 @@ Log, Help..., Bindings..., Address..., P
          <dd>A mail message is started so you can report a problem
              with exmh.
 
-         <dt><button -command "Report_Registration">Register as an
-             EXMH User</button>
-         <dd>A mail message is started to you can register as an exmh
-             user. There is an opportunity to sign up for the mailing
-             lists and provide positive and negative feedback about
-             exmh.
-
          <dt><button -command "Pgp_Help">Pgp Setup</button>
          <dd>Get started with PGP. There is some help text and an
              interface to create your public key / private key pair.
--- a/lib/report.tcl
+++ b/lib/report.tcl
@@ -28,43 +28,6 @@ proc Report_Bug {} {
     close $out
     Edit_DraftID [file tail $draft]
 }
-proc Report_Registration {} {
-    global mhProfile exmh env tcl_version tcl_patchLevel
-
-    set draft [Mh_Path $mhProfile(draft-folder) new]
-    if [catch {open $draft w} out] {
-	Exmh_Status "Cannot write $draft"
-	return
-    }
-    Report_UseComp $out
-    puts $out \
-"To: welch@acm.org
-Subject: Register exmh user
------
-$exmh(version) $env(USER)
-[exec uname -a]
-Tcl $tcl_patchLevel
-
->   Please register as an exmh user so I can more accurately
->   track the usage of exmh.  I will not use your email address
->   for any purpose other than to display a cool gif in my
->   exmh face canvas.  Any and all comments are appreciated.
->
->   If you have registered for an earlier release you need not
->   register again, unless you want to, of course.
->
->	Brent Welch <welch@acm.org>
-
-
-Please comment on exmh:
-
-I like exmh because...
-
-I don't really like...
-"
-    close $out
-    Edit_DraftID [file tail $draft]
-}
 proc Report_Subscribe {list what} {
     global mhProfile exmh
 
