I have in my initialization file the following: ---------------------------------------------------- (defvar running-xemacs (numberp (string-match "XEmacs\\|Lucid" emacs-version))) (if running-xemacs (add-hook 'rmail-show-message-hook (function (lambda () (setq-default rmail-buffer (current-buffer)))))) (if running-xemacs (add-hook 'kill-emacs-hook 'rsf-custom-save-all)) ----------------------------------------------------