(mail-do-fcc): If file does not exist, assume it is not a Babyl file.

1 files changed, 2 insertions, 1 deletions

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