diff options
| author | Richard M. Stallman | 1993-07-29 03:43:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-29 03:43:38 +0000 |
| commit | b03848314e13f5b12323a04923d9ea38f7e7ec4a (patch) | |
| tree | 5f13eee1fee227d6de2c2f67a3a0474b16013f64 | |
| parent | 4dc7458eb6f658052f280802763690d175a8c075 (diff) | |
| download | emacs-b03848314e13f5b12323a04923d9ea38f7e7ec4a.tar.gz emacs-b03848314e13f5b12323a04923d9ea38f7e7ec4a.zip | |
(rmail-convert-file): If file needs conversion, convert it all.
| -rw-r--r-- | lisp/mail/rmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index e70161d507f..e0d07beb917 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -282,7 +282,8 @@ that file, but does not copy any new mail into the file." | |||
| 282 | (looking-at "\n*From "))) | 282 | (looking-at "\n*From "))) |
| 283 | (let ((buffer-read-only nil)) | 283 | (let ((buffer-read-only nil)) |
| 284 | (message "Converting to Babyl format...") | 284 | (message "Converting to Babyl format...") |
| 285 | (narrow-to-region (point) (point-max)) | 285 | ;;; If file needs conversion, convert it all. |
| 286 | ;;; (narrow-to-region (point) (point-max)) | ||
| 286 | (rmail-convert-to-babyl-format) | 287 | (rmail-convert-to-babyl-format) |
| 287 | (message "Converting to Babyl format...done"))))) | 288 | (message "Converting to Babyl format...done"))))) |
| 288 | 289 | ||