diff -u rpm-spec-mode.el~ rpm-spec-mode.el
--- rpm-spec-mode.el~	2002-12-02 12:00:38.000000000 +0900
+++ rpm-spec-mode.el	2002-12-02 12:00:38.000000000 +0900
@@ -105,6 +105,10 @@
   :type 'string
   :group 'rpm-spec)
 
+;; XEmacs compatibility function
+(unless (fboundp 'define-obsolete-variable-alias)
+  (defalias 'define-obsolete-variable-alias 'make-obsolete-variable))
+
 (define-obsolete-variable-alias
   'rpm-completion-ignore-case 'rpm-spec-completion-ignore-case)
 
@@ -597,6 +601,14 @@
 
 ;;------------------------------------------------------------
 
+;; XEmacs compatibility function
+(unless (fboundp 'user-mail-address)
+  (defun user-mail-address ()
+    "Return value of `user-mail-address'.
+
+XEmacs sendmail compatibility function."
+    user-mail-address))
+
 (defun rpm-add-change-log-entry (&optional change-log-entry)
   "Find change log and add an entry for today."
   (interactive "sChange log entry: ")
@@ -1117,6 +1129,13 @@
 
 ;;------------------------------------------------------------
 
+;; XEmacs compatibility function
+(unless (fboundp 'ignore-errors)
+      (defmacro ignore-errors (&rest body)
+	"Execute FORMS; if an error occurs, return nil.
+Otherwise, return result of last FORM."
+	`(condition-case nil (progn ,@body) (error nil))))
+
 (defun rpm-spec-field-value (field max)
   "Get the value of FIELD, searching up to buffer position MAX.
 See `search-forward-regexp'."