*** mh.tcl	Thu Jan 15 13:53:30 1998
--- mh.tcl.new	Thu Jan 15 13:52:49 1998
***************
*** 19,27 ****
      global mhProfile
      Preferences_Add "MH Tweaks" \
  "Note that most of MH is parameterized by your [file tail $mhProfile(profile)] file.
! These options just affect a few things particular to exmh." {
  	{mhProfile(scan-proc) scanProc scan {Scan program}
! "If you have a custom scan program, name it here."}
  	{mhProfile(sendType) sendType {CHOICE wait async xterm} {How to send messages}
  "There are three ways exmh can send a message for you:
  wait: exmh waits until the message is successfully posted.
--- 19,27 ----
      global mhProfile
      Preferences_Add "MH Tweaks" \
  "Note that most of MH is parameterized by your [file tail $mhProfile(profile)] file.
! These options just affect a few things particular to exmh." [list \
  	{mhProfile(scan-proc) scanProc scan {Scan program}
! "If you have a custom scan program, name it here."} \
  	{mhProfile(sendType) sendType {CHOICE wait async xterm} {How to send messages}
  "There are three ways exmh can send a message for you:
  wait: exmh waits until the message is successfully posted.
***************
*** 29,47 ****
  async: exmh does not wait for the message to be posted.
  If there are errors, they are mailed back to you.
  xterm: exmh runs send in an xterm.  Exmh does not wait for
! your interaction with send to complete."}
  	{mhProfile(xtermcmd) xtermCmd {xterm -g 80x5} {xterm command parameters}
  "When \"Send in xterm window\" is selected,
  this option controls extra parameters provided
! to the xterm program to control how it is started."}
! 	{mhProfile(delprefix) delPrefix # {Prefix of rmm'd files}
  "The Delete operation in MH really only renames a message file to have
  a prefix like # or , (comma).  This prefernce setting is used to
! set that prefix, which may vary from system to system."}
  	{mhProfile(purgeage) purgeAge 7 {Age, in days of files to purge}
  "The Purge operation will remove deleted messages that are older
! than this number of days."}
!     }
      #
      # Backwards compatibility.  Nuke when 1.6alpha and 1.5.3 are dead.
      #
--- 29,48 ----
  async: exmh does not wait for the message to be posted.
  If there are errors, they are mailed back to you.
  xterm: exmh runs send in an xterm.  Exmh does not wait for
! your interaction with send to complete."} \
  	{mhProfile(xtermcmd) xtermCmd {xterm -g 80x5} {xterm command parameters}
  "When \"Send in xterm window\" is selected,
  this option controls extra parameters provided
! to the xterm program to control how it is started."} \
! 	[list mhProfile(delprefix) delPrefix [MhBackup] {Prefix of rmm'd files} \
  "The Delete operation in MH really only renames a message file to have
  a prefix like # or , (comma).  This prefernce setting is used to
! set that prefix if you have a custom remove proc. The default setting is
! correct for your version of MH."] \
  	{mhProfile(purgeage) purgeAge 7 {Age, in days of files to purge}
  "The Purge operation will remove deleted messages that are older
! than this number of days."} \
!     ]
      #
      # Backwards compatibility.  Nuke when 1.6alpha and 1.5.3 are dead.
      #
***************
*** 51,56 ****
--- 52,70 ----
      }
  }
  
+ proc MhBackup {} {
+     set sbackup {}
+     catch {set sbackup [exec mhparam sbackup]}
+     if {[string length $sbackup] == 0} {
+ 	catch {exec mhparam -help} x
+ 	regexp {SBACKUP='"([^"]+)"'} $x match sbackup
+     }
+     if {[string length $sbackup] == 0} {
+ 	set sbackup #
+     }
+     return sbackup
+ }
+ 
  # Run an MH program and check for errors.
  # If the context file gets corrupted, just remove it and try again.
  proc MhExec { args } {