From: morioka <morioka>
Date: Wed, 26 May 1999 07:27:10 +0000 (+0000)
Subject: (smtpmail-default-smtp-server): Define obsolete variable alias for
X-Git-Tag: flim-1_12_7~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1e9246b140f68a87f5ee9f69b8b175ce2daeb1d0;p=elisp%2Fflim.git

(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.
---

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