"Exchange point and mark, but allow for XEmacs' optional argument."
(exchange-point-and-mark message-xmas-dont-activate-region))
-(fset 'message-exchange-point-and-mark 'message-xmas-exchange-point-and-mark)
+(defalias 'message-exchange-point-and-mark
+ 'message-xmas-exchange-point-and-mark)
(defun message-xmas-maybe-fontify ()
(when (featurep 'font-lock)
(substring table (+ a 26) 255))))
(when (>= emacs-major-version 20)
- (fset 'message-make-caesar-translation-table
- 'message-xmas-make-caesar-translation-table))
+ (defalias 'message-make-caesar-translation-table
+ 'message-xmas-make-caesar-translation-table))
(add-hook 'message-mode-hook 'message-xmas-maybe-fontify)