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

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 091e5f14212fc777e983f7371ff0ca9c950f4832..61c0de48613dbc9635a31644d3a33eafb00c6a1c 100644 (file)
--- 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