*** pgpMisc.tcl	Wed Jan  7 15:09:59 1998
--- pgpMisc.tcl.new	Wed Jan  7 15:09:42 1998
***************
*** 65,72 ****
  
  # unsign a pgp clearsigned message (take the pgp stuff out)
  proc Pgp_Unsign { text } {
!     if {![regexp "^(.*\n)?-+BEGIN PGP SIGNED\[^\n]*\n\n(.*)\n-+BEGIN PGP SIGNATURE" $text {} {} text]} {
! 	error "<Misc_Unsign> can't find the message"
      }
      regsub "^- " $text {} text
      regsub -all "\n- " $text "\n" text
--- 65,74 ----
  
  # unsign a pgp clearsigned message (take the pgp stuff out)
  proc Pgp_Unsign { text } {
!     if {![regexp "^(.*\n)?-+BEGIN PGP SIGNED\[^\n]*\n(Hash:\[^\n]*\n)?\n(.*)\n-+BEGIN PGP SIGNATURE" $text {} {} {} text]} {
! #	error "<Misc_Unsign> can't find the message"
! # it is inconvenient and probably wrong to eat the message
! 	return "Error in stripping PGP armor:\n$text"
      }
      regsub "^- " $text {} text
      regsub -all "\n- " $text "\n" text