diff options
| author | bmah <bmah@FreeBSD.org> | 2001-11-30 21:12:20 +0000 |
|---|---|---|
| committer | bmah <bmah@FreeBSD.org> | 2001-11-30 21:12:20 +0000 |
| commit | de0734d0b7a7352e38e6f3f175e03bef208a0f98 (patch) | |
| tree | 00ca223938fca7e8f6d07cb725002d12cc8a65e6 /mail | |
| parent | 32f15234d1e3c20caf28adfaba54620a6bf38837 (diff) | |
| download | FreeBSD-ports-de0734d0b7a7352e38e6f3f175e03bef208a0f98.zip FreeBSD-ports-de0734d0b7a7352e38e6f3f175e03bef208a0f98.tar.gz | |
Add a patch to fix a bug with continuation lines in ~/.mh_profile.
While I'm here, also patch a file descriptor leak.
patch-mh.tcl lib/mh.tcl 1.17->1.19
Bump PORTREVISION.
Submitted by: "Louis A. Mamakos" <louie@TransSys.COM>
Obtained from: exmh CVS repository
Diffstat (limited to 'mail')
| -rw-r--r-- | mail/exmh2/Makefile | 1 | ||||
| -rw-r--r-- | mail/exmh2/files/patch-mh.tcl | 30 |
2 files changed, 31 insertions, 0 deletions
diff --git a/mail/exmh2/Makefile b/mail/exmh2/Makefile index a826df8..74554c4 100644 --- a/mail/exmh2/Makefile +++ b/mail/exmh2/Makefile @@ -8,6 +8,7 @@ # "+=" and "?=" lines are for sharing this Makefile with japanese/exmh2. PORTNAME= exmh PORTVERSION= 2.5 +PORTREVISION= 1 CATEGORIES+= mail tk83 MASTER_SITES= ftp://ftp.scriptics.com/pub/tcl/%SUBDIR%/ MASTER_SITES+= ftp://tcl.activestate.com/pub/tcl/%SUBDIR%/ diff --git a/mail/exmh2/files/patch-mh.tcl b/mail/exmh2/files/patch-mh.tcl new file mode 100644 index 0000000..99eb757 --- /dev/null +++ b/mail/exmh2/files/patch-mh.tcl @@ -0,0 +1,30 @@ +Index: lib/mh.tcl +=================================================================== +RCS file: /cvsroot/exmh/exmh/lib/mh.tcl,v +retrieving revision 1.17 +retrieving revision 1.19 +diff -u -r1.17 -r1.19 +--- lib/mh.tcl 2001/07/09 16:45:33 1.17 ++++ lib/mh.tcl 2001/11/21 06:32:08 1.19 +@@ -765,6 +765,13 @@ + while {![eof $input]} { + set numBytes [gets $input line] + if {$numBytes > 0} { ++ if {[regexp {^\s+(.*)$} $line foo other]} { ++ # handle continued lines ++ if {[info exists key]} { ++ append mhProfile($key) " [string trim $other]" ++ } ++ continue ++ } + set parts [split $line :] + set key [string tolower [lindex $parts 0]] + set other [lindex $parts 1] +@@ -772,6 +779,7 @@ + set mhProfile($key) $value + } + } ++ close $input + if {![info exists mhProfile(path)]} { + if {[info exists mhProfile(FAIL)]} { + puts stderr "No Path entry in your [file tail $mhProfile(profile)] file." |
