From 53031bc86cd0a13e2096d393e485df7ccb60eaeb Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 19 Dec 2000 04:52:00 +0000 Subject: [PATCH] - Require `raw-io'. - Delete definition of obsolete variable aliases for XEmacs. (smtpmail-send-queued-mail): Use `binary-find-file-noselect' instead of `find-file-noselect-as-binary'. --- mail/smtpmail.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/mail/smtpmail.el b/mail/smtpmail.el index 094dc4f..4a7ba79 100644 --- a/mail/smtpmail.el +++ b/mail/smtpmail.el @@ -46,17 +46,18 @@ (require 'smtp) (require 'sendmail) (require 'time-stamp) +(require 'raw-io) (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) - ) +;; (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) +;; ) ;;; @@ -280,7 +281,7 @@ This is relative to `smtpmail-queue-dir'.") (end-of-line) (point)))) (load file-msg) - (setq tembuf (find-file-noselect-as-binary file-msg)) + (setq tembuf (binary-find-file-noselect file-msg)) (if smtpmail-recipient-address-list (smtp-send-buffer user-mail-address smtpmail-recipient-address-list tembuf) -- 1.7.10.4