From 8e183d5bf28232279728b6687185134d2bf22580 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 21 Sep 1995 20:21:16 +0000 Subject: [PATCH] (mail-file-babyl-p): Function deleted. (sendmail-send-it): Load mail-utils first thing. --- lisp/mail/sendmail.el | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 0fa95023517..49374c4e897 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -450,6 +450,7 @@ the user from the mailer." (delete-auto-save-file-if-necessary t)))))) (defun sendmail-send-it () + (require 'mail-utils) (let ((errbuf (if mail-interactive (generate-new-buffer " sendmail errors") 0)) @@ -489,7 +490,6 @@ the user from the mailer." (if (re-search-forward "^FCC:" delimline t) (mail-do-fcc delimline)) (goto-char (point-min)) - (require 'mail-utils) (while (re-search-forward "^Resent-to:" delimline t) (setq resend-to-addresses (save-restriction @@ -610,16 +610,6 @@ the user from the mailer." (if (bufferp errbuf) (kill-buffer errbuf))))) -;; Return non-nil if file FILE is an Rmail file. -(defun mail-file-babyl-p (file) - (unwind-protect - (save-excursion - (set-buffer (get-buffer-create " mail-temp")) - (erase-buffer) - (insert-file-contents file nil 0 20) - (looking-at "BABYL OPTIONS:")) - (kill-buffer " mail-temp"))) - (defun mail-do-fcc (header-end) (let (fcc-list (rmailbuf (current-buffer)) -- 2.39.2