Remove the time module alltogether.
[apps/madmutt.git] / lib-mime / rfc3676.c
1 /*
2  * Parts were written/modified by:
3  * Andreas Krennmair <ak@synflood.at>
4  * Peter J. Holzer <hjp@hjp.net>
5  * Rocco Rutte <pdmef@cs.tu-berlin.de>
6  *
7  * This file is part of mutt-ng, see http://www.muttng.org/.
8  * It's licensed under the GNU General Public License,
9  * please see the file GPL in the top level source directory.
10  */
11
12 #include <lib-lib/lib-lib.h>
13
14 #include <utime.h>
15
16 #include <lib-ui/lib-ui.h>
17
18 #include "state.h"
19 #include "rfc3676.h"
20
21 #define FLOWED_MAX 77
22
23 static int get_quote_level (char *line)
24 {
25   int quoted;
26
27   for (quoted = 0; line[quoted] == '>'; quoted++);
28   return quoted;
29 }
30
31 static void print_flowed_line (char *line, STATE * s, int ql) {
32   int width;
33   char *pos, *oldpos;
34   int len = m_strlen(line);
35   int i;
36
37   if (MaxLineLength > 0) {
38     width = MaxLineLength - WrapMargin - ql - 1;
39     if (!(s->flags & M_REPLYING) && option (OPTSTUFFQUOTED))
40       --width;
41     if (width < 0)
42       width = MaxLineLength;
43   }
44   else {
45     width = getmaxx(main_w) - WrapMargin - ql - 1;
46
47     if (!(s->flags & M_REPLYING) && option (OPTSTUFFQUOTED))
48       --width;
49     if (width < 0)
50       width = getmaxx(main_w);
51   }
52
53   if (m_strlen(line) == 0) {
54     if (!(s->flags & M_REPLYING) || option (OPTQUOTEEMPTY)) {
55       if (s->prefix)
56         state_puts(s->prefix,s);
57       for (i=0;i<ql;++i) state_putc('>',s);
58       if (!(s->flags & M_REPLYING) && option(OPTSTUFFQUOTED))
59         state_putc(' ',s);
60     }
61     state_putc('\n',s);
62     return;
63   }
64
65   pos = line + width;
66   oldpos = line;
67
68   for (; oldpos < line + len; pos += width) {
69     /* only search a new position when we're not over
70      * the end of the string w/ pos */
71     if (pos < line + len) {
72       if (*pos == ' ') {
73         *pos = '\0';
74         ++pos;
75       }
76       else {
77         char *save = pos;
78
79         while (pos >= oldpos && *pos != ' ') {
80           --pos;
81         }
82         if (pos < oldpos) {
83           pos = save;
84           while (pos < line + len && *pos && *pos != ' ') {
85             ++pos;
86           }
87         }
88         *pos = '\0';
89         ++pos;
90       }
91     }
92
93     if (s->prefix)
94       state_puts (s->prefix, s);
95
96     for (i = 0; i < ql; ++i)
97       state_putc ('>', s);
98     if (!(s->flags & M_REPLYING) && option (OPTSTUFFQUOTED) &&
99         (ql > 0 || s->prefix))
100       state_putc (' ', s);
101     state_puts (oldpos, s);
102     /* fprintf(stderr,"print_flowed_line: `%s'\n",oldpos); */
103     if (pos < line + len)
104       state_putc (' ', s);
105     state_putc ('\n', s);
106     oldpos = pos;
107   }
108 }
109
110 int rfc3676_handler (BODY * a, STATE * s) {
111   int bytes = a->length;
112   char buf[LONG_STRING];
113   char *curline = p_new(char, 1);
114   char *t = NULL;
115   unsigned int curline_len = 1,
116                quotelevel = 0, newql = 0;
117   int buf_off, buf_len;
118   int delsp = 0, fixed = 0;
119
120   *curline='\0';
121
122   /* respect DelSP of RfC3676 only with f=f parts */
123   if ((t = parameter_getval(a->parameter, "delsp"))) {
124     delsp = m_strlen(t) == 3 && ascii_strncasecmp (t, "yes", 3) == 0;
125     t = NULL;
126   }
127
128
129   while (bytes > 0 && fgets (buf, sizeof (buf), s->fpin)) {
130
131     buf_len = m_strlen(buf);
132     bytes -= buf_len;
133
134     newql = get_quote_level (buf);
135
136     /* a change of quoting level in a paragraph - shouldn't happen, 
137      * but has to be handled - see RFC 3676, sec. 4.5.
138      */
139     if (newql != quotelevel && curline && *curline) {
140       print_flowed_line (curline, s, quotelevel);
141       *curline = '\0';
142       curline_len = 1;
143     }
144     quotelevel = newql;
145
146     /* XXX - If a line is longer than buf (shouldn't happen), it is split.
147      * This will almost always cause an unintended line break, and 
148      * possibly a change in quoting level. But that's better than not
149      * displaying it at all.
150      */
151     if ((t = strrchr (buf, '\r')) || (t = strrchr (buf, '\n'))) {
152       *t = '\0';
153       buf_len = t - buf;
154     }
155
156     buf_off = newql;
157     /* respect space-stuffing */
158     if (buf[buf_off] == ' ')
159       buf_off++;
160
161     /* for DelSp=yes, we need to strip one SP prior to CRLF
162      * which may make the line look like fixed although it wasn't
163      * so keep this in mind for later processing */
164     fixed = buf_len == 0 || buf[buf_len - 1] != ' ' ||
165             (m_strcmp(buf + buf_off, "-- ") == 0);
166
167     if (delsp && buf_len >= 1 && buf[buf_len-1] == ' ')
168       buf[--buf_len] = '\0';
169
170     /* we're here when last space removed 'cause of DelSp was
171      * the last space and there isn't more -> done */
172     if ((buf_len - buf_off) < 0) {
173       print_flowed_line (curline, s, quotelevel);
174       *curline = '\0';
175       curline_len = 1;
176       continue;
177     }
178
179     /* signature separator also flushes the previous paragraph */
180     if (m_strcmp(buf + buf_off, "-- ") == 0 && curline && *curline) {
181       print_flowed_line (curline, s, quotelevel);
182       *curline = '\0';
183       curline_len = 1;
184     }
185
186     p_realloc(&curline, curline_len + buf_len - buf_off);
187     m_strcpy(curline + curline_len - 1, buf_len - buf_off + 1, buf + buf_off);
188     curline_len += buf_len - buf_off;
189
190     /* if this was a fixed line the paragraph is finished */
191     if (fixed) {
192       print_flowed_line (curline, s, quotelevel);
193       *curline = '\0';
194       curline_len = 1;
195     }
196
197   }
198   p_delete(&curline);
199   return (0);
200 }
201
202 /* sets mtime of 'to' to mtime of 'from' */
203 static void mutt_set_mtime (const char* from, const char* to) {
204   struct utimbuf utim;
205   struct stat st;
206
207   if (stat (from, &st) != -1) {
208     utim.actime = st.st_mtime;
209     utim.modtime = st.st_mtime;
210     utime (to, &utim);
211   }
212 }
213
214 void rfc3676_space_stuff (HEADER* hdr) {
215   FILE* in = NULL, *out = NULL;
216   char buf[LONG_STRING];
217   char tmpf[_POSIX_PATH_MAX];
218
219   if (!hdr || !hdr->content || !hdr->content->filename)
220     return;
221
222   if ((in = safe_fopen (hdr->content->filename, "r")) == NULL)
223     return;
224
225   out = m_tempfile(tmpf, sizeof(tmpf), NONULL(mod_core.tmpdir), NULL);
226   if (!out) {
227     m_fclose(&in);
228     return;
229   }
230
231   while (fgets(buf, sizeof (buf), in)) {
232     if (m_strncmp("From ", buf, 4) == 0 || buf[0] == ' ') {
233       fputc (' ', out);
234     }
235     fputs (buf, out);
236   }
237   m_fclose(&in);
238   m_fclose(&out);
239   mutt_set_mtime (hdr->content->filename, tmpf);
240   unlink (hdr->content->filename);
241   m_strreplace(&hdr->content->filename, tmpf);
242 }