[Sussex] Kiss.

[G.J. Teale]

Neil Simmons <nasimmons at gmail.com> writes:

> On 17/10/05, nik butler <nik at reducedhackers.com> wrote:
>> or for the geek
>> s/look/lock/

Whilst we're being pedants, surely in the context of a LUG a simple
regexp search a replace doesn't constitute being a geek.  Really we
need something more like:

(require 'mail)

(define subst-os-ns 
  (lambda (os ns lat eq-func)
    (cond
      ((null? lat) (quote ()))
      ((list? (car lat)) 
       (cons 
         (subst-os-ns os ns (car lat) eq-func) 
         (subst-os-ns os ns (cdr lat) eq-func)))
      ((eq-func (car lat) os) (cons ns (subst-os-ns os ns (cdr lat) eq-func)))
      (else (cons (car lat) (subs-os-ns os ns (cdr lat) eq-func))))))

(subst-os-ns "look" "lock" 
  (string->list (mail-content '("INBOX" . 19049))) string=)

-- 
G. J. Teale
Software Engineering Team Leader

Cmed Group Ltd.
Holmwood, Broadlands Business Campus,
Langhurstwood Road, Horsham, RH12 4QP, United Kingdom

T +44(0)1403 755 071
F +44(0)1403 755 051
M +44(0)7776 195 211
E gteale at cmedresearch.com  
W www.cmedresearch.com
__________________________________________________________

Driven by technology. Guided by experience.
__________________________________________________________
But was he mature enough last night at the lesbian masquerade?