Mercurial > emacs
comparison lisp/mail/rmailout.el @ 23528:3bb7a66a51a8
(rmail-output): Insert newline only if necessary.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Oct 1998 18:08:17 +0000 |
| parents | 4404e3d66e80 |
| children | e532573faa40 |
comparison
equal
deleted
inserted
replaced
| 23527:06e8c3b9deec | 23528:3bb7a66a51a8 |
|---|---|
| 293 (save-excursion | 293 (save-excursion |
| 294 (set-buffer tembuf) | 294 (set-buffer tembuf) |
| 295 (erase-buffer) | 295 (erase-buffer) |
| 296 (insert-buffer-substring rmailbuf) | 296 (insert-buffer-substring rmailbuf) |
| 297 (rmail-delete-unwanted-fields t) | 297 (rmail-delete-unwanted-fields t) |
| 298 (insert "\n") | 298 (or (bolp) (insert "\n")) |
| 299 (goto-char (point-min)) | 299 (goto-char (point-min)) |
| 300 (if mail-from | 300 (if mail-from |
| 301 (insert mail-from "\n") | 301 (insert mail-from "\n") |
| 302 (insert "From " | 302 (insert "From " |
| 303 (mail-strip-quoted-names (or (mail-fetch-field "from") | 303 (mail-strip-quoted-names (or (mail-fetch-field "from") |