diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-02-16 20:53:00 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-02-16 20:53:00 +0000 |
commit | ecb9e5d9c01998b5616f4d3bbae449644ace0fbd (patch) | |
tree | ab8381b3dfda24e78fd28a608625d7f66b33ea5a /lib-src | |
parent | 335d39f12181d7ee0d742d3a0fa09057d85e56d2 (diff) | |
download | emacs-ecb9e5d9c01998b5616f4d3bbae449644ace0fbd.tar.gz |
(put_line): Don't break the line if it all fits.
Diffstat (limited to 'lib-src')
-rw-r--r-- | lib-src/fakemail.c | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/lib-src/fakemail.c b/lib-src/fakemail.c index 145e51efd01..757b4e1cb6b 100644 --- a/lib-src/fakemail.c +++ b/lib-src/fakemail.c @@ -421,7 +421,7 @@ put_line (string) { char *breakpos; - /* Find the last char that fits. */ + /* Find the last char that fits. */ for (breakpos = s; *breakpos && column < 78; ++breakpos) { if (*breakpos == '\t') @@ -429,15 +429,20 @@ put_line (string) else column++; } - /* Back up to just after the last comma that fits. */ - while (breakpos != s && breakpos[-1] != ',') --breakpos; - if (breakpos == s) + /* If we didn't reach end of line, break the line. */ + if (*breakpos) { - /* If no comma fits, move past the first address anyway. */ - while (*breakpos != 0 && *breakpos != ',') ++breakpos; - if (*breakpos != 0) - /* Include the comma after it. */ - ++breakpos; + /* Back up to just after the last comma that fits. */ + while (breakpos != s && breakpos[-1] != ',') --breakpos; + + if (breakpos == s) + { + /* If no comma fits, move past the first address anyway. */ + while (*breakpos != 0 && *breakpos != ',') ++breakpos; + if (*breakpos != 0) + /* Include the comma after it. */ + ++breakpos; + } } /* Output that much, then break the line. */ fwrite (s, 1, breakpos - s, rem->handle); |