Hello community, here is the log from the commit of package exmh for openSUSE:Factory checked in at Fri May 20 15:53:11 CEST 2011.
-------- --- exmh/exmh.changes 2008-03-12 19:45:44.000000000 +0100 +++ /mounts/work_src_done/STABLE/exmh/exmh.changes 2011-05-20 15:04:42.000000000 +0200 @@ -1,0 +2,6 @@ +Thu May 19 14:46:44 UTC 2011 - m...@novell.com + +- Rename exmh's lassign proc to prevent it from overwriting the + Tcl8.5 builtin lassign command (exmh-lassign.patch, bnc#684968). + +------------------------------------------------------------------- calling whatdependson for head-i586 New: ---- exmh-lassign.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ exmh.spec ++++++ --- /var/tmp/diff_new_pack.eIJpcg/_old 2011-05-20 15:51:02.000000000 +0200 +++ /var/tmp/diff_new_pack.eIJpcg/_new 2011-05-20 15:51:02.000000000 +0200 @@ -1,7 +1,7 @@ # -# spec file for package exmh (Version 2.7.2) +# spec file for package exmh # -# Copyright (c) 2009 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -22,7 +22,7 @@ BuildRequires: tcl Summary: Front-End for nmh Written in tcl/tk Version: 2.7.2 -Release: 139 +Release: 150 BuildArch: noarch Requires: nmh, metamail, expect License: X11/MIT @@ -31,6 +31,7 @@ Url: http://beedub.com/exmh/ Patch0: %{name}-2.7-conf.patch Patch1: %name-expectk.patch +Patch2: exmh-lassign.patch BuildRoot: %{_tmppath}/%{name}-%{version}-build %description @@ -52,6 +53,7 @@ done %patch0 %patch1 +%patch2 %build echo 'auto_mkindex ./lib *.tcl' | tclsh ++++++ exmh-2.7-conf.patch ++++++ --- /var/tmp/diff_new_pack.eIJpcg/_old 2011-05-20 15:51:02.000000000 +0200 +++ /var/tmp/diff_new_pack.eIJpcg/_new 2011-05-20 15:51:02.000000000 +0200 @@ -1,4 +1,6 @@ ---- exmh +Index: exmh +=================================================================== +--- exmh.orig +++ exmh @@ -1,4 +1,4 @@ -#!wish -f @@ -41,7 +43,9 @@ #END CONFIGURATION package require Tk ---- exmh-async +Index: exmh-async +=================================================================== +--- exmh-async.orig +++ exmh-async @@ -1,4 +1,4 @@ -#!wish -f @@ -49,7 +53,9 @@ # # async editor frontend for exmh # Arg1: invoking interpreter's name (from [winfo name .]) ---- exmh-bg +Index: exmh-bg +=================================================================== +--- exmh-bg.orig +++ exmh-bg @@ -1,4 +1,4 @@ -#!wish -f @@ -92,7 +98,9 @@ #END CONFIGURATION package require Tk ---- exmh-strip +Index: exmh-strip +=================================================================== +--- exmh-strip.orig +++ exmh-strip @@ -1,5 +1,4 @@ -#!wish @@ -101,7 +109,7 @@ # # Utility to strip out attachments from MIME messages. # They are replaced with references to the external files. -@@ -41,6 +41,34 @@ +@@ -50,6 +49,34 @@ if {0} { # any specification. #CONFIGURATION @@ -136,7 +144,9 @@ #END CONFIGURATION if {[catch {wm withdraw .}]} { ---- ftp.expect +Index: ftp.expect +=================================================================== +--- ftp.expect.orig +++ ftp.expect @@ -1,6 +1,6 @@ #!/bin/sh ++++++ exmh-lassign.patch ++++++ Index: lib/html.tcl =================================================================== --- lib/html.tcl +++ lib/html.tcl @@ -209,7 +209,7 @@ proc Html_Stop {win} { } proc HtmlHit {win x y} { upvar #0 HM$win var - lassign {href name} [UrlGetLink $win $x $y] + exmh_lassign {href name} [UrlGetLink $win $x $y] UrlResolve $var(S_url) href URI_StartViewer $href } Index: lib/html_formtag.tcl =================================================================== --- lib/html_formtag.tcl +++ lib/html_formtag.tcl @@ -690,7 +690,7 @@ proc FormIterate {win formVar callback} upvar #0 HM[Window_GetMaster $win] var $formVar form foreach w [array names form widgets,*] { regsub ^widgets, $w {} w - lassign {htag param} $form(widgets,$w) + exmh_lassign {htag param} $form(widgets,$w) if {"$htag" == "input"} { set type text HMextract_param $param type Index: lib/html_get_http.tcl =================================================================== --- lib/html_get_http.tcl +++ lib/html_get_http.tcl @@ -155,7 +155,7 @@ proc Http_poke {} { } if {$protocol == "http"} { # Callback to determine if a proxy is necessary - lassign {proxy pport} [Http_Proxy $host] + exmh_lassign {proxy pport} [Http_Proxy $host] if [catch { if [string length $proxy] { set sock [HttpConnect $proxy $pport $data(protocol) $url] Index: lib/html_links.tcl =================================================================== --- lib/html_links.tcl +++ lib/html_links.tcl @@ -79,13 +79,13 @@ proc Url_Hit? {win x y} { } proc Url_Hit {win x y} { dputs Url_Hit $x $y - lassign {href name} [UrlGetLink $win $x $y] + exmh_lassign {href name} [UrlGetLink $win $x $y] Html_HistoryAdd $win $href Frame_Display $win $name $href } # This is like Url_Hit for regular hits, but it opens a new window. proc Url_HitNew {win x y} { - lassign {href target} [UrlGetLink $win $x $y] + exmh_lassign {href target} [UrlGetLink $win $x $y] Url_DisplayNew $href $win } Index: lib/msgShow.tcl =================================================================== --- lib/msgShow.tcl +++ lib/msgShow.tcl @@ -496,7 +496,7 @@ proc Hook_MsgHighlight_jcl-beautify {t { # continue # } - lassign {qt_cnt qt_str} [MsgHighlightQuoteLevel $txt] + exmh_lassign {qt_cnt qt_str} [MsgHighlightQuoteLevel $txt] if {$qt_cnt >= 5} { set qt_cnt 5 } Index: lib/tclIndex =================================================================== --- lib/tclIndex +++ lib/tclIndex @@ -1375,7 +1375,7 @@ set auto_index(Scan_Move) [list source [ set auto_index(Scan_AllFolders) [list source [file join $dir scan.tcl]] set auto_index(setmax) [list source [file join $dir utils.tcl]] set auto_index(setmin) [list source [file join $dir utils.tcl]] -set auto_index(lassign) [list source [file join $dir utils.tcl]] +set auto_index(exmh_lassign) [list source [file join $dir utils.tcl]] set auto_index(ldelete) [list source [file join $dir utils.tcl]] set auto_index(patlsearch) [list source [file join $dir utils.tcl]] set auto_index(Visibility_Wait) [list source [file join $dir utils.tcl]] Index: lib/utils.tcl =================================================================== --- lib/utils.tcl +++ lib/utils.tcl @@ -23,7 +23,7 @@ proc setmin {varName value} { # Assign a set of variables from a list of values. # If there are more values than variables, they are ignored. # If there are fewer values than variables, the variables get the empty string. -proc lassign {varList value} { +proc exmh_lassign {varList value} { if {[string length $value] == 0} { foreach var $varList { uplevel [list set $var {}] ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org
