diff -Naur freehoo-3.5.3.20100314cvs.orig/extensions/alias.scm freehoo-3.5.3.20100314cvs/extensions/alias.scm --- freehoo-3.5.3.20100314cvs.orig/extensions/alias.scm 2005-05-14 14:26:52.000000000 +0200 +++ freehoo-3.5.3.20100314cvs/extensions/alias.scm 2013-02-25 16:53:04.000000000 +0100 @@ -23,10 +23,11 @@ ;;; (nags . (nagappanal)) ;;; (visu . (kvisu2000)))) -(if (defined? 'alias) - '() - (begin - (define alias '()))) +;;(if (defined? 'alias) +;; '() +;; (begin + (define alias '()) +;; )) (define (alias-buddy-name to msg) "expand alias for buddy name" diff -Naur freehoo-3.5.3.20100314cvs.orig/extensions/cc.scm freehoo-3.5.3.20100314cvs/extensions/cc.scm --- freehoo-3.5.3.20100314cvs.orig/extensions/cc.scm 2005-05-14 14:26:52.000000000 +0200 +++ freehoo-3.5.3.20100314cvs/extensions/cc.scm 2013-02-25 16:53:26.000000000 +0100 @@ -22,10 +22,11 @@ ;;; (define cc '((rms . (gnuindian nagappanal kvisu2000 bala)) ;;; (gopal . (mehta)))) -(if (defined? 'cc) - '() - (begin - (define cc '()))) +;;(if (defined? 'cc) +;; '() +;; (begin + (define cc '()) +;; )) (define (cc-buddy to msg) "CC the messages sent to buddy" diff -Naur freehoo-3.5.3.20100314cvs.orig/extensions/color.scm freehoo-3.5.3.20100314cvs/extensions/color.scm --- freehoo-3.5.3.20100314cvs.orig/extensions/color.scm 2005-05-14 14:26:52.000000000 +0200 +++ freehoo-3.5.3.20100314cvs/extensions/color.scm 2013-02-25 16:52:45.000000000 +0100 @@ -62,15 +62,17 @@ (local-ignored-message? ignored-msg-pattern-list message))) -(if (defined? 'auto-color-list) - '() - (define auto-color-list '())) +;;(if (defined? 'auto-color-list) +;; '() + (define auto-color-list '()) +;; ) -(if (defined? 'fh-default-color) - '() - (begin - (define fh-default-color "cyan"))) +;;(if (defined? 'fh-default-color) +;; '() +;; (begin + (define fh-default-color "cyan") +;; )) (define (fh-set-buddy-color! buddy color) diff -Naur freehoo-3.5.3.20100314cvs.orig/extensions/conference.scm freehoo-3.5.3.20100314cvs/extensions/conference.scm --- freehoo-3.5.3.20100314cvs.orig/extensions/conference.scm 2005-05-14 14:26:52.000000000 +0200 +++ freehoo-3.5.3.20100314cvs/extensions/conference.scm 2013-02-25 16:53:43.000000000 +0100 @@ -22,10 +22,11 @@ ;;; To end the conference ;;; /eval (cf-end) -(if (defined? 'conference-group) - '() - (begin - (define conference-group '()))) +;;(if (defined? 'conference-group) +;; '() +;; (begin + (define conference-group '()) +;; )) (define (conference-who group) "list all conference members" diff -Naur freehoo-3.5.3.20100314cvs.orig/extensions/forward.scm freehoo-3.5.3.20100314cvs/extensions/forward.scm --- freehoo-3.5.3.20100314cvs.orig/extensions/forward.scm 2005-05-14 14:26:52.000000000 +0200 +++ freehoo-3.5.3.20100314cvs/extensions/forward.scm 2013-02-25 16:57:33.000000000 +0100 @@ -20,10 +20,12 @@ ;;; (define forward '((rms . (gnuindian nagappanal kvisu2000 bala)) ;;; (gopal . (mehta)))) -(if (defined? 'forward) - '() - (begin - (define forward '()))) +;;(if (defined? 'forward) +;; '() +;; (begin + (define forward '()) +;; )) + (define (forward-buddy from msg) "forward the messages sent to buddy" diff -Naur freehoo-3.5.3.20100314cvs.orig/extensions/init.scm freehoo-3.5.3.20100314cvs/extensions/init.scm --- freehoo-3.5.3.20100314cvs.orig/extensions/init.scm 2013-02-25 16:14:39.000000000 +0100 +++ freehoo-3.5.3.20100314cvs/extensions/init.scm 2013-02-25 16:40:04.000000000 +0100 @@ -21,7 +21,7 @@ ;;; to overload this init.scm file, place your own init.scm in ur ;;; ~/.freehoo/extensions folder. -(use-modules (ice-9 debugger)) +(use-modules (ice-9 debug)) (debug-enable 'backtrace) (define (delayed-loading)