diff options
| author | Bruce A. Mah <bmah@FreeBSD.org> | 2001-11-30 21:12:20 +0000 |
|---|---|---|
| committer | Bruce A. Mah <bmah@FreeBSD.org> | 2001-11-30 21:12:20 +0000 |
| commit | 11752db6bcc6ce9200a0e1f0f1098998c6cd3922 (patch) | |
| tree | 989b8164741f287707c8286b8ec9d552bffbb8ca /mail/exmh2 | |
| parent | 6c5a6c857f414bb022c5e6575316727d94fcf447 (diff) | |
| download | ports-11752db6bcc6ce9200a0e1f0f1098998c6cd3922.tar.gz ports-11752db6bcc6ce9200a0e1f0f1098998c6cd3922.zip | |
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
Notes
Notes:
svn path=/head/; revision=50777
Diffstat (limited to 'mail/exmh2')
| -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 a826df8f02b8..74554c434ded 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 000000000000..99eb7570fe56 --- /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." |