blob: 8c429f98ae90e3fa4cf38ef8508898ed92be31f7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Index: lib/error.tcl
===================================================================
RCS file: /cvsroot/exmh/exmh/lib/error.tcl,v
retrieving revision 1.2
retrieving revision 1.3
diff -c -r1.2 -r1.3
*** error.tcl 1999/03/26 18:02:56 1.2
--- error.tcl 2001/01/03 23:51:59 1.3
***************
*** 118,123 ****
--- 118,126 ----
proc ExmhMailError { w errInfo } {
global exmh
+ if [file exists [Env_Tmp]/exmhErrorMsg] {
+ file delete [Env_Tmp]/exmhErrorMsg
+ }
if [catch {open [Env_Tmp]/exmhErrorMsg w} out] {
Exmh_Status "Cannot open [Env_Tmp]/exmhErrorMsg" purple
return
|
