     (interactive)
     (insert (format-time-string
 	     "-- Valery V. Vorotyntsev <vvv>  %a, %d %b %Y %T %z\n")))
-  (global-set-key (kbd "<f9> ws") 'insert-dayjob-signature)
-
-;;   (defun mts-search (word)
-;;     "Search MTS address book for a given word.
-
-;; XXX [FIXME] Depends on custom Opera search: `mts' should be available.
-;; All we need is just to send HTTP POST request."
-;;     (interactive
-;;      (list (let ((default (current-word t)))
-;; 	     (read-string (concat "Search MTS for"
-;; 				  (when default (format " (%s)" default))
-;; 				  ": ")
-;; 			  nil nil default))))
-;;     (browse-url (concat "mts " word)))
-;;   (global-set-key (kbd "<f9> m") 'mts-search)
-  )
+  (global-set-key (kbd "<f9> ws") 'insert-dayjob-signature))
 
 ;;; --------------------------------------------------------------------
 ;;; jabber

      (zerop (call-process fn)))))

(when (work-lan-p)
  (setq user-mail-address (base64-decode-string "dnZ2QG10cy5jb20udWE="))

  (defun insert-dayjob-tag ()
    "Insert fashioned CVS tag (e.g., \"TESTING_17_JUL_2008\")."
    (interactive)

(setq bbdb-completion-display-record nil)

(setq sendmail-program "/usr/bin/msmtp"
      message-sendmail-f-is-evil nil mail-specify-envelope-from t)

;;; --------------------------------------------------------------------
;;; Dayjob-specific stuff
