155 |
return [mu_command [imap4d_make_command $cmd]] |
return [mu_command [imap4d_make_command $cmd]] |
156 |
} |
} |
157 |
|
|
158 |
|
proc imap4d_uidvalidity {} { |
159 |
|
regsub "(\[0-9\]*)\[0-9\]" "[clock seconds]" "\\1\[0-9\]" val |
160 |
|
return $val |
161 |
|
} |
162 |
|
|
163 |
proc imap4d_exit {} { |
proc imap4d_exit {} { |
164 |
if [imap4d_test "LOGOUT"\ |
if [imap4d_test "LOGOUT"\ |
165 |
"BYE Session terminating." \ |
"BYE Session terminating." \ |
222 |
|
|
223 |
if {$len >= 2} { |
if {$len >= 2} { |
224 |
set regexp 0 |
set regexp 0 |
225 |
|
set literal 0 |
226 |
for {set i 1} {$i <= [expr $len - 1]} {incr i} { |
for {set i 1} {$i <= [expr $len - 1]} {incr i} { |
227 |
switch -regexp -- "[lindex $args $i]" { |
switch -regexp -- "[lindex $args $i]" { |
228 |
-re.*$ - |
^-re.*$ - |
229 |
-- { set item "[lindex $args $i]"; set regexp 1 } |
^-- { set item "[lindex $args $i]"; set regexp 1 } |
230 |
default { if {$regexp} { |
^-literal { set literal 1; continue } |
231 |
set item "\\* [lindex $args $i]" |
^-noliteral { set literal 0; continue } |
232 |
} else { |
default { if {!$literal} { |
233 |
set item "* [lindex $args $i]" |
if {$regexp} { |
234 |
} |
set item "\\* [lindex $args $i]" |
235 |
set regexp 0 |
} else { |
236 |
} |
set item "* [lindex $args $i]" |
237 |
|
} |
238 |
|
} else { |
239 |
|
set item [lindex $args $i] |
240 |
|
} |
241 |
|
set regexp 0 |
242 |
|
} |
243 |
} |
} |
244 |
|
|
245 |
set pattern [concat $pattern [list $item]] |
set pattern [concat $pattern [list $item]] |