mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(put_line): Don't break the line if it all fits.

Browse source
This commit is contained in:
Richard M. Stallman 1994-02-16 20:53:00 +00:00
parent f7da6740ca
commit fbffe7d987
1 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib-src/fakemail.c
View file

@ -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);