Mercurial > emacs
comparison lib-src/movemail.c @ 101915:091a8cf73243
(mbx_delimit_begin, mbx_delimit_end): Write mbox rather than Babyl
format. (Bug#2196)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 10 Feb 2009 03:30:39 +0000 |
| parents | a9f7e446141d |
| children | 696b3e7c297b |
comparison
equal
deleted
inserted
replaced
| 101914:fc3f7f3a49fc | 101915:091a8cf73243 |
|---|---|
| 921 | 921 |
| 922 int | 922 int |
| 923 mbx_delimit_begin (mbf) | 923 mbx_delimit_begin (mbf) |
| 924 FILE *mbf; | 924 FILE *mbf; |
| 925 { | 925 { |
| 926 if (fputs ("\f\n0, unseen,,\n", mbf) == EOF) | 926 if (fputs ("From movemail\n", mbf) == EOF) |
| 927 return (NOTOK); | 927 return (NOTOK); |
| 928 return (OK); | 928 return (OK); |
| 929 } | 929 } |
| 930 | 930 |
| 931 int | 931 int |
| 932 mbx_delimit_end (mbf) | 932 mbx_delimit_end (mbf) |
| 933 FILE *mbf; | 933 FILE *mbf; |
| 934 { | 934 { |
| 935 if (putc ('\037', mbf) == EOF) | 935 if (putc ('\n', mbf) == EOF) |
| 936 return (NOTOK); | 936 return (NOTOK); |
| 937 return (OK); | 937 return (OK); |
| 938 } | 938 } |
| 939 | 939 |
| 940 #endif /* MAIL_USE_POP */ | 940 #endif /* MAIL_USE_POP */ |