diff options
author | Richard M. Stallman <[email protected]> | 1993-05-09 01:14:47 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-05-09 01:14:47 +0000 |
commit | 8896f2df11e2a46ec27ba826a277c40f7a9714c1 (patch) | |
tree | 294a470107b18b93be8af801f841147c609614f0 | |
parent | 22073ddadb104b452a2a154ce6964e8238632913 (diff) |
(rmail-convert-to-babyl-format): Delete 1 char
if we see a newline instead of what we expect.
-rw-r--r-- | lisp/mail/rmail.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 036efc4564..e11d40a709 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -797,9 +797,11 @@ argument causes us to read a file name and use that file as the inbox." (insert ?\^_) (narrow-to-region (point) (point-max))) ;; - ;;This is a kludge, in case we're wrong about mmdf not - ;;allowing anything in between. If it loses, we'll have - ;;to look for something else + ;; This kludge is because some versions of sendmail.el + ;; insert an extra newline at the beginning that shouldn't + ;; be there. sendmail.el has been fixed, but old versions + ;; may still be in use. -- rms, 7 May 1993. + ((eolp) (delete-char 1)) (t (error "Cannot convert to babyl format"))))) count)) |