 (setq bbdb-completion-display-record nil)
 
 (setq sendmail-program "/usr/bin/msmtp"
-      message-sendmail-f-is-evil nil mail-specify-envelope-from t
-      user-mail-address (base64-decode-string "dmFsZXJ5LnZ2QGdtYWlsLmNvbQ=="))
+      message-sendmail-f-is-evil nil mail-specify-envelope-from t)
 
 ;;; --------------------------------------------------------------------
 ;;; Dayjob-specific stuff

      (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)

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

;;; Reset email address and jabber server name. Useful when changing LANs.
(defadvice jabber-connect-all (before reset-addresses first
				      (&optional arg) activate)
  (let ((p (work-lan-p)))
    (setq user-mail-address
	  (base64-decode-string (if p "dnZ2QG10cy5jb20udWE="
				  "dmFsZXJ5LnZ2QGdtYWlsLmNvbQ=="))
	  jabber-account-list
	  (list
	   (append `(,(base64-decode-string "dmFsZXJ5LnZ2QGdtYWlsLmNvbQ==")
		     (:connection-type . ssl))
		   (if p
		       '((:network-server . "127.0.0.1") (:port . 12345))
		     '((:network-server . "talk.google.com"))))))))
(ignore-errors (jabber-connect-all))
