diff options
| author | Karl Heuer | 1997-02-20 05:38:08 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-02-20 05:38:08 +0000 |
| commit | 50ef36f521892a7a31f86f0f717ffa56398b5e87 (patch) | |
| tree | 847917b2568783291200cc2059dae8871da7d7b2 | |
| parent | d5d99b8075b3498aae02a3fbbf5db05f46adfaae (diff) | |
| download | emacs-50ef36f521892a7a31f86f0f717ffa56398b5e87.tar.gz emacs-50ef36f521892a7a31f86f0f717ffa56398b5e87.zip | |
(nnheader-insert-head): Handle the case that the
length of header is changed because of code conversion.
| -rw-r--r-- | lisp/nnheader.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 1c93816dfb6..a15e156eb1d 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el | |||
| @@ -302,8 +302,8 @@ on your system, you could say something like: | |||
| 302 | (let ((beg 0) | 302 | (let ((beg 0) |
| 303 | format-alist | 303 | format-alist |
| 304 | (chop 1024)) | 304 | (chop 1024)) |
| 305 | (while (and (eq chop (nth 1 (insert-file-contents | 305 | (while (and (not (zerop (nth 1 (insert-file-contents |
| 306 | file nil beg (incf beg chop)))) | 306 | file nil beg (incf beg chop))))) |
| 307 | (prog1 (not (search-forward "\n\n" nil t)) | 307 | (prog1 (not (search-forward "\n\n" nil t)) |
| 308 | (goto-char (point-max))) | 308 | (goto-char (point-max))) |
| 309 | (or (null nnheader-max-head-length) | 309 | (or (null nnheader-max-head-length) |