mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(mail-do-fcc): Prevent inserting a newline

Browse Source 
at the start of an existing but empty folder.
This commit is contained in:
Gerd Moellmann 2000-04-18 13:04:46 +00:00
parent 9909b39584
commit faeb73d448
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/mail/sendmail.el
View File

@ -1079,6 +1079,10 @@ See also the function `select-message-coding-system'.")
;; unless we've already taken care of it.
(unless dont-write-the-file
(if (and (file-exists-p (car fcc-list))
;; Check that the file isn't empty. We don't
;; want to insert a newline at the start of an
;; empty file.
(not (zerop (nth 7 (file-attributes (car fcc-list)))))
(mail-file-babyl-p (car fcc-list)))
;; If the file is a Babyl file,
;; convert the message to Babyl format.