     (browse-url (concat "mts " word)))
   (global-set-key (kbd "<f9> m") 'mts-search))
 
-;; ---------------------------------------------------------------------
-;; jabber
+;;; --------------------------------------------------------------------
+;;; jabber
 
 (eval-after-load "jabber"
   '(progn

(setq sendmail-program "/usr/bin/msmtp" message-sendmail-f-is-evil nil
      user-mail-address (base64-decode-string "dmFsZXJ5LnZ2QGdtYWlsLmNvbQ=="))

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

(defun work-lan-p ()
  ; netstat -rn | grep -qE '^(0\.){3}0 +192\.168\.1\.1 '

;; (See <http://community.livejournal.com/ru_emacs/47287.html>.)
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT STRING TEXT))

;;; --------------------------------------------------------------------
;;; workaround(s)

;; See http://article.gmane.org/gmane.emacs.jabber.general/862
(eval-after-load "jabber-presence" (quote
(defun jabber-send-default-presence (&optional ignore)
  "Send default presence.
Default presence is specified by `jabber-default-show',
`jabber-default-status', and `jabber-default-priority'."
  (interactive)
  (jabber-send-presence
   jabber-default-show jabber-default-status jabber-default-priority))
))
;;; --------------------------------------------------------------------

;; report loading time
(message "~/.emacs loaded in %d seconds"
	 (destructuring-bind (hi lo ms) (current-time)
