 	    (funcall cont jc (when (listp value) value)))))
 
      ;; groupchat
-     (let ((chat (base64-decode-string
-		  "dGVhcEBjb25mZXJlbmNlLmphYmJlci5vcmcuYnk=")))
-       (setq jabber-muc-autojoin `(,chat)
-	     jabber-muc-default-nicknames `((,chat . "vvv"))))
+     (setq jabber-muc-default-nicknames
+	   `((,(base64-decode-string "dGVhcEBjb25mZXJlbmNlLmphYmJlci5vcmcuYnk=")
+	      . "vvv")))
 
      ;; misc.
      (remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo) ; quiet!

    "Insert fashioned CVS tag (e.g., \"TESTING_17_JUL_2008\")."
    (interactive)
    (insert (upcase (format-time-string "TESTING_%d_%b_%Y"))))
  (global-set-key (kbd "<f9> r") 'insert-dayjob-tag)

  (defun mts-search (word)
    "Search MTS address book for a given word.

XXX [FIXME] Depends on custom Opera search `mts' to be available.
All we need is just to send HTTP POST request."
    (interactive
     (list (let ((default (current-word t)))

  '(setq org-log-done t
	 org-agenda-files '("~/job/TODO")))

;; [m4-mode] make `#' an ordinary character, not a comment starter
(eval-after-load "m4-mode"
  '(progn
     (modify-syntax-entry ?# "." m4-mode-syntax-table)
     (modify-syntax-entry ?\n " " m4-mode-syntax-table)))

;; ---------------------------------------------------------------------
;; miscellaneous settings

