From f20c9a8730f6beca7b6d58a475c48ee43fe86176 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 14 Oct 1994 04:49:32 +0000 Subject: [PATCH] (mail-do-fcc): If file does not exist, assume it is not a Babyl file. --- lisp/mail/sendmail.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 091e5f14212..61c0de48613 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -623,7 +623,8 @@ the user from the mailer." (insert-buffer-substring curbuf beg end))) (if max (narrow-to-region (point-min) max))))) ;; Else append to the file directly. - (if (mail-file-babyl-p (car fcc-list)) + (if (and (file-exists-p (car fcc-list)) + (mail-file-babyl-p (car fcc-list))) ;; If the file is a Babyl file, ;; convert the message to Babyl format. (save-excursion -- 2.39.5