From 1e9246b140f68a87f5ee9f69b8b175ce2daeb1d0 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Wed, 26 May 1999 07:27:10 +0000
Subject: [PATCH] (smtpmail-default-smtp-server): Define obsolete variable
 alias for XEmacs. (smtpmail-smtp-server): Likewise.
 (smtpmail-smtp-service): Likewise. (smtpmail-local-domain):
 Likewise. (smtpmail-debug-info): Likewise.
 (smtpmail-send-it): Check function `expand-mail-aliases' is
 defined.

---
 smtpmail.el |   13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/smtpmail.el b/smtpmail.el
index 95a09eb..1cb7a1f 100644
--- a/smtpmail.el
+++ b/smtpmail.el
@@ -48,6 +48,17 @@
 (require 'sendmail)
 (require 'time-stamp)
 
+(eval-when-compile (require 'static))
+
+(static-when (featurep 'xemacs)
+  (define-obsolete-variable-alias 'smtpmail-default-smtp-server
+    'smtp-default-server)
+  (define-obsolete-variable-alias 'smtpmail-smtp-server 'smtp-server)
+  (define-obsolete-variable-alias 'smtpmail-smtp-service 'smtp-service)
+  (define-obsolete-variable-alias 'smtpmail-local-domain 'smtp-local-domain)
+  (define-obsolete-variable-alias 'smtpmail-debug-info 'smtp-debug-info)
+  )
+
 ;;;
 
 (defcustom smtpmail-queue-mail nil 
@@ -104,7 +115,7 @@ This is relative to `smtpmail-queue-dir'.")
 	  (backward-char 1)
 	  (setq delimline (point-marker))
 ;;	  (sendmail-synch-aliases)
-	  (if mail-aliases
+	  (if (and mail-aliases (fboundp 'expand-mail-aliases)) ; XEmacs
 	      (expand-mail-aliases (point-min) delimline))
 	  (goto-char (point-min))
 	  ;; ignore any blank lines in the header
-- 
1.7.10.4