(defun sergio () "Set e-mail address to Sergio Pokrovskij"
  (interactive)
  (setq user-full-name "Sergio Pokrovskij"
  (set-language-environment "esperanto")
  (ispell-change-dictionary "eo")
  (set-input-method 'e8))

(defun sergei () "Set e-mail address to Sergei Pokrovsky"
  (interactive)
  (setq user-full-name "Sergei Pokrovsky") 
  (ispell-change-dictionary "english"))

(defun sergej () "Set e-mail address to Sergej Pokrovskij"
  (interactive)
  (setq user-full-name "С.Б. Покровский")
  (set-input-method 'russian-computer))

(global-set-key [f3] 'sergio)   ; ŝaltu la Esperantan medion
(global-set-key [f1] 'sergej)   ; ŝaltu la rusan
(global-set-key [M-f1] 'sergei) ; ŝaltu la anglan