; attempt to get the emacs channels organized

(defun start-channels ()
  (interactive)
  (let ((channels
	 (cons "localhost"
	  (case (hostname)
	    (zzz  '("zwizwa"))
	    (acer '("zzz.goto10"))
	    (t    '("zzz"))))))

    (mapc 'channel channels)))



(start-channels)