diff options
| author | Richard M. Stallman | 1993-09-11 10:40:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-09-11 10:40:03 +0000 |
| commit | 073fb95606c1d373cca9d528d27239aae9bc1bef (patch) | |
| tree | cd281ec796d54094ede8d244d5963c371dc81642 | |
| parent | 66b8b1d5c3709e6962c4664dddc7b664cc35df83 (diff) | |
| download | emacs-073fb95606c1d373cca9d528d27239aae9bc1bef.tar.gz emacs-073fb95606c1d373cca9d528d27239aae9bc1bef.zip | |
(rmail-convert-file): Narrow to exclude the Babyl header.
| -rw-r--r-- | lisp/mail/rmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 979975bafa0..9ab9c86f11f 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -286,9 +286,9 @@ that file, but does not copy any new mail into the file." | |||
| 286 | ;; If file needs conversion, convert it all, | 286 | ;; If file needs conversion, convert it all, |
| 287 | ;; except for the BABYL header. | 287 | ;; except for the BABYL header. |
| 288 | ;; (rmail-convert-to-babyl-format would delete the header.) | 288 | ;; (rmail-convert-to-babyl-format would delete the header.) |
| 289 | ;;; (narrow-to-region (point) (point-max)) | ||
| 290 | (goto-char (point-min)) | 289 | (goto-char (point-min)) |
| 291 | (search-forward "\n\^_" nil t) | 290 | (search-forward "\n\^_" nil t) |
| 291 | (narrow-to-region (point) (point-max)) | ||
| 292 | (rmail-convert-to-babyl-format) | 292 | (rmail-convert-to-babyl-format) |
| 293 | (message "Converting to Babyl format...done"))))) | 293 | (message "Converting to Babyl format...done"))))) |
| 294 | 294 | ||