Re: post-upgrade Log no longer works.

[email protected] said:
> Change the proc source def to
> proc source {args} { ...
>    set result [uplevel 1 "source-orig $args"] ... }
> args is special, and is a list.  The " " concatenates that list onto
> source-orig and creates a well-formed command for use by uplevel.

> -- Brent

You will also want to replace the remaining reference to the prior argument
with the first element in the args list, so the patch should be something
like:


*** source.tcl.orig	2013-09-10 09:41:07.000000000 -0700
--- source.tcl	2013-09-10 09:33:55.000000000 -0700
***************
*** 1,9 ****
  if {$exmh(sourceHook) && [info command source-orig] ==  ""} {
      rename source source-orig
!     proc source {file} {
  	 global SourceHook
! 	 set result [uplevel 1 [list source-orig $file]]
! 	 set fn [file rootname [file tail $file]]
  	 if [info exists SourceHook($fn)] {
  	    if [catch {uplevel 1 $SourceHook($fn)} err] {
  		Exmh_Status "Error in source hook for $fn: $err" warning
--- 1,9 ----
  if {$exmh(sourceHook) && [info command source-orig] ==  ""} {
      rename source source-orig
!     proc source {args} {
  	 global SourceHook
! 	 set result [uplevel 1 "source-orig $args"]]
! 	 set fn [file rootname [file tail [lindex $args 0]]]
  	 if [info exists SourceHook($fn)] {
  	    if [catch {uplevel 1 $SourceHook($fn)} err] {
  		Exmh_Status "Error in source hook for $fn: $err" warning

_______________________________________________
Exmh-users mailing list
[email protected]
https://www.redhat.com/mailman/listinfo/exmh-users

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.13 (Darwin)
Comment: Exmh version 2.7.2 01/07/2005

iD8DBQFSL0w7JWLrSYxEfJMRAuEGAKDkiYtd+R/WT3Eh6cJK+Ult7geDzACfad5+
2BGidF6vZCAoxJF/LRTbHQE=
=X8Js
-----END PGP SIGNATURE-----