?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* Implement a different way to delete a password from the cache.
[alpine.git] / pith / mailindx.c
blob2e19a602a9d1a3a6c91ba4d73e1fad1c1fccd2ad
1 /* ========================================================================
2 * Copyright 2013-2022 Eduardo Chappa
3 * Copyright 2006-2008 University of Washington
4 *
5 * Licensed under the Apache License, Version 2.0 (the "License");
6 * you may not use this file except in compliance with the License.
7 * You may obtain a copy of the License at
8 *
9 * http://www.apache.org/licenses/LICENSE-2.0
10 *
11 * ========================================================================
12 */
13
14 #include "../pith/headers.h"
15 #include "../pith/mailindx.h"
16 #include "../pith/pineelt.h"
17 #include "../pith/mailview.h"
18 #include "../pith/flag.h"
19 #include "../pith/icache.h"
20 #include "../pith/msgno.h"
21 #include "../pith/thread.h"
22 #include "../pith/strlst.h"
23 #include "../pith/status.h"
24 #include "../pith/mailcmd.h"
25 #include "../pith/search.h"
26 #include "../pith/charset.h"
27 #include "../pith/reply.h"
28 #include "../pith/bldaddr.h"
29 #include "../pith/addrstring.h"
30 #include "../pith/news.h"
31 #include "../pith/util.h"
32 #include "../pith/pattern.h"
33 #include "../pith/sequence.h"
34 #include "../pith/color.h"
35 #include "../pith/stream.h"
36 #include "../pith/string.h"
37 #include "../pith/send.h"
38 #include "../pith/options.h"
39 #include "../pith/ablookup.h"
40 #ifdef _WINDOWS
41 #include "../pico/osdep/mswin.h"
42 #endif
43
44 /*
45 * pointers to formatting functions
46 */
47 ICE_S *(*format_index_line)(INDEXDATA_S *);
48 void (*setup_header_widths)(MAILSTREAM *);
49
50 /*
51 * pointer to optional load_overview functionality
52 */
53 void (*pith_opt_paint_index_hline)(MAILSTREAM *, long, ICE_S *);
54
55 /*
56 * pointer to hook for saving index format state
57 */
58 void (*pith_opt_save_index_state)(int);
59
60 /*
61 * hook to allow caller to insert cue that indicates a condensed
62 * thread relationship cue
63 */
64 int (*pith_opt_condense_thread_cue)(PINETHRD_S *, ICE_S *, char **, size_t *, int, int);
65 int (*pith_opt_truncate_sfstr)(void);
66
67
68 /*
69 * Internal prototypes
70 */
71 void setup_for_thread_index_screen(void);
72 ICE_S *format_index_index_line(INDEXDATA_S *);
73 ICE_S *format_thread_index_line(INDEXDATA_S *);
74 int set_index_addr(INDEXDATA_S *, char *, ADDRESS *, char *, int, char *);
75 int ctype_is_fixed_length(IndexColType);
76 void setup_index_header_widths(MAILSTREAM *);
77 void setup_thread_header_widths(MAILSTREAM *);
78 int parse_index_format(char *, INDEX_COL_S **);
79 int index_in_overview(MAILSTREAM *);
80 ADDRESS *fetch_from(INDEXDATA_S *);
81 ADDRESS *fetch_sender(INDEXDATA_S *);
82 char *fetch_newsgroups(INDEXDATA_S *);
83 char *fetch_subject(INDEXDATA_S *);
84 char *fetch_date(INDEXDATA_S *);
85 long fetch_size(INDEXDATA_S *);
86 BODY *fetch_body(INDEXDATA_S *);
87 char *fetch_firsttext(INDEXDATA_S *idata, int);
88 char *fetch_header(INDEXDATA_S *idata, char *hdrname);
89 void subj_str(INDEXDATA_S *, char *, size_t, SubjKW, int, int, ICE_S *);
90 void key_str(INDEXDATA_S *, SubjKW, ICE_S *);
91 void header_str(INDEXDATA_S *, HEADER_TOK_S *, ICE_S *);
92 void prio_str(INDEXDATA_S *, IndexColType, ICE_S *);
93 void from_str(IndexColType, INDEXDATA_S *, char *, size_t, ICE_S *);
94 int day_of_week(struct date *);
95 int day_of_year(struct date *);
96 unsigned long ice_hash(ICE_S *);
97 char *left_adjust(int);
98 char *right_adjust(int);
99 char *format_str(int, int);
100 char *copy_format_str(int, int, char *, int);
101 void set_print_format(IELEM_S *, int, int);
102 void set_ielem_widths_in_field(IFIELD_S *);
103
104
105 #define BIGWIDTH 2047
106
107
108 /*----------------------------------------------------------------------
109 Initialize the index_disp_format array in ps_global from this
110 format string.
111
112 Args: format -- the string containing the format tokens
113 answer -- put the answer here, free first if there was a previous
114 value here
115 ----*/
116 void
117 init_index_format(char *format, INDEX_COL_S **answer)
118 {
119 char *p;
120 int i, w, monabb_width = 0, column = 0;
121
122 /*
123 * Record the fact that SCORE appears in some index format. This
124 * is a heavy-handed approach. It will stick at 1 if any format ever
125 * contains score during this session. This is ok since it will just
126 * cause recalculation if wrong and these things rarely change much.
127 */
128 if(!ps_global->a_format_contains_score && format
129 && strstr(format, "SCORE")){
130 ps_global->a_format_contains_score = 1;
131 /* recalculate need for scores */
132 scores_are_used(SCOREUSE_INVALID);
133 }
134
135 set_need_format_setup(ps_global->mail_stream);
136 /* if custom format is specified, try it, else go with default */
137 if(!(format && *format && parse_index_format(format, answer))){
138 static INDEX_COL_S answer_default[] = {
139 {iStatus, Fixed, 3},
140 {iMessNo, WeCalculate},
141 {iSDateTime24, WeCalculate},
142 {iFromTo, Percent, 33}, /* percent of rest */
143 {iSizeNarrow, WeCalculate},
144 {iSubjKey, Percent, 67},
145 {iNothing}
146 };
147
148 if(*answer)
149 free_index_format(answer);
150
151 *answer = (INDEX_COL_S *)fs_get(sizeof(answer_default));
152 memcpy(*answer, answer_default, sizeof(answer_default));
153 }
154
155 /*
156 * Test to see how long the month abbreviations are.
157 */
158 for(i = 1; i <= 12; i++){
159 p = month_abbrev_locale(i);
160 monabb_width = MAX(utf8_width(p), monabb_width);
161 }
162
163 monabb_width = MIN(MAX(2, monabb_width), 5);
164
165 /*
166 * Fill in req_width's for WeCalculate items.
167 */
168 for(column = 0; (*answer)[column].ctype != iNothing; column++){
169
170 /* don't use strftime if we're not trying to use the LC_TIME stuff */
171 if(F_ON(F_DISABLE_INDEX_LOCALE_DATES, ps_global)){
172 switch((*answer)[column].ctype){
173 case iSDate:
174 (*answer)[column].ctype = iS1Date;
175 break;
176 case iSDateTime:
177 (*answer)[column].ctype = iSDateTimeS1;
178 break;
179 case iSDateTime24:
180 (*answer)[column].ctype = iSDateTimeS124;
181 break;
182 default:
183 break;
184 }
185 }
186
187 if((*answer)[column].wtype == WeCalculate){
188 switch((*answer)[column].ctype){
189 case iPrio:
190 case iPrioBang:
191 case iAtt:
192 (*answer)[column].req_width = 1;
193 break;
194 case iYear2Digit:
195 case iDay:
196 case iMon:
197 case iDay2Digit:
198 case iMon2Digit:
199 case iArrow:
200 case iKeyInit:
201 (*answer)[column].req_width = 2;
202 break;
203 case iStatus:
204 case iMessNo:
205 case iInit:
206 (*answer)[column].req_width = 3;
207 break;
208 case iYear:
209 case iDayOrdinal:
210 case iSIStatus:
211 (*answer)[column].req_width = 4;
212 break;
213 case iTime24:
214 case iTimezone:
215 case iSizeNarrow:
216 case iKey:
217 (*answer)[column].req_width = 5;
218 break;
219 case iFStatus:
220 case iIStatus:
221 case iScore:
222 (*answer)[column].req_width = 6;
223 break;
224 case iTime12:
225 case iSTime:
226 case iKSize:
227 case iSize:
228 case iPrioAlpha:
229 (*answer)[column].req_width = 7;
230 break;
231 case iS1Date:
232 case iS2Date:
233 case iS3Date:
234 case iS4Date:
235 case iDateIsoS:
236 case iSizeComma:
237 (*answer)[column].req_width = 8;
238 break;
239 case iSTime24:
240 (*answer)[column].req_width = 9;
241 break;
242 case iMonAbb:
243 (*answer)[column].req_width = monabb_width;
244 (*answer)[column].monabb_width = monabb_width;
245 break;
246 case iDayOfWeekAbb:
247 {
248 w = 0;
249
250 /*
251 * Test to see how long it is.
252 */
253 for(i = 0; i < 7; i++){
254 p = day_abbrev_locale(i);
255 w = MAX(utf8_width(p), w);
256 }
257
258 (*answer)[column].req_width = MIN(MAX(2, w), 5);
259 }
260 break;
261 case iDate:
262 (*answer)[column].req_width = monabb_width + 3;
263 (*answer)[column].monabb_width = monabb_width;
264 break;
265 case iMonLong:
266 {
267 w = 0;
268
269 /*
270 * Test to see how long it is.
271 */
272 for(i = 1; i <= 12; i++){
273 p = month_name_locale(i);
274 w = MAX(utf8_width(p), w);
275 }
276
277 (*answer)[column].req_width = MIN(MAX(3, w), 12);
278 }
279 break;
280 case iDayOfWeek:
281 {
282 w = 0;
283
284 for(i = 0; i < 7; i++){
285 p = day_name_locale(i);
286 w = MAX(utf8_width(p), w);
287 }
288
289 (*answer)[column].req_width = MIN(MAX(3, w), 12);
290 }
291 break;
292 case iSDate:
293 case iSDateTime:
294 case iSDateTime24:
295 case iPrefDate:
296 case iPrefTime:
297 case iPrefDateTime:
298 {
299 /*
300 * Format a date to see how long it is.
301 * Make it as least as long as "Yesterday".
302 * We should really use the width of the longest
303 * of the translated yesterdays and friends but...
304 */
305 struct tm tm;
306 int len = 20;
307 char ss[100];
308
309 memset(&tm, 0, sizeof(tm));
310 tm.tm_year = 106;
311 tm.tm_mon = 11;
312 tm.tm_mday = 31;
313 tm.tm_hour = 3;
314 tm.tm_min = 23;
315 tm.tm_wday = 3;
316 switch((*answer)[column].ctype){
317 case iPrefTime:
318 our_strftime(ss, sizeof(ss), "%X", &tm);
319 break;
320 case iPrefDateTime:
321 our_strftime(ss, sizeof(ss), "%c", &tm);
322 len = 32;
323 break;
324 default:
325 our_strftime(ss, sizeof(ss), "%x", &tm);
326 break;
327 }
328 (*answer)[column].req_width = MIN(MAX(9, utf8_width(ss)), len);
329 }
330
331 (*answer)[column].monabb_width = monabb_width;
332 break;
333
334 case iDescripSize:
335 case iSDateIsoS:
336 case iSDateS1: case iSDateS2: case iSDateS3: case iSDateS4:
337 case iSDateTimeIsoS:
338 case iSDateTimeS1: case iSDateTimeS2: case iSDateTimeS3: case iSDateTimeS4:
339 case iSDateTimeIsoS24:
340 case iSDateTimeS124: case iSDateTimeS224: case iSDateTimeS324: case iSDateTimeS424:
341 /*
342 * These SDates are 8 wide but they need to be 9 for "Yesterday".
343 */
344 (*answer)[column].req_width = 9;
345 break;
346 case iDateIso:
347 case iSDateIso: case iSDateTimeIso: case iSDateTimeIso24:
348 (*answer)[column].req_width = 10;
349 break;
350 case iLDate:
351 (*answer)[column].req_width = 12;
352 (*answer)[column].monabb_width = monabb_width;
353 break;
354 case iRDate:
355 (*answer)[column].req_width = 16;
356 break;
357 default:
358 break;
359 }
360 }
361 }
362
363 calc_extra_hdrs();
364 if(get_extra_hdrs())
365 (void) mail_parameters(NULL, SET_IMAPEXTRAHEADERS,
366 (void *) get_extra_hdrs());
367 }
368
369
370 void
371 reset_index_format(void)
372 {
373 long rflags = ROLE_DO_OTHER;
374 PAT_STATE pstate;
375 PAT_S *pat;
376 int we_set_it = 0;
377
378 if(ps_global->mail_stream && nonempty_patterns(rflags, &pstate)){
379 for(pat = first_pattern(&pstate); pat; pat = next_pattern(&pstate)){
380 if(match_pattern(pat->patgrp, ps_global->mail_stream, NULL,
381 NULL, NULL, SE_NOSERVER|SE_NOPREFETCH))
382 break;
383 }
384
385 if(pat && pat->action && !pat->action->bogus
386 && pat->action->index_format){
387 we_set_it++;
388 init_index_format(pat->action->index_format,
389 &ps_global->index_disp_format);
390 }
391 }
392
393 if(!we_set_it)
394 init_index_format(ps_global->VAR_INDEX_FORMAT,
395 &ps_global->index_disp_format);
396 }
397
398
399 void
400 free_index_format(INDEX_COL_S **disp_format)
401 {
402 INDEX_COL_S *cdesc = NULL;
403
404 if(disp_format && *disp_format){
405 for(cdesc = (*disp_format); cdesc->ctype != iNothing; cdesc++)
406 if(cdesc->hdrtok)
407 free_hdrtok(&cdesc->hdrtok);
408
409 fs_give((void **) disp_format);
410 }
411 }
412
413
414 HEADER_TOK_S *
415 new_hdrtok(char *hdrname)
416 {
417 HEADER_TOK_S *hdrtok;
418
419 hdrtok = (HEADER_TOK_S *) fs_get(sizeof(HEADER_TOK_S));
420 memset(hdrtok, 0, sizeof(HEADER_TOK_S));
421 hdrtok->hdrname = hdrname ? cpystr(hdrname) : NULL;
422 hdrtok->fieldnum = 0;
423 hdrtok->adjustment = Left;
424 hdrtok->fieldsepcnt = 1;
425 hdrtok->fieldseps = cpystr(" ");
426
427 return(hdrtok);
428 }
429
430
431 void
432 free_hdrtok(HEADER_TOK_S **hdrtok)
433 {
434 if(hdrtok && *hdrtok){
435 if((*hdrtok)->hdrname)
436 fs_give((void **) &(*hdrtok)->hdrname);
437
438 if((*hdrtok)->fieldseps)
439 fs_give((void **) &(*hdrtok)->fieldseps);
440
441 fs_give((void **) hdrtok);
442 }
443 }
444
445
446 /* popular ones first to make it slightly faster */
447 static INDEX_PARSE_T itokens[] = {
448 {"STATUS", iStatus, FOR_INDEX},
449 {"MSGNO", iMessNo, FOR_INDEX},
450 {"DATE", iDate, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
451 {"FROMORTO", iFromTo, FOR_INDEX},
452 {"FROMORTONOTNEWS", iFromToNotNews, FOR_INDEX},
453 {"SIZE", iSize, FOR_INDEX},
454 {"SIZECOMMA", iSizeComma, FOR_INDEX},
455 {"SIZENARROW", iSizeNarrow, FOR_INDEX},
456 {"KSIZE", iKSize, FOR_INDEX},
457 {"SUBJECT", iSubject, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
458 {"SHORTSUBJECT", iShortSubject, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
459 {"FULLSTATUS", iFStatus, FOR_INDEX},
460 {"IMAPSTATUS", iIStatus, FOR_INDEX},
461 {"SHORTIMAPSTATUS", iSIStatus, FOR_INDEX},
462 {"SUBJKEY", iSubjKey, FOR_INDEX},
463 {"SHORTSUBJKEY", iShortSubjKey, FOR_INDEX},
464 {"SUBJKEYINIT", iSubjKeyInit, FOR_INDEX},
465 {"SHORTSUBJKEYINIT",iShortSubjKeyInit, FOR_INDEX},
466 {"SUBJECTTEXT", iSubjectText, FOR_INDEX},
467 {"SUBJKEYTEXT", iSubjKeyText, FOR_INDEX},
468 {"SUBJKEYINITTEXT", iSubjKeyInitText, FOR_INDEX},
469 {"OPENINGTEXT", iOpeningText, FOR_INDEX},
470 {"OPENINGTEXTNQ", iOpeningTextNQ, FOR_INDEX},
471 {"KEY", iKey, FOR_INDEX},
472 {"KEYINIT", iKeyInit, FOR_INDEX},
473 {"DESCRIPSIZE", iDescripSize, FOR_INDEX},
474 {"ATT", iAtt, FOR_INDEX},
475 {"SCORE", iScore, FOR_INDEX},
476 {"PRIORITY", iPrio, FOR_INDEX},
477 {"PRIORITYALPHA", iPrioAlpha, FOR_INDEX},
478 {"PRIORITY!", iPrioBang, FOR_INDEX},
479 {"LONGDATE", iLDate, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
480 {"SHORTDATE1", iS1Date, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
481 {"SHORTDATE2", iS2Date, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
482 {"SHORTDATE3", iS3Date, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
483 {"SHORTDATE4", iS4Date, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
484 {"DATEISO", iDateIso, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
485 {"SHORTDATEISO", iDateIsoS, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
486 {"SMARTDATE", iSDate, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
487 {"SMARTTIME", iSTime, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
488 {"SMARTTIME24", iSTime24, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
489 {"SMARTDATEISO", iSDateIso, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
490 {"SMARTDATESHORTISO",iSDateIsoS, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
491 {"SMARTDATES1", iSDateS1, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
492 {"SMARTDATES2", iSDateS2, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
493 {"SMARTDATES3", iSDateS3, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
494 {"SMARTDATES4", iSDateS4, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
495 {"SMARTDATETIME", iSDateTime, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
496 {"SMARTDATETIMEISO",iSDateTimeIso, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
497 {"SMARTDATETIMESHORTISO",iSDateTimeIsoS,FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
498 {"SMARTDATETIMES1", iSDateTimeS1, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
499 {"SMARTDATETIMES2", iSDateTimeS2, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
500 {"SMARTDATETIMES3", iSDateTimeS3, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
501 {"SMARTDATETIMES4", iSDateTimeS4, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
502 {"SMARTDATETIME24", iSDateTime24, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
503 {"SMARTDATETIMEISO24", iSDateTimeIso24,FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
504 {"SMARTDATETIMESHORTISO24",iSDateTimeIsoS24,FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
505 {"SMARTDATETIMES124", iSDateTimeS124, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
506 {"SMARTDATETIMES224", iSDateTimeS224, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
507 {"SMARTDATETIMES324", iSDateTimeS324, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
508 {"SMARTDATETIMES424", iSDateTimeS424, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
509 {"TIME24", iTime24, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
510 {"TIME12", iTime12, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
511 {"TIMEZONE", iTimezone, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
512 {"MONTHABBREV", iMonAbb, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
513 {"DAYOFWEEKABBREV", iDayOfWeekAbb, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
514 {"DAYOFWEEK", iDayOfWeek, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
515 {"FROM", iFrom, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
516 {"TO", iTo, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
517 {"SENDER", iSender, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
518 {"CC", iCc, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
519 {"RECIPS", iRecips, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
520 {"NEWS", iNews, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
521 {"TOANDNEWS", iToAndNews, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
522 {"NEWSANDTO", iNewsAndTo, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
523 {"RECIPSANDNEWS", iRecipsAndNews, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
524 {"NEWSANDRECIPS", iNewsAndRecips, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
525 {"MSGID", iMsgID, FOR_REPLY_INTRO|FOR_TEMPLATE},
526 {"CURNEWS", iCurNews, FOR_REPLY_INTRO|FOR_TEMPLATE},
527 {"DAYDATE", iRDate, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
528 {"PREFDATE", iPrefDate, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
529 {"PREFTIME", iPrefTime, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
530 {"PREFDATETIME", iPrefDateTime, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
531 {"DAY", iDay, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
532 {"DAYORDINAL", iDayOrdinal, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
533 {"DAY2DIGIT", iDay2Digit, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
534 {"MONTHLONG", iMonLong, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
535 {"MONTH", iMon, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
536 {"MONTH2DIGIT", iMon2Digit, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
537 {"YEAR", iYear, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
538 {"YEAR2DIGIT", iYear2Digit, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
539 {"ADDRESS", iAddress, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
540 {"MAILBOX", iMailbox, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
541 {"ROLENICK", iRoleNick, FOR_REPLY_INTRO|FOR_TEMPLATE},
542 {"INIT", iInit, FOR_INDEX|FOR_REPLY_INTRO|FOR_TEMPLATE},
543 {"CURDATE", iCurDate, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
544 {"CURDATEISO", iCurDateIso, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
545 {"CURDATEISOS", iCurDateIsoS, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
546 {"CURTIME24", iCurTime24, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
547 {"CURTIME12", iCurTime12, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
548 {"CURDAY", iCurDay, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
549 {"CURDAY2DIGIT", iCurDay2Digit, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
550 {"CURDAYOFWEEK", iCurDayOfWeek, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
551 {"CURDAYOFWEEKABBREV", iCurDayOfWeekAbb,
552 FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
553 {"CURMONTH", iCurMon, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
554 {"CURMONTH2DIGIT", iCurMon2Digit, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
555 {"CURMONTHLONG", iCurMonLong, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
556 {"CURMONTHABBREV", iCurMonAbb, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
557 {"CURYEAR", iCurYear, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
558 {"CURYEAR2DIGIT", iCurYear2Digit, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
559 {"CURPREFDATE", iCurPrefDate, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
560 {"CURPREFTIME", iCurPrefTime, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
561 {"CURPREFDATETIME", iCurPrefDateTime,
562 FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
563 {"LASTMONTH", iLstMon, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
564 {"LASTMONTH2DIGIT", iLstMon2Digit, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
565 {"LASTMONTHLONG", iLstMonLong, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
566 {"LASTMONTHABBREV", iLstMonAbb, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
567 {"LASTMONTHYEAR", iLstMonYear, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
568 {"LASTMONTHYEAR2DIGIT", iLstMonYear2Digit,
569 FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
570 {"LASTYEAR", iLstYear, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
571 {"LASTYEAR2DIGIT", iLstYear2Digit, FOR_REPLY_INTRO|FOR_TEMPLATE|FOR_FILT},
572 {"HEADER", iHeader, FOR_INDEX},
573 {"TEXT", iText, FOR_INDEX},
574 {"ARROW", iArrow, FOR_INDEX},
575 {"NEWLINE", iNewLine, FOR_REPLY_INTRO},
576 {"CURSORPOS", iCursorPos, FOR_TEMPLATE},
577 {NULL, iNothing, FOR_NOTHING}
578 };
579
580 INDEX_PARSE_T itokensinv[sizeof(itokens)/sizeof(itokens[0])];
581
582 void
583 inverse_itokens(void)
584 {
585 INDEX_PARSE_T *pt;
586 for (pt = itokens; pt->name; pt++)
587 itokensinv[pt->ctype].ctype = pt - itokens;
588
589 }
590
591 INDEX_PARSE_T *
592 itoken(int i)
593 {
594 return((i < sizeof(itokens) && itokens[i].name) ? &itokens[i] : NULL);
595 }
596
597
598 /*
599 * Args txt -- The token being checked begins at the beginning
600 * of txt. The end of the token is delimited by a null, or
601 * white space, or an underscore if DELIM_USCORE is set,
602 * or a left paren if DELIM_PAREN is set.
603 * flags -- Flags contains the what_for value, and DELIM_ values.
604 *
605 * Returns A ptr to an INDEX_PARSE_T from itokens above, else NULL.
606 */
607 INDEX_PARSE_T *
608 itoktype(char *txt, int flags)
609 {
610 INDEX_PARSE_T *pt;
611 char token[100 + 1];
612 char *v, *w;
613
614 /*
615 * Separate a copy of the possible token out of txt.
616 */
617 v = txt;
618 w = token;
619 while(w < token+sizeof(token)-1 &&
620 *v &&
621 !(!(*v & 0x80) && isspace((unsigned char)*v)) &&
622 !(flags & DELIM_USCORE && *v == '_') &&
623 !(flags & DELIM_PAREN && *v == '(') &&
624 !(flags & DELIM_COLON && *v == ':'))
625 *w++ = *v++;
626
627 *w = '\0';
628
629 for(pt = itokens; pt->name; pt++)
630 if(pt->what_for & flags && !strucmp(pt->name, token))
631 return(pt);
632
633 return(NULL);
634 }
635
636
637 int
638 parse_index_format(char *format_str, INDEX_COL_S **answer)
639 {
640 int i, column = 0;
641 char *p, *q;
642 INDEX_PARSE_T *pt;
643 INDEX_COL_S cdesc[200]; /* plenty of temp storage for answer */
644
645 memset((void *)cdesc, 0, sizeof(cdesc));
646
647 p = format_str;
648 while(p && *p && column < 200-1){
649 /* skip leading white space for next word */
650 p = skip_white_space(p);
651 pt = itoktype(p, FOR_INDEX | DELIM_PAREN | DELIM_COLON);
652
653 /* ignore unrecognized word */
654 if(!pt){
655 char c;
656 for(q = p; *p && !isspace((unsigned char)*p); p++)
657 ;
658
659 if((c = *p) != '\0')
660 *p++ = '\0';
661
662 dprint((1,
663 "parse_index_format: unrecognized token: %s\n",
664 q ? q : "?"));
665 q_status_message1(SM_ORDER | SM_DING, 0, 3,
666 _("Unrecognized word in index-format: %s"), q);
667 if(c != '\0')
668 *(p-1) = c;
669 continue;
670 }
671
672 cdesc[column].ctype = pt->ctype;
673
674 if(pt->ctype == iHeader || pt->ctype == iText){
675 /*
676 * iHeader field has special syntax.
677 *
678 * HEADER:hdrname(width,fieldnum,field_separators,L_or_R)
679 *
680 * where width is the regular width or percentage width or
681 * left out for default width, fieldnum defaults to 0 for
682 * whole thing, 1 for first field, ...
683 * and field_separators is a list of characters which separate
684 * the fields. The whole parenthesized part is optional. If used
685 * the arguments can be dropped from the right, so
686 *
687 * HEADER:hdrname or
688 * HEADER:hdrname(10) or
689 * HEADER:hdrname(10%) or
690 * HEADER:hdrname(10,2) or
691 * HEADER:hdrname(,2) or
692 * HEADER:hdrname(10,2, ) or
693 * HEADER:hdrname(10,2,\,:) or
694 * HEADER:hdrname(10,2,\,:,R)
695 *
696 * iText field uses the hdrtok field for convenience. It has syntax
697 *
698 * TEXT:text or
699 * TEXT:text(10) or
700 * TEXT:text(10%)
701 *
702 * and the literal text goes into the index line. It is also special
703 * because there is no 1 column space after this field.
704 */
705
706 /* skip over name */
707 p += strlen(pt->name);
708
709 /* look for header name */
710 if(*p == ':'){
711 char *w, hdrname[200];
712
713 hdrname[0] = '\0';
714 w = hdrname;
715 p++;
716 if(*p == '\"'){ /* quoted name */
717 p++;
718 while(w < hdrname + sizeof(hdrname)-1 && *p != '\"'){
719 if(*p == '\\')
720 p++;
721
722 *w++ = *p++;
723 }
724
725 *w = '\0';
726 if(*p == '\"')
727 p++;
728 }
729 else{
730 while(w < hdrname + sizeof(hdrname)-1 &&
731 !(!(*p & 0x80) && isspace((unsigned char)*p)) &&
732 *p != '(')
733 *w++ = *p++;
734
735 *w = '\0';
736 }
737
738 if(hdrname[0]){
739 cdesc[column].hdrtok = new_hdrtok(hdrname);
740 }
741 else{
742 if(pt->ctype == iHeader){
743 dprint((1, "parse_index_token: HEADER should be followed by :hdrname\n"));
744 q_status_message(SM_ORDER | SM_DING, 0, 3, "index token HEADER should be followed by :hdrname");
745 }
746 else{
747 dprint((1, "parse_index_token: TEXT should be followed by :text\n"));
748 q_status_message(SM_ORDER | SM_DING, 0, 3, "index token TEXT should be followed by :text");
749 }
750 }
751 }
752 else{
753 if(pt->ctype == iHeader){
754 dprint((1, "parse_index_token: HEADER should be followed by :hdrname, not %s\n", p));
755 q_status_message(SM_ORDER | SM_DING, 0, 3, "index token HEADER should be followed by :hdrname");
756 }
757 else{
758 dprint((1, "parse_index_token: TEXT should be followed by :text, not %s\n", p));
759 q_status_message(SM_ORDER | SM_DING, 0, 3, "index token TEXT should be followed by :text");
760 }
761
762 /* skip over rest of bogus config */
763 while(!(!(*p & 0x80) && isspace((unsigned char)*p)) && *p != '(')
764 p++;
765 }
766 }
767 else{
768 /* skip over name and look for parens */
769 p += strlen(pt->name);
770 }
771
772 if(*p == '('){
773 p++;
774 q = p;
775 while(p && *p && isdigit((unsigned char) *p))
776 p++;
777
778 if(pt->ctype == iHeader){
779 /* first argument is width or width percentage, like for others */
780 if(p && *p && (*p == ')' || *p == ',')){
781 if(p > q){
782 cdesc[column].wtype = Fixed;
783 cdesc[column].req_width = atoi(q);
784 }
785 else{
786 cdesc[column].wtype = WeCalculate;
787 cdesc[column].req_width = 0;
788 }
789 }
790 else if(p && *p && *p == '%' && p > q){
791 cdesc[column].wtype = Percent;
792 cdesc[column].req_width = atoi(q);
793 p++;
794 }
795 else{
796 cdesc[column].wtype = WeCalculate;
797 cdesc[column].req_width = 0;
798 }
799
800 /* optional 2nd argument is field number, 0 whole thing, 1, 2, ... */
801 if(p && *p && *p == ','){
802 p++;
803 /* no space allowed between arguments */
804 if(*p && isdigit((unsigned char) *p)){
805 q = p;
806 while(*p && isdigit((unsigned char) *p))
807 p++;
808
809 cdesc[column].hdrtok->fieldnum = atoi(q);
810
811 /*
812 * Optional 3rd argument is field separators.
813 * Comma is \, and backslash is \\.
814 */
815 if(*p == ','){
816 int j;
817
818 p++;
819 /* don't use default */
820 if(*p && *p != ')' && *p != ',' && cdesc[column].hdrtok->fieldseps)
821 cdesc[column].hdrtok->fieldseps[0] = '\0';
822
823 j = 0;
824 if(*p == '\"' && strchr(p+1, '\"')){
825 p++;
826 while(*p && *p != ')' && *p != '\"' && *p != ','){
827 if(cdesc[column].hdrtok->fieldseps)
828 fs_resize((void **) &cdesc[column].hdrtok->fieldseps, j+2);
829
830 if(*p == '\\' && *(p+1))
831 p++;
832
833 if(cdesc[column].hdrtok->fieldseps){
834 cdesc[column].hdrtok->fieldseps[j++] = *p++;
835 cdesc[column].hdrtok->fieldseps[j] = '\0';
836 cdesc[column].hdrtok->fieldsepcnt = j;
837 }
838 }
839
840 if(*p == '\"')
841 p++;
842 }
843 else{
844 while(*p && *p != ')' && *p != ','){
845 if(cdesc[column].hdrtok->fieldseps)
846 fs_resize((void **) &cdesc[column].hdrtok->fieldseps, j+2);
847 if(*p == '\\' && *(p+1))
848 p++;
849
850 if(cdesc[column].hdrtok->fieldseps){
851 cdesc[column].hdrtok->fieldseps[j++] = *p++;
852 cdesc[column].hdrtok->fieldseps[j] = '\0';
853 cdesc[column].hdrtok->fieldsepcnt = j;
854 }
855 }
856 }
857
858 /* optional 4th argument, left or right adjust */
859 if(*p == ','){
860 p++;
861 if(*p == 'L' || *p == 'l')
862 cdesc[column].hdrtok->adjustment = Left;
863 else if(*p == 'R' || *p == 'r')
864 cdesc[column].hdrtok->adjustment = Right;
865 else{
866 dprint((1, "parse_index_token: HEADER 4th argument should be L or R, not\n", *p ? p : "<null>"));
867 q_status_message(SM_ORDER | SM_DING, 0, 3, "HEADER 4th argument should be L or R");
868 }
869 }
870 }
871 }
872 else{
873 dprint((1, "parse_index_token: HEADER 2nd argument should be field number, not\n", *p ? p : "<null>"));
874 q_status_message(SM_ORDER | SM_DING, 0, 3, "HEADER 2nd argument should be field number, a non-negative digit");
875 }
876 }
877 }
878 else{
879 if(p && *p && *p == ')' && p > q){
880 cdesc[column].wtype = Fixed;
881 cdesc[column].req_width = atoi(q);
882 }
883 else if(p && *p && *p == '%' && p > q){
884 cdesc[column].wtype = Percent;
885 cdesc[column].req_width = atoi(q);
886 }
887 else{
888 cdesc[column].wtype = WeCalculate;
889 cdesc[column].req_width = 0;
890 }
891 }
892 }
893 else{
894 /* if they left out width for iText we can figure it out */
895 if(pt->ctype == iText && cdesc[column].hdrtok && cdesc[column].hdrtok->hdrname){
896 cdesc[column].wtype = Fixed;
897 cdesc[column].req_width = utf8_width(cdesc[column].hdrtok->hdrname);
898 }
899 else{
900 cdesc[column].wtype = WeCalculate;
901 cdesc[column].req_width = 0;
902 }
903 }
904
905 column++;
906 /* skip text at end of word */
907 while(p && *p && !isspace((unsigned char)*p))
908 p++;
909 }
910
911 /* if, after all that, we didn't find anything recognizable, bitch */
912 if(!column){
913 dprint((1, "Completely unrecognizable index-format\n"));
914 q_status_message(SM_ORDER | SM_DING, 0, 3,
915 _("Configured \"index-format\" unrecognizable. Using default."));
916 return(0);
917 }
918
919 /* Finish with Nothing column */
920 cdesc[column].ctype = iNothing;
921
922 /* free up old answer */
923 if(*answer)
924 free_index_format(answer);
925
926 /* allocate space for new answer */
927 *answer = (INDEX_COL_S *)fs_get((column+1)*sizeof(INDEX_COL_S));
928 memset((void *)(*answer), 0, (column+1)*sizeof(INDEX_COL_S));
929 /* copy answer to real place */
930 for(i = 0; i <= column; i++)
931 (*answer)[i] = cdesc[i];
932
933 return(1);
934 }
935
936
937 /*
938 * These types are basically fixed in width.
939 * The order is slightly significant. The ones towards the front of the
940 * list get space allocated sooner than the ones at the end of the list.
941 */
942 static IndexColType fixed_ctypes[] = {
943 iMessNo, iStatus, iFStatus, iIStatus, iSIStatus,
944 iDate, iSDate, iSDateTime, iSDateTime24,
945 iSTime, iSTime24, iLDate,
946 iS1Date, iS2Date, iS3Date, iS4Date, iDateIso, iDateIsoS,
947 iSDateIso, iSDateIsoS,
948 iSDateS1, iSDateS2, iSDateS3, iSDateS4,
949 iSDateTimeIso, iSDateTimeIsoS,
950 iSDateTimeS1, iSDateTimeS2, iSDateTimeS3, iSDateTimeS4,
951 iSDateTimeIso24, iSDateTimeIsoS24,
952 iSDateTimeS124, iSDateTimeS224, iSDateTimeS324, iSDateTimeS424,
953 iSize, iSizeComma, iSizeNarrow, iKSize, iDescripSize,
954 iPrio, iPrioBang, iPrioAlpha, iInit,
955 iAtt, iTime24, iTime12, iTimezone, iMonAbb, iYear, iYear2Digit,
956 iDay2Digit, iMon2Digit, iDayOfWeekAbb, iScore, iMonLong, iDayOfWeek
957 };
958
959
960 int
961 ctype_is_fixed_length(IndexColType ctype)
962 {
963 int j;
964
965 for(j = 0; ; j++){
966 if(j >= sizeof(fixed_ctypes)/sizeof(*fixed_ctypes))
967 break;
968
969 if(ctype == fixed_ctypes[j])
970 return 1;
971 }
972
973 return 0;
974 }
975
976
977 /*----------------------------------------------------------------------
978 Setup the widths of the various columns in the index display
979 ----*/
980 void
981 setup_index_header_widths(MAILSTREAM *stream)
982 {
983 int colspace; /* for reserving space between columns */
984 int j, some_to_calculate;
985 int space_left, screen_width, fix;
986 int keep_going, tot_pct, was_sl;
987 long max_msgno;
988 WidthType wtype;
989 INDEX_COL_S *cdesc;
990
991 max_msgno = mn_get_total(ps_global->msgmap);
992
993 dprint((8, "=== setup_index_header_widths() ===\n"));
994
995 clear_icache_flags(stream);
996 screen_width = ps_global->ttyo->screen_cols;
997 space_left = screen_width;
998 some_to_calculate = 0;
999 colspace = -1;
1000
1001 /*
1002 * Calculate how many fields there are so we know how many spaces
1003 * between columns to reserve. Fill in Fixed widths now. Reserve
1004 * special case WeCalculate with non-zero req_widths before doing
1005 * Percent cases below.
1006 */
1007 for(cdesc = ps_global->index_disp_format;
1008 cdesc->ctype != iNothing;
1009 cdesc++){
1010
1011 if(cdesc->wtype == Fixed){
1012 cdesc->width = cdesc->req_width;
1013 if(cdesc->width > 0)
1014 colspace++;
1015 }
1016 else if(cdesc->wtype == Percent){
1017 cdesc->width = 0; /* calculated later */
1018 colspace++;
1019 }
1020 else{ /* WeCalculate */
1021 cdesc->width = cdesc->req_width; /* reserve this for now */
1022 some_to_calculate++;
1023 colspace++;
1024 }
1025
1026 /* no space after iText */
1027 if(cdesc->ctype == iText)
1028 colspace--;
1029
1030 space_left -= cdesc->width;
1031 }
1032
1033 colspace = MAX(colspace, 0);
1034
1035 space_left -= colspace; /* space between columns */
1036
1037 ps_global->display_keywords_in_subject = 0;
1038 ps_global->display_keywordinits_in_subject = 0;
1039
1040 /*
1041 * Set the actual lengths for the fixed width fields and set up
1042 * the left or right adjustment for everything.
1043 * There should be a case setting actual_length for all of the types
1044 * in fixed_ctypes.
1045 */
1046 for(cdesc = ps_global->index_disp_format;
1047 cdesc->ctype != iNothing;
1048 cdesc++){
1049
1050 wtype = cdesc->wtype;
1051
1052 if(cdesc->ctype == iSubjKey || cdesc->ctype == iSubjKeyText)
1053 ps_global->display_keywords_in_subject = 1;
1054 else if(cdesc->ctype == iSubjKeyInit || cdesc->ctype == iSubjKeyInitText)
1055 ps_global->display_keywordinits_in_subject = 1;
1056
1057 if(wtype == WeCalculate || wtype == Percent || cdesc->width != 0){
1058
1059 switch(cdesc->ctype){
1060 case iSDate: case iSDateIso: case iSDateIsoS:
1061 case iSDateS1: case iSDateS2: case iSDateS3: case iSDateS4:
1062 case iSDateTime: case iSDateTimeIso: case iSDateTimeIsoS:
1063 case iSDateTimeS1: case iSDateTimeS2: case iSDateTimeS3: case iSDateTimeS4:
1064 case iSDateTime24: case iSDateTimeIso24: case iSDateTimeIsoS24:
1065 case iSDateTimeS124: case iSDateTimeS224: case iSDateTimeS324: case iSDateTimeS424:
1066 case iSTime: case iSTime24:
1067 set_format_includes_smartdate(stream);
1068 break;
1069
1070 default:
1071 break;
1072 }
1073
1074 if(ctype_is_fixed_length(cdesc->ctype)){
1075 switch(cdesc->ctype){
1076 case iPrio:
1077 case iPrioBang:
1078 case iAtt:
1079 cdesc->actual_length = 1;
1080 cdesc->adjustment = Left;
1081 break;
1082
1083 case iYear2Digit:
1084 case iDay2Digit:
1085 case iMon2Digit:
1086 cdesc->actual_length = 2;
1087 cdesc->adjustment = Left;
1088 break;
1089
1090 case iArrow:
1091 cdesc->actual_length = 2;
1092 cdesc->adjustment = Right;
1093 break;
1094
1095 case iStatus:
1096 case iInit:
1097 cdesc->actual_length = 3;
1098 cdesc->adjustment = Left;
1099 break;
1100
1101 case iMessNo:
1102 set_format_includes_msgno(stream);
1103 if(max_msgno < 1000)
1104 cdesc->actual_length = 3;
1105 else if(max_msgno < 10000)
1106 cdesc->actual_length = 4;
1107 else if(max_msgno < 100000)
1108 cdesc->actual_length = 5;
1109 else
1110 cdesc->actual_length = 6;
1111
1112 cdesc->adjustment = Right;
1113 break;
1114
1115 case iYear:
1116 case iSIStatus:
1117 cdesc->actual_length = 4;
1118 cdesc->adjustment = Left;
1119 break;
1120
1121 case iTime24:
1122 case iTimezone:
1123 cdesc->actual_length = 5;
1124 cdesc->adjustment = Left;
1125 break;
1126
1127 case iSizeNarrow:
1128 cdesc->actual_length = 5;
1129 cdesc->adjustment = Right;
1130 break;
1131
1132 case iFStatus:
1133 case iIStatus:
1134 cdesc->actual_length = 6;
1135 cdesc->adjustment = Left;
1136 break;
1137
1138 case iScore:
1139 cdesc->actual_length = 6;
1140 cdesc->adjustment = Right;
1141 break;
1142
1143 case iTime12:
1144 case iSize:
1145 case iKSize:
1146 cdesc->actual_length = 7;
1147 cdesc->adjustment = Right;
1148 break;
1149
1150 case iSTime:
1151 cdesc->actual_length = 7;
1152 cdesc->adjustment = Left;
1153 break;
1154
1155 case iPrioAlpha:
1156 cdesc->actual_length = 7;
1157 cdesc->adjustment = Left;
1158 break;
1159
1160
1161 case iS1Date:
1162 case iS2Date:
1163 case iS3Date:
1164 case iS4Date:
1165 case iDateIsoS:
1166 cdesc->actual_length = 8;
1167 cdesc->adjustment = Left;
1168 break;
1169
1170 case iSizeComma:
1171 cdesc->actual_length = 8;
1172 cdesc->adjustment = Right;
1173 break;
1174
1175 case iSDate:
1176 case iSDateTime:
1177 case iSDateTime24:
1178 case iMonAbb:
1179 case iDayOfWeekAbb:
1180 case iDayOfWeek:
1181 case iDate:
1182 case iMonLong:
1183 cdesc->actual_length = cdesc->req_width;
1184 cdesc->adjustment = Left;
1185 break;
1186
1187 case iSTime24:
1188 case iSDateIsoS:
1189 case iSDateS1: case iSDateS2: case iSDateS3: case iSDateS4:
1190 case iSDateTimeIsoS:
1191 case iSDateTimeIsoS24:
1192 case iSDateTimeS1: case iSDateTimeS2: case iSDateTimeS3: case iSDateTimeS4:
1193 case iSDateTimeS124: case iSDateTimeS224: case iSDateTimeS324: case iSDateTimeS424:
1194 case iSDateIso: case iSDateTimeIso: case iSDateTimeIso24:
1195 if(cdesc->ctype == iSDateIso
1196 || cdesc->ctype == iSDateTimeIso
1197 || cdesc->ctype == iSDateTimeIso24)
1198 cdesc->actual_length = 10;
1199 else
1200 cdesc->actual_length = 9;
1201
1202 cdesc->adjustment = Left;
1203 break;
1204
1205 case iDescripSize:
1206 cdesc->actual_length = 9;
1207 cdesc->adjustment = Right;
1208 break;
1209
1210 case iDateIso:
1211 cdesc->actual_length = 10;
1212 cdesc->adjustment = Left;
1213 break;
1214
1215 case iLDate:
1216 cdesc->actual_length = 12;
1217 cdesc->adjustment = Left;
1218 break;
1219
1220 default:
1221 alpine_panic("Unhandled fixed case in setup_index_header");
1222 break;
1223 }
1224 }
1225 else if(cdesc->ctype == iHeader)
1226 cdesc->adjustment = cdesc->hdrtok ? cdesc->hdrtok->adjustment : Left;
1227 else
1228 cdesc->adjustment = Left;
1229 }
1230 }
1231
1232 if(ps_global->display_keywords_in_subject)
1233 ps_global->display_keywordinits_in_subject = 0;
1234
1235 /* if have reserved unneeded space for size, give it back */
1236 for(cdesc = ps_global->index_disp_format;
1237 cdesc->ctype != iNothing;
1238 cdesc++)
1239 if(cdesc->ctype == iSize || cdesc->ctype == iKSize ||
1240 cdesc->ctype == iSizeNarrow ||
1241 cdesc->ctype == iSizeComma || cdesc->ctype == iDescripSize){
1242 if(cdesc->actual_length == 0){
1243 if((fix=cdesc->width) > 0){ /* had this reserved */
1244 cdesc->width = 0;
1245 space_left += fix;
1246 }
1247
1248 space_left++; /* +1 for space between columns */
1249 }
1250 }
1251
1252 /*
1253 * Calculate the field widths that are basically fixed in width.
1254 * Do them in this order in case we don't have enough space to go around.
1255 * The set of fixed_ctypes here is the same as the set where we
1256 * set the actual_lengths above.
1257 */
1258 for(j = 0; space_left > 0 && some_to_calculate; j++){
1259
1260 if(j >= sizeof(fixed_ctypes)/sizeof(*fixed_ctypes))
1261 break;
1262
1263 for(cdesc = ps_global->index_disp_format;
1264 cdesc->ctype != iNothing && space_left > 0 && some_to_calculate;
1265 cdesc++)
1266 if(cdesc->ctype == fixed_ctypes[j] && cdesc->wtype == WeCalculate){
1267 some_to_calculate--;
1268 fix = MIN(cdesc->actual_length - cdesc->width, space_left);
1269 cdesc->width += fix;
1270 space_left -= fix;
1271 }
1272 }
1273
1274 /*
1275 * Fill in widths for Percent cases. If there are no more to calculate,
1276 * use the percentages as relative numbers and use the rest of the space,
1277 * else treat them as absolute percentages of the original avail screen.
1278 */
1279 if(space_left > 0){
1280 if(some_to_calculate){
1281 int tot_requested = 0;
1282
1283 /*
1284 * Requests are treated as percent of screen width. See if they
1285 * will all fit. If not, trim them back proportionately.
1286 */
1287 for(cdesc = ps_global->index_disp_format;
1288 cdesc->ctype != iNothing;
1289 cdesc++){
1290 if(cdesc->wtype == Percent){
1291 /* The 2, 200, and +100 are because we're rounding */
1292 fix = ((2*cdesc->req_width *
1293 (screen_width-colspace))+100) / 200;
1294 tot_requested += fix;
1295 }
1296 }
1297
1298 if(tot_requested > space_left){
1299 int multiplier = (100 * space_left) / tot_requested;
1300
1301 for(cdesc = ps_global->index_disp_format;
1302 cdesc->ctype != iNothing && space_left > 0;
1303 cdesc++){
1304 if(cdesc->wtype == Percent){
1305 /* The 2, 200, and +100 are because we're rounding */
1306 fix = ((2*cdesc->req_width *
1307 (screen_width-colspace))+100) / 200;
1308 fix = (2 * fix * multiplier + 100) / 200;
1309 fix = MIN(fix, space_left);
1310 cdesc->width += fix;
1311 space_left -= fix;
1312 }
1313 }
1314 }
1315 else{
1316 for(cdesc = ps_global->index_disp_format;
1317 cdesc->ctype != iNothing && space_left > 0;
1318 cdesc++){
1319 if(cdesc->wtype == Percent){
1320 /* The 2, 200, and +100 are because we're rounding */
1321 fix = ((2*cdesc->req_width *
1322 (screen_width-colspace))+100) / 200;
1323 fix = MIN(fix, space_left);
1324 cdesc->width += fix;
1325 space_left -= fix;
1326 }
1327 }
1328 }
1329 }
1330 else{
1331 tot_pct = 0;
1332 was_sl = space_left;
1333 /* add up total percentages requested */
1334 for(cdesc = ps_global->index_disp_format;
1335 cdesc->ctype != iNothing;
1336 cdesc++)
1337 if(cdesc->wtype == Percent)
1338 tot_pct += cdesc->req_width;
1339
1340 /* give relative weight to requests */
1341 for(cdesc = ps_global->index_disp_format;
1342 cdesc->ctype != iNothing && space_left > 0 && tot_pct > 0;
1343 cdesc++){
1344 if(cdesc->wtype == Percent){
1345 fix = ((2*cdesc->req_width*was_sl)+tot_pct) / (2*tot_pct);
1346 fix = MIN(fix, space_left);
1347 cdesc->width += fix;
1348 space_left -= fix;
1349 }
1350 }
1351 }
1352 }
1353
1354 /* split up rest, give twice as much to Subject */
1355 keep_going = 1;
1356 while(space_left > 0 && keep_going){
1357 keep_going = 0;
1358 for(cdesc = ps_global->index_disp_format;
1359 cdesc->ctype != iNothing && space_left > 0;
1360 cdesc++){
1361 if(cdesc->wtype == WeCalculate && !ctype_is_fixed_length(cdesc->ctype)){
1362 keep_going++;
1363 cdesc->width++;
1364 space_left--;
1365 if(space_left > 0 && (cdesc->ctype == iSubject
1366 || cdesc->ctype == iShortSubject
1367 || cdesc->ctype == iSubjectText
1368 || cdesc->ctype == iSubjKey
1369 || cdesc->ctype == iShortSubjKey
1370 || cdesc->ctype == iSubjKeyText
1371 || cdesc->ctype == iSubjKeyInit
1372 || cdesc->ctype == iShortSubjKeyInit
1373 || cdesc->ctype == iSubjKeyInitText)){
1374 cdesc->width++;
1375 space_left--;
1376 }
1377 }
1378 }
1379 }
1380
1381 /* if still more, pad out percent's */
1382 keep_going = 1;
1383 while(space_left > 0 && keep_going){
1384 keep_going = 0;
1385 for(cdesc = ps_global->index_disp_format;
1386 cdesc->ctype != iNothing && space_left > 0;
1387 cdesc++){
1388 if(cdesc->wtype == Percent && !ctype_is_fixed_length(cdesc->ctype)){
1389 keep_going++;
1390 cdesc->width++;
1391 space_left--;
1392 }
1393 }
1394 }
1395
1396 /* if user made Fixed fields too big, give back space */
1397 keep_going = 1;
1398 while(space_left < 0 && keep_going){
1399 keep_going = 0;
1400 for(cdesc = ps_global->index_disp_format;
1401 cdesc->ctype != iNothing && space_left < 0;
1402 cdesc++){
1403 if(cdesc->wtype == Fixed && cdesc->width > 0){
1404 keep_going++;
1405 cdesc->width--;
1406 space_left++;
1407 }
1408 }
1409 }
1410
1411 if(pith_opt_save_index_state)
1412 (*pith_opt_save_index_state)(FALSE);
1413 }
1414
1415
1416 void
1417 setup_thread_header_widths(MAILSTREAM *stream)
1418 {
1419 clear_icache_flags(stream);
1420 if(pith_opt_save_index_state)
1421 (*pith_opt_save_index_state)(TRUE);
1422 }
1423
1424
1425 /*
1426 * load_overview - c-client call back to gather overview data
1427 *
1428 * Note: if we never get called, UID represents a hole
1429 * if we're passed a zero UID, totally bogus overview data
1430 * if we're passed a zero obuf, mostly bogus overview data
1431 */
1432 void
1433 load_overview(MAILSTREAM *stream, imapuid_t uid, OVERVIEW *obuf, long unsigned int rawno)
1434 {
1435 if(obuf && rawno >= 1L && stream && rawno <= stream->nmsgs){
1436 INDEXDATA_S idata;
1437 ICE_S *ice;
1438
1439 memset(&idata, 0, sizeof(INDEXDATA_S));
1440 idata.no_fetch = 1;
1441
1442 /*
1443 * Only really load the thing if we've got an NNTP stream
1444 * otherwise we're just using mail_fetch_overview to load the
1445 * IMAP envelope cache with the specific set of messages
1446 * in a single RTT.
1447 */
1448 idata.stream = stream;
1449 idata.rawno = rawno;
1450 idata.msgno = mn_raw2m(sp_msgmap(stream), idata.rawno);
1451 idata.size = obuf->optional.octets;
1452 idata.from = obuf->from;
1453 idata.date = obuf->date;
1454 idata.subject = obuf->subject;
1455
1456 ice = (*format_index_line)(&idata);
1457 if(idata.bogus && ice){
1458 if(THRD_INDX()){
1459 if(ice->tice)
1460 clear_ice(&ice->tice);
1461 }
1462 else
1463 clear_ice(&ice);
1464 }
1465 else if(F_OFF(F_QUELL_NEWS_ENV_CB, ps_global)
1466 && (!THRD_INDX() || (ice && ice->tice))
1467 && !msgline_hidden(stream, sp_msgmap(stream), idata.msgno, 0)
1468 && pith_opt_paint_index_hline){
1469 (*pith_opt_paint_index_hline)(stream, idata.msgno, ice);
1470 }
1471 }
1472 }
1473
1474
1475 ICE_S *
1476 build_header_work(struct pine *state, MAILSTREAM *stream, MSGNO_S *msgmap,
1477 long int msgno, long int top_msgno, int msgcount, int *fetched)
1478 {
1479 ICE_S *ice, *ic;
1480 MESSAGECACHE *mc;
1481 long n, i, cnt, rawno, visible, limit = -1L;
1482
1483 rawno = mn_m2raw(msgmap, msgno);
1484
1485 /* cache hit? */
1486 if(THRD_INDX()){
1487 ice = fetch_ice(stream, rawno);
1488 if(!ice)
1489 return(NULL);
1490
1491 if(ice->tice && ice->tice->ifield
1492 && ice->tice->color_lookup_done && ice->tice->widths_done){
1493 #ifdef DEBUG
1494 char buf[MAX_SCREEN_COLS+1];
1495 simple_index_line(buf, sizeof(buf), ice->tice, msgno);
1496 #endif
1497 dprint((9, "Hitt: Returning %p -> <%s (%d)\n",
1498 ice->tice,
1499 buf[0] ? buf : "?",
1500 buf[0] ? strlen(buf) : 0));
1501 return(ice);
1502 }
1503 }
1504 else{
1505 ice = fetch_ice(stream, rawno);
1506 if(!ice)
1507 return(NULL);
1508
1509 if(ice->ifield && ice->color_lookup_done && ice->widths_done){
1510 #ifdef DEBUG
1511 char buf[MAX_SCREEN_COLS+1];
1512 simple_index_line(buf, sizeof(buf), ice, msgno);
1513 #endif
1514 dprint((9, "Hit: Returning %p -> <%s (%d)\n",
1515 ice,
1516 buf[0] ? buf : "?",
1517 buf[0] ? strlen(buf) : 0));
1518 return(ice);
1519 }
1520 }
1521
1522 /*
1523 * If we are in THRD_INDX() and the width changed we don't currently
1524 * have a method of fixing just the widths and print_format strings.
1525 * Instead, we clear the index cache entry and start over.
1526 */
1527 if(THRD_INDX() && ice && ice->tice && ice->tice->ifield
1528 && !ice->tice->widths_done){
1529 clear_ice(&ice->tice);
1530 }
1531
1532 /*
1533 * Fetch everything we need to start filling in the index line
1534 * explicitly via mail_fetch_overview. On an nntp stream
1535 * this has the effect of building the index lines in the
1536 * load_overview callback. Under IMAP we're either getting
1537 * the envelope data via the imap_envelope callback or
1538 * preloading the cache. Either way, we're getting exactly
1539 * what we want rather than relying on linear lookahead sort
1540 * of prefetch...
1541 */
1542 if(!(fetched && *fetched) && index_in_overview(stream)
1543 && ((THRD_INDX() && !(ice->tice && ice->tice->ifield))
1544 || (!THRD_INDX() && !ice->ifield))){
1545 char *seq;
1546 int count;
1547 MESSAGECACHE *mc;
1548 PINETHRD_S *thrd;
1549
1550 if(fetched)
1551 (*fetched)++;
1552
1553 /* clear sequence bits */
1554 for(n = 1L; n <= stream->nmsgs; n++)
1555 if((mc = mail_elt(stream, n)) != NULL)
1556 mc->sequence = 0;
1557
1558 /*
1559 * Light interesting bits
1560 * NOTE: not set above because m2raw's cheaper
1561 * than raw2m for every message
1562 */
1563
1564 /*
1565 * Unfortunately, it is expensive to calculate visible pages
1566 * in thread index if we are zoomed, so we don't try.
1567 */
1568 if(THRD_INDX() && any_lflagged(msgmap, MN_HIDE))
1569 visible = msgmap->visible_threads;
1570 else if(THREADING() && sp_viewing_a_thread(stream)){
1571 /*
1572 * We know that all visible messages in the thread are marked
1573 * with MN_CHID2.
1574 */
1575 for(visible = 0L, n = top_msgno;
1576 visible < msgcount && n <= mn_get_total(msgmap);
1577 n++){
1578
1579 if(!get_lflag(stream, msgmap, n, MN_CHID2))
1580 break;
1581
1582 if(!msgline_hidden(stream, msgmap, n, 0))
1583 visible++;
1584 }
1585
1586 }
1587 else
1588 visible = mn_get_total(msgmap)
1589 - any_lflagged(msgmap, MN_HIDE|MN_CHID);
1590
1591 limit = MIN(visible, msgcount);
1592
1593 if(THRD_INDX()){
1594 count = i = 0;
1595
1596 /*
1597 * First add the msgno we're asking for in case it
1598 * isn't visible.
1599 */
1600 thrd = fetch_thread(stream, mn_m2raw(msgmap, msgno));
1601 if(msgno <= mn_get_total(msgmap)
1602 && (!(ic=fetch_ice(stream,thrd->rawno)) || !(ic=ic->tice) || !ic->ifield)){
1603 count += mark_msgs_in_thread(stream, thrd, msgmap);
1604 }
1605
1606 thrd = fetch_thread(stream, mn_m2raw(msgmap, top_msgno));
1607
1608 /*
1609 * Loop through visible threads, marking them for fetching.
1610 * Stop at end of screen or sooner if we run out of visible
1611 * threads.
1612 */
1613 while(thrd){
1614 n = mn_raw2m(msgmap, thrd->rawno);
1615 if(n >= msgno
1616 && n <= mn_get_total(msgmap)
1617 && (!(ic=fetch_ice(stream,thrd->rawno)) || !(ic=ic->tice) || !ic->ifield)){
1618 count += mark_msgs_in_thread(stream, thrd, msgmap);
1619 }
1620
1621 if(++i >= limit)
1622 break;
1623
1624 /* find next thread which is visible */
1625 do{
1626 if(mn_get_revsort(msgmap) && thrd->prevthd)
1627 thrd = fetch_thread(stream, thrd->prevthd);
1628 else if(!mn_get_revsort(msgmap) && thrd->nextthd)
1629 thrd = fetch_thread(stream, thrd->nextthd);
1630 else
1631 thrd = NULL;
1632 } while(thrd
1633 && msgline_hidden(stream, msgmap,
1634 mn_raw2m(msgmap, thrd->rawno), 0));
1635 }
1636 }
1637 else{
1638 count = i = 0;
1639
1640 /*
1641 * First add the msgno we're asking for in case it
1642 * isn't visible.
1643 */
1644 if(msgno > 0L && msgno <= mn_get_total(msgmap)
1645 && (!(ic=fetch_ice(stream, (rawno=mn_m2raw(msgmap,msgno)))) || !ic->ifield)){
1646 if((thrd = fetch_thread(stream, rawno)) != NULL){
1647 /*
1648 * If we're doing a MUTTLIKE display the index line
1649 * may depend on the thread parent, and grandparent,
1650 * and further back. So just fetch the whole thread
1651 * in that case.
1652 */
1653 if(THREADING()
1654 && ps_global->thread_disp_style == THREAD_MUTTLIKE
1655 && thrd->top)
1656 thrd = fetch_thread(stream, thrd->top);
1657
1658 count += mark_msgs_in_thread(stream, thrd, msgmap);
1659 }
1660 else if(rawno > 0L && rawno <= stream->nmsgs
1661 && (mc = mail_elt(stream,rawno))
1662 && !mc->private.msg.env){
1663 mc->sequence = 1;
1664 count++;
1665 }
1666 }
1667
1668 n = top_msgno;
1669 while(1){
1670 if(n >= msgno
1671 && n <= mn_get_total(msgmap)
1672 && (!(ic=fetch_ice(stream, (rawno=mn_m2raw(msgmap,n)))) || !ic->ifield)){
1673 if((thrd = fetch_thread(stream, rawno)) != NULL){
1674 /*
1675 * If we're doing a MUTTLIKE display the index line
1676 * may depend on the thread parent, and grandparent,
1677 * and further back. So just fetch the whole thread
1678 * in that case.
1679 */
1680 if(THREADING()
1681 && ps_global->thread_disp_style == THREAD_MUTTLIKE
1682 && thrd->top)
1683 thrd = fetch_thread(stream, thrd->top);
1684
1685 count += mark_msgs_in_thread(stream, thrd, msgmap);
1686 }
1687 else if(rawno > 0L && rawno <= stream->nmsgs
1688 && (mc = mail_elt(stream,rawno))
1689 && !mc->private.msg.env){
1690 mc->sequence = 1;
1691 count++;
1692 }
1693 }
1694
1695 if(++i >= limit)
1696 break;
1697
1698 /* find next n which is visible */
1699 while(++n <= mn_get_total(msgmap)
1700 && msgline_hidden(stream, msgmap, n, 0))
1701 ;
1702 }
1703 }
1704
1705 if(count){
1706 seq = build_sequence(stream, NULL, NULL);
1707 if(seq){
1708 ps_global->dont_count_flagchanges = 1;
1709 mail_fetch_overview_sequence(stream, seq,
1710 (stream->dtb && stream->dtb->name
1711 && !strcmp(stream->dtb->name, "imap"))
1712 ? NULL : load_overview);
1713 ps_global->dont_count_flagchanges = 0;
1714 fs_give((void **) &seq);
1715 }
1716 }
1717
1718 /*
1719 * reassign ice from the cache as it may've been built
1720 * within the overview callback or it may have become stale
1721 * in the prior sequence bit setting loop ...
1722 */
1723 rawno = mn_m2raw(msgmap, msgno);
1724 ice = fetch_ice(stream, rawno);
1725 if(!ice)
1726 return(NULL);
1727 }
1728
1729 if((THRD_INDX() && !(ice->tice && ice->tice->ifield))
1730 || (!THRD_INDX() && !ice->ifield)){
1731 INDEXDATA_S idata;
1732
1733 /*
1734 * With pre-fetching/callback-formatting done and no success,
1735 * fall into formatting the requested line...
1736 */
1737 memset(&idata, 0, sizeof(INDEXDATA_S));
1738 idata.stream = stream;
1739 idata.msgno = msgno;
1740 idata.rawno = mn_m2raw(msgmap, msgno);
1741 if(stream && idata.rawno > 0L && idata.rawno <= stream->nmsgs
1742 && (mc = mail_elt(stream, idata.rawno))){
1743 idata.size = mc->rfc822_size;
1744 index_data_env(&idata, pine_mail_fetchenvelope(stream,idata.rawno));
1745 }
1746 else
1747 idata.bogus = 2;
1748
1749 ice = (*format_index_line)(&idata);
1750 if(!ice)
1751 return(NULL);
1752 }
1753
1754 /*
1755 * If needed, reset the print_format strings so that they add up to
1756 * the right total width. The reset width functionality isn't implemented
1757 * for THRD_INDX() so we are just doing a complete rebuild in that
1758 * case. This is driven by the clear_ice() call in clear_index_cache_ent()
1759 * so it should never be the case that THRD_INDX() is true and only
1760 * widths_done needs to be fixed.
1761 */
1762 if((!THRD_INDX() && ice->ifield && !ice->widths_done)){
1763 ICE_S *working_ice;
1764 IFIELD_S *ifield;
1765 INDEX_COL_S *cdesc;
1766
1767 if(need_format_setup(stream))
1768 setup_header_widths(stream);
1769
1770 if(THRD_INDX())
1771 working_ice = ice ? ice->tice : NULL;
1772 else
1773 working_ice = ice;
1774
1775 if(working_ice){
1776 /*
1777 * First fix the ifield widths. The cdescs with nonzero widths
1778 * should correspond to the ifields that are defined.
1779 */
1780 ifield = working_ice->ifield;
1781 for(cdesc = ps_global->index_disp_format;
1782 cdesc->ctype != iNothing && ifield; cdesc++){
1783 if(cdesc->width){
1784 if(cdesc->ctype != ifield->ctype){
1785 dprint((1, "build_header_work(%ld): cdesc->ctype=%d != ifield->ctype=%d NOT SUPPOSED TO HAPPEN!\n", msgno, (int) cdesc->ctype, (int) ifield->ctype));
1786 assert(0);
1787 }
1788
1789 ifield->width = cdesc->width;
1790 ifield = ifield->next;
1791 }
1792 }
1793
1794 /* fix the print_format strings and widths */
1795 for(ifield = working_ice->ifield; ifield; ifield = ifield->next)
1796 set_ielem_widths_in_field(ifield);
1797
1798 working_ice->widths_done = 1;
1799 }
1800 }
1801
1802 if(THRD_INDX() && ice->tice)
1803 ice->tice->color_lookup_done = 1;
1804
1805 /*
1806 * Look for a color for this line (and other lines in the current
1807 * view). This does a SEARCH for each role which has a color until
1808 * it finds a match. This will be satisfied by the c-client
1809 * cache created by the mail_fetch_overview above if it is a header
1810 * search.
1811 */
1812 if(!THRD_INDX() && !ice->color_lookup_done){
1813 COLOR_PAIR *linecolor;
1814 SEARCHSET *ss, *s;
1815 ICE_S *ic;
1816 PAT_STATE *pstate = NULL;
1817
1818 if(pico_usingcolor()){
1819 if(limit < 0L){
1820 if(THREADING() && sp_viewing_a_thread(stream)){
1821 for(visible = 0L, n = top_msgno;
1822 visible < msgcount && n <= mn_get_total(msgmap);
1823 n++){
1824
1825 if(!get_lflag(stream, msgmap, n, MN_CHID2))
1826 break;
1827
1828 if(!msgline_hidden(stream, msgmap, n, 0))
1829 visible++;
1830 }
1831
1832 }
1833 else
1834 visible = mn_get_total(msgmap)
1835 - any_lflagged(msgmap, MN_HIDE|MN_CHID);
1836
1837 limit = MIN(visible, msgcount);
1838 }
1839 /* clear sequence bits */
1840 for(n = 1L; n <= stream->nmsgs; n++)
1841 if((mc = mail_elt(stream, n)) != NULL)
1842 mc->sequence = 0;
1843
1844 cnt = i = 0;
1845 n = top_msgno;
1846 while(1){
1847 if(n >= msgno
1848 && n <= mn_get_total(msgmap)
1849 && (!(ic=fetch_ice(stream,(rawno = mn_m2raw(msgmap, n)))) || !ic->color_lookup_done)){
1850
1851 if(rawno >= 1L && rawno <= stream->nmsgs
1852 && (mc = mail_elt(stream, rawno))){
1853 mc->sequence = 1;
1854 cnt++;
1855 }
1856 }
1857
1858 if(++i >= limit)
1859 break;
1860
1861 /* find next n which is visible */
1862 while(++n <= mn_get_total(msgmap)
1863 && msgline_hidden(stream, msgmap, n, 0))
1864 ;
1865 }
1866
1867 /*
1868 * Why is there a loop here? The first call to get_index_line_color
1869 * will return a set of messages which match one of the roles.
1870 * Then, we eliminate those messages from the search set and try
1871 * again. This time we'd get past that role and into a different
1872 * role. Because of that, we hang onto the state and don't reset
1873 * to the first_pattern on the second and subsequent times
1874 * through the loop, avoiding fruitless match_pattern calls in
1875 * get_index_line_color.
1876 * Before the first call, pstate should be set to NULL.
1877 */
1878 while(cnt > 0L){
1879 ss = build_searchset(stream);
1880 if(ss){
1881 int colormatch;
1882
1883 linecolor = NULL;
1884 colormatch = get_index_line_color(stream, ss, &pstate,
1885 &linecolor);
1886
1887 /*
1888 * Assign this color to all matched msgno's and
1889 * turn off the sequence bit so we won't check
1890 * for them again.
1891 */
1892 if(colormatch){
1893 for(s = ss; s; s = s->next){
1894 for(n = s->first; n <= s->last; n++){
1895 if(n >= 1L && n <= stream->nmsgs
1896 && (mc = mail_elt(stream, n))
1897 && mc->searched){
1898 cnt--;
1899 mc->sequence = 0;
1900 ic = fetch_ice(stream, n);
1901 if(ic){
1902 ic->color_lookup_done = 1;
1903 if(linecolor)
1904 ic->linecolor = new_color_pair(linecolor->fg,
1905 linecolor->bg);
1906 }
1907 }
1908 }
1909 }
1910
1911 if(linecolor)
1912 free_color_pair(&linecolor);
1913 }
1914 else{
1915 /* have to mark the rest of the lookups done */
1916 for(s = ss; s && cnt > 0; s = s->next){
1917 for(n = s->first; n <= s->last && cnt > 0; n++){
1918 if(n >= 1L && n <= stream->nmsgs
1919 && (mc = mail_elt(stream, n))
1920 && mc->sequence){
1921 cnt--;
1922 ic = fetch_ice(stream, n);
1923 if(ic)
1924 ic->color_lookup_done = 1;
1925 }
1926 }
1927 }
1928
1929 /* just making sure */
1930 cnt = 0L;
1931 }
1932
1933 mail_free_searchset(&ss);
1934 }
1935 else
1936 cnt = 0L;
1937 }
1938
1939 ice = fetch_ice(stream, mn_m2raw(msgmap, msgno));
1940 }
1941 else
1942 ice->color_lookup_done = 1;
1943 }
1944
1945 return(ice); /* Return formatted index data */
1946 }
1947
1948
1949 int
1950 day_of_week(struct date *d)
1951 {
1952 int m, y;
1953
1954 m = d->month;
1955 y = d->year;
1956 if(m <= 2){
1957 m += 9;
1958 y--;
1959 }
1960 else
1961 m -= 3; /* March is month 0 */
1962
1963 return((d->day+2+((7+31*m)/12)+y+(y/4)+(y/400)-(y/100))%7);
1964 }
1965
1966
1967 static int daytab[2][13] = {
1968 {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},
1969 {0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}
1970 };
1971
1972 int
1973 day_of_year(struct date *d)
1974 {
1975 int i, leap, doy;
1976
1977 if(d->year <= 0 || d->month < 1 || d->month > 12)
1978 return(-1);
1979
1980 doy = d->day;
1981 leap = (d->year%4 == 0 && d->year%100 != 0) || d->year%400 == 0;
1982 for(i = 1; i < d->month; i++)
1983 doy += daytab[leap][i];
1984
1985 return(doy);
1986 }
1987
1988
1989
1990 /*----------------------------------------------------------------------
1991 Format a string summarizing the message header for index on screen
1992
1993 Args: buffer -- buffer to place formatted line
1994 idata -- snot it takes to format the line
1995
1996 Result: returns pointer given buffer IF entry formatted
1997 else NULL if there was a problem (but the buffer is
1998 still suitable for display)
1999 ----*/
2000 ICE_S *
2001 format_index_index_line(INDEXDATA_S *idata)
2002 {
2003 char str[BIGWIDTH+1], to_us, status, *field,
2004 *p, *newsgroups;
2005 int i, collapsed = 0, start, fromfield;
2006 long l, score;
2007 BODY *body = NULL;
2008 MESSAGECACHE *mc = NULL;
2009 ADDRESS *addr, *toaddr, *ccaddr, *last_to;
2010 PINETHRD_S *thrd = NULL;
2011 INDEX_COL_S *cdesc = NULL;
2012 ICE_S *ice, **icep;
2013 IFIELD_S *ifield;
2014 IELEM_S *ielem;
2015 COLOR_PAIR *color = NULL;
2016 struct variable *vars = ps_global->vars;
2017
2018 dprint((8, "=== format_index_line(msgno=%ld,rawno=%ld) ===\n",
2019 idata ? idata->msgno : -1, idata ? idata->rawno : -1));
2020
2021
2022 ice = fetch_ice(idata->stream, idata->rawno);
2023 if(!ice)
2024 return(NULL);
2025
2026 free_ifield(&ice->ifield);
2027
2028 /*
2029 * Operate on a temporary copy of ice. The reason for this
2030 * is that we may end up causing a pine_mail_fetchenvelope() call
2031 * (e.g., in to_us_symbol_for_thread()) that causes an mm_flags()
2032 * and mm_flags may do a clear_ice(), freeing the ice we are working
2033 * on out from under us. We try to fetch everything we need in
2034 * build_header_work() but c-client will short-circuit our request
2035 * if we already got the raw header for some reason. One possible
2036 * reason is a categorizer command in a filter. In that case
2037 * we still need a fetch fast to get the rest of the envelope data.
2038 */
2039 ice = copy_ice(ice);
2040
2041 /* is this a collapsed thread index line? */
2042 if(!idata->bogus && THREADING()){
2043 thrd = fetch_thread(idata->stream, idata->rawno);
2044 collapsed = thrd && thrd->next
2045 && get_lflag(idata->stream, NULL,
2046 idata->rawno, MN_COLL);
2047 }
2048
2049 /* calculate contents of the required fields */
2050 for(cdesc = ps_global->index_disp_format; cdesc->ctype != iNothing; cdesc++)
2051 if(cdesc->width){
2052 memset(str, 0, sizeof(str));
2053 ifield = new_ifield(&ice->ifield);
2054 ifield->ctype = cdesc->ctype;
2055 ifield->width = cdesc->width;
2056 fromfield = 0;
2057
2058 if(idata->bogus){
2059 if(cdesc->ctype == iMessNo)
2060 snprintf(str, sizeof(str), "%*.*s", ifield->width, ifield->width, " ");
2061 else if(idata->bogus < 2 && (cdesc->ctype == iSubject
2062 || cdesc->ctype == iShortSubject
2063 || cdesc->ctype == iSubjectText
2064 || cdesc->ctype == iSubjKey
2065 || cdesc->ctype == iShortSubjKey
2066 || cdesc->ctype == iSubjKeyText
2067 || cdesc->ctype == iSubjKeyInit
2068 || cdesc->ctype == iShortSubjKeyInit
2069 || cdesc->ctype == iSubjKeyInitText))
2070 snprintf(str, sizeof(str), "%s", _("[ No Message Text Available ]"));
2071 }
2072 else
2073 switch(cdesc->ctype){
2074 case iStatus:
2075 to_us = status = ' ';
2076 if(collapsed){
2077 thrd = fetch_thread(idata->stream, idata->rawno);
2078 to_us = to_us_symbol_for_thread(idata->stream, thrd, 1);
2079 status = status_symbol_for_thread(idata->stream, thrd,
2080 cdesc->ctype);
2081 }
2082 else{
2083 if(idata->rawno > 0L && idata->rawno <= idata->stream->nmsgs
2084 && (mc=mail_elt(idata->stream,idata->rawno)) && mc->flagged)
2085 to_us = '*'; /* simple */
2086 else if(!IS_NEWS(idata->stream)){
2087 for(addr = fetch_to(idata); addr; addr = addr->next)
2088 if(address_is_us(addr, ps_global)){
2089 ice->to_us = 1;
2090 if(to_us == ' ')
2091 to_us = '+';
2092
2093 break;
2094 }
2095
2096 if(to_us != '+' && resent_to_us(idata)){
2097 ice->to_us = 1;
2098 if(to_us == ' ')
2099 to_us = '+';
2100 }
2101
2102 if(to_us == ' ' && F_ON(F_MARK_FOR_CC,ps_global))
2103 for(addr = fetch_cc(idata); addr; addr = addr->next)
2104 if(address_is_us(addr, ps_global)){
2105 ice->cc_us = 1;
2106 to_us = '-';
2107 break;
2108 }
2109 }
2110
2111 status = (!idata->stream || !IS_NEWS(idata->stream)
2112 || F_ON(F_FAKE_NEW_IN_NEWS, ps_global))
2113 ? 'N' : ' ';
2114
2115 if(mc->seen)
2116 status = ' ';
2117
2118 if(user_flag_is_set(idata->stream, idata->rawno, FORWARDED_FLAG))
2119 status = 'F';
2120
2121 if(mc->answered)
2122 status = 'A';
2123
2124 if(mc->deleted)
2125 status = 'D';
2126 }
2127
2128 snprintf(str, sizeof(str), "%c %c", to_us, status);
2129
2130 ifield->leftadj = 1;
2131 for(i = 0; i < 3; i++){
2132 ielem = new_ielem(&ifield->ielem);
2133 ielem->freedata = 1;
2134 ielem->data = (char *) fs_get(2 * sizeof(char));
2135 ielem->data[0] = str[i];
2136 ielem->data[1] = '\0';
2137 ielem->datalen = 1;
2138 set_print_format(ielem, 1, ifield->leftadj);
2139 }
2140
2141 if(pico_usingcolor()){
2142
2143 if(str[0] == '*'){
2144 if(VAR_IND_IMP_FORE_COLOR && VAR_IND_IMP_BACK_COLOR){
2145 ielem = ifield->ielem;
2146 ielem->freecolor = 1;
2147 ielem->color = new_color_pair(VAR_IND_IMP_FORE_COLOR, VAR_IND_IMP_BACK_COLOR);
2148 }
2149 }
2150 else if(str[0] == '+' || str[0] == '-'){
2151 if(VAR_IND_PLUS_FORE_COLOR && VAR_IND_PLUS_BACK_COLOR){
2152 ielem = ifield->ielem;
2153 ielem->freecolor = 1;
2154 ielem->color = new_color_pair(VAR_IND_PLUS_FORE_COLOR, VAR_IND_PLUS_BACK_COLOR);
2155 }
2156 }
2157
2158 if(str[2] == 'D'){
2159 if(VAR_IND_DEL_FORE_COLOR && VAR_IND_DEL_BACK_COLOR){
2160 ielem = ifield->ielem->next->next;
2161 ielem->freecolor = 1;
2162 ielem->color = new_color_pair(VAR_IND_DEL_FORE_COLOR, VAR_IND_DEL_BACK_COLOR);
2163 }
2164 }
2165 else if(str[2] == 'A'){
2166 if(VAR_IND_ANS_FORE_COLOR && VAR_IND_ANS_BACK_COLOR){
2167 ielem = ifield->ielem->next->next;
2168 ielem->freecolor = 1;
2169 ielem->color = new_color_pair(VAR_IND_ANS_FORE_COLOR, VAR_IND_ANS_BACK_COLOR);
2170 }
2171 }
2172 else if(str[2] == 'F'){
2173 if(VAR_IND_FWD_FORE_COLOR && VAR_IND_FWD_BACK_COLOR){
2174 ielem = ifield->ielem->next->next;
2175 ielem->freecolor = 1;
2176 ielem->color = new_color_pair(VAR_IND_FWD_FORE_COLOR, VAR_IND_FWD_BACK_COLOR);
2177 }
2178 }
2179 else if(str[2] == 'N'){
2180 if(VAR_IND_NEW_FORE_COLOR && VAR_IND_NEW_BACK_COLOR){
2181 ielem = ifield->ielem->next->next;
2182 ielem->freecolor = 1;
2183 ielem->color = new_color_pair(VAR_IND_NEW_FORE_COLOR, VAR_IND_NEW_BACK_COLOR);
2184 }
2185 }
2186 }
2187
2188 break;
2189
2190 case iFStatus:
2191 case iIStatus:
2192 case iSIStatus:
2193 {
2194 char new, answered, deleted, flagged;
2195
2196 if(collapsed){
2197 thrd = fetch_thread(idata->stream, idata->rawno);
2198 to_us = to_us_symbol_for_thread(idata->stream, thrd, 0);
2199 }
2200 else{
2201 to_us = ' ';
2202 if(!IS_NEWS(idata->stream)){
2203 for(addr = fetch_to(idata); addr; addr = addr->next)
2204 if(address_is_us(addr, ps_global)){
2205 to_us = '+';
2206 break;
2207 }
2208
2209 if(to_us == ' ' && resent_to_us(idata))
2210 to_us = '+';
2211
2212 if(to_us == ' ' && F_ON(F_MARK_FOR_CC,ps_global))
2213 for(addr = fetch_cc(idata); addr; addr = addr->next)
2214 if(address_is_us(addr, ps_global)){
2215 to_us = '-';
2216 break;
2217 }
2218 }
2219 }
2220
2221 new = answered = deleted = flagged = ' ';
2222
2223 if(collapsed){
2224 unsigned long save_branch, cnt, tot_in_thrd;
2225
2226 /*
2227 * Branch is a sibling, not part of the thread, so
2228 * don't consider it when displaying this line.
2229 */
2230 save_branch = thrd->branch;
2231 thrd->branch = 0L;
2232
2233 tot_in_thrd = count_flags_in_thread(idata->stream, thrd,
2234 F_NONE);
2235
2236 cnt = count_flags_in_thread(idata->stream, thrd, F_DEL);
2237 if(cnt)
2238 deleted = (cnt == tot_in_thrd) ? 'D' : 'd';
2239
2240 cnt = count_flags_in_thread(idata->stream, thrd, F_ANS);
2241 if(cnt)
2242 answered = (cnt == tot_in_thrd) ? 'A' : 'a';
2243
2244 /* no lower case *, same thing for some or all */
2245 if(count_flags_in_thread(idata->stream, thrd, F_FLAG))
2246 flagged = '*';
2247
2248 new = status_symbol_for_thread(idata->stream, thrd,
2249 cdesc->ctype);
2250
2251 thrd->branch = save_branch;
2252 }
2253 else{
2254 mc = (idata->rawno > 0L && idata->stream
2255 && idata->rawno <= idata->stream->nmsgs)
2256 ? mail_elt(idata->stream, idata->rawno) : NULL;
2257 if(mc && mc->valid){
2258 if(cdesc->ctype == iIStatus || cdesc->ctype == iSIStatus){
2259 if(mc->recent)
2260 new = mc->seen ? 'R' : 'N';
2261 else if (!mc->seen)
2262 new = 'U';
2263 }
2264 else if(!mc->seen
2265 && (!IS_NEWS(idata->stream)
2266 || F_ON(F_FAKE_NEW_IN_NEWS, ps_global)))
2267 new = 'N';
2268
2269 if(mc->answered)
2270 answered = 'A';
2271
2272 if(mc->deleted)
2273 deleted = 'D';
2274
2275 if(mc->flagged)
2276 flagged = '*';
2277 }
2278 }
2279
2280 snprintf(str, sizeof(str), "%c %c%c%c%c", to_us, flagged, new,
2281 answered, deleted);
2282
2283 if(cdesc->ctype == iSIStatus)
2284 start = 2;
2285 else
2286 start = 0;
2287
2288 ifield->leftadj = 1;
2289 for(i = start; i < 6; i++){
2290 ielem = new_ielem(&ifield->ielem);
2291 ielem->freedata = 1;
2292 ielem->data = (char *) fs_get(2 * sizeof(char));
2293 ielem->data[0] = str[i];
2294 ielem->data[1] = '\0';
2295 ielem->datalen = 1;
2296 set_print_format(ielem, 1, ifield->leftadj);
2297 }
2298
2299 if(pico_usingcolor()){
2300
2301 if(str[0] == '+' || str[0] == '-'){
2302 if(start == 0
2303 && VAR_IND_PLUS_FORE_COLOR
2304 && VAR_IND_PLUS_BACK_COLOR){
2305 ielem = ifield->ielem;
2306 ielem->freecolor = 1;
2307 ielem->color = new_color_pair(VAR_IND_PLUS_FORE_COLOR, VAR_IND_PLUS_BACK_COLOR);
2308 }
2309 }
2310
2311 if(str[2] == '*'){
2312 if(VAR_IND_IMP_FORE_COLOR && VAR_IND_IMP_BACK_COLOR){
2313 if(start == 2)
2314 ielem = ifield->ielem;
2315 else
2316 ielem = ifield->ielem->next->next;
2317
2318 ielem->freecolor = 1;
2319 ielem->color = new_color_pair(VAR_IND_IMP_FORE_COLOR, VAR_IND_IMP_BACK_COLOR);
2320 }
2321 }
2322
2323 if(str[3] == 'N' || str[3] == 'n'){
2324 if(VAR_IND_NEW_FORE_COLOR && VAR_IND_NEW_BACK_COLOR){
2325 if(start == 2)
2326 ielem = ifield->ielem->next;
2327 else
2328 ielem = ifield->ielem->next->next->next;
2329
2330 ielem->freecolor = 1;
2331 ielem->color = new_color_pair(VAR_IND_NEW_FORE_COLOR, VAR_IND_NEW_BACK_COLOR);
2332 }
2333 }
2334 else if(str[3] == 'R' || str[3] == 'r'){
2335 if(VAR_IND_REC_FORE_COLOR && VAR_IND_REC_BACK_COLOR){
2336 if(start == 2)
2337 ielem = ifield->ielem->next;
2338 else
2339 ielem = ifield->ielem->next->next->next;
2340
2341 ielem->freecolor = 1;
2342 ielem->color = new_color_pair(VAR_IND_REC_FORE_COLOR, VAR_IND_REC_BACK_COLOR);
2343 }
2344 }
2345 else if(str[3] == 'U' || str[3] == 'u'){
2346 if(VAR_IND_UNS_FORE_COLOR && VAR_IND_UNS_BACK_COLOR){
2347 if(start == 2)
2348 ielem = ifield->ielem->next;
2349 else
2350 ielem = ifield->ielem->next->next->next;
2351
2352 ielem->freecolor = 1;
2353 ielem->color = new_color_pair(VAR_IND_UNS_FORE_COLOR, VAR_IND_UNS_BACK_COLOR);
2354 }
2355 }
2356
2357 if(str[4] == 'A' || str[4] == 'a'){
2358 if(VAR_IND_ANS_FORE_COLOR && VAR_IND_ANS_BACK_COLOR){
2359 if(start == 2)
2360 ielem = ifield->ielem->next->next;
2361 else
2362 ielem = ifield->ielem->next->next->next->next;
2363
2364 ielem->freecolor = 1;
2365 ielem->color = new_color_pair(VAR_IND_ANS_FORE_COLOR, VAR_IND_ANS_BACK_COLOR);
2366 }
2367 }
2368
2369 if(str[5] == 'D' || str[5] == 'd'){
2370 if(VAR_IND_DEL_FORE_COLOR && VAR_IND_DEL_BACK_COLOR){
2371 if(start == 2)
2372 ielem = ifield->ielem->next->next->next;
2373 else
2374 ielem = ifield->ielem->next->next->next->next->next;
2375
2376 ielem->freecolor = 1;
2377 ielem->color = new_color_pair(VAR_IND_DEL_FORE_COLOR, VAR_IND_DEL_BACK_COLOR);
2378 }
2379 }
2380 }
2381 }
2382
2383 break;
2384
2385 case iMessNo:
2386 /*
2387 * This is a special case. The message number is
2388 * generated on the fly in the painting routine.
2389 * But the data array is allocated here in case it
2390 * is useful for the paint routine.
2391 */
2392 snprintf(str, sizeof(str), "%*.*s", ifield->width, ifield->width, " ");
2393 break;
2394
2395 case iArrow:
2396 snprintf(str, sizeof(str), "%-*.*s", ifield->width, ifield->width, " ");
2397 if(VAR_IND_ARR_FORE_COLOR && VAR_IND_ARR_BACK_COLOR){
2398 ifield->leftadj = 1;
2399 ielem = new_ielem(&ifield->ielem);
2400 ielem->freedata = 1;
2401 ielem->data = cpystr(str);
2402 ielem->datalen = strlen(str);
2403 set_print_format(ielem, ifield->width, ifield->leftadj);
2404 ielem->freecolor = 1;
2405 ielem->color = new_color_pair(VAR_IND_ARR_FORE_COLOR,
2406 VAR_IND_ARR_BACK_COLOR);
2407 }
2408
2409 break;
2410
2411 case iScore:
2412 score = get_msg_score(idata->stream, idata->rawno);
2413 if(score == SCORE_UNDEF){
2414 SEARCHSET *ss = NULL;
2415
2416 ss = mail_newsearchset();
2417 ss->first = ss->last = (unsigned long) idata->rawno;
2418 if(ss){
2419 /*
2420 * This looks like it might be expensive to get the
2421 * score for each message when needed but it shouldn't
2422 * be too bad because we know we have the envelope
2423 * data cached. We can't calculate all of the scores
2424 * we need for the visible messages right here in
2425 * one fell swoop because we don't have the other
2426 * envelopes yet. And we can't get the other
2427 * envelopes at this point because we may be in
2428 * the middle of a c-client callback (pine_imap_env).
2429 * (Actually we could, because we know whether or
2430 * not we're in the callback because of the no_fetch
2431 * parameter.)
2432 * We have another problem if the score rules depend
2433 * on something other than envelope data. I guess they
2434 * only do that if they have an alltext (search the
2435 * text of the message) definition. So, we're going
2436 * to pass no_fetch to calculate_scores so that it
2437 * can return an error if we need the text data but
2438 * can't get it because of no_fetch. Setting bogus
2439 * will cause us to do the scores calculation later
2440 * when we are no longer in the callback.
2441 */
2442 idata->bogus =
2443 (calculate_some_scores(idata->stream,
2444 ss, idata->no_fetch) == 0)
2445 ? 1 : 0;
2446 score = get_msg_score(idata->stream, idata->rawno);
2447 mail_free_searchset(&ss);
2448 }
2449 }
2450
2451 snprintf(str, sizeof(str), "%ld", score != SCORE_UNDEF ? score : 0L);
2452 break;
2453
2454 case iDate: case iMonAbb: case iLDate:
2455 case iSDate: case iSTime: case iSTime24:
2456 case iS1Date: case iS2Date: case iS3Date: case iS4Date:
2457 case iDateIso: case iDateIsoS: case iTime24: case iTime12:
2458 case iSDateIsoS: case iSDateIso:
2459 case iSDateS1: case iSDateS2: case iSDateS3: case iSDateS4:
2460 case iSDateTime:
2461 case iSDateTimeIsoS: case iSDateTimeIso:
2462 case iSDateTimeS1: case iSDateTimeS2: case iSDateTimeS3: case iSDateTimeS4:
2463 case iSDateTime24:
2464 case iSDateTimeIsoS24: case iSDateTimeIso24:
2465 case iSDateTimeS124: case iSDateTimeS224: case iSDateTimeS324: case iSDateTimeS424:
2466 case iTimezone: case iYear: case iYear2Digit:
2467 case iRDate: case iDay: case iDay2Digit: case iMon2Digit:
2468 case iDayOrdinal: case iMon: case iMonLong:
2469 case iDayOfWeekAbb: case iDayOfWeek:
2470 case iPrefDate: case iPrefTime: case iPrefDateTime:
2471 date_str(fetch_date(idata), cdesc->ctype, 0, str, sizeof(str), cdesc->monabb_width);
2472 break;
2473
2474 case iFromTo:
2475 case iFromToNotNews:
2476 case iFrom:
2477 case iAddress:
2478 case iMailbox:
2479 fromfield++;
2480 from_str(cdesc->ctype, idata, str, sizeof(str), ice);
2481 break;
2482
2483 case iTo:
2484 if(((field = ((addr = fetch_to(idata))
2485 ? "To"
2486 : (addr = fetch_cc(idata))
2487 ? "Cc"
2488 : NULL))
2489 && !set_index_addr(idata, field, addr, NULL, BIGWIDTH, str))
2490 || !field)
2491 if((newsgroups = fetch_newsgroups(idata)) != NULL)
2492 snprintf(str, sizeof(str), "%-.*s", BIGWIDTH, newsgroups);
2493
2494 break;
2495
2496 case iCc:
2497 set_index_addr(idata, "Cc", fetch_cc(idata), NULL, BIGWIDTH, str);
2498 break;
2499
2500 case iRecips:
2501 toaddr = fetch_to(idata);
2502 ccaddr = fetch_cc(idata);
2503 for(last_to = toaddr;
2504 last_to && last_to->next;
2505 last_to = last_to->next)
2506 ;
2507
2508 /* point end of to list temporarily at cc list */
2509 if(last_to)
2510 last_to->next = ccaddr;
2511
2512 set_index_addr(idata, "To", toaddr, NULL, BIGWIDTH, str);
2513
2514 if(last_to)
2515 last_to->next = NULL;
2516
2517 break;
2518
2519 case iSender:
2520 fromfield++;
2521 if((addr = fetch_sender(idata)) != NULL)
2522 set_index_addr(idata, "Sender", addr, NULL, BIGWIDTH, str);
2523
2524 break;
2525
2526 case iInit:
2527 {ADDRESS *addr;
2528
2529 if((addr = fetch_from(idata)) && addr->personal){
2530 char *name, *initials = NULL;
2531
2532 name = (char *) rfc1522_decode_to_utf8((unsigned char *)tmp_20k_buf,
2533 SIZEOF_20KBUF, addr->personal);
2534 if(name == addr->personal){
2535 strncpy(tmp_20k_buf, name, SIZEOF_20KBUF-1);
2536 tmp_20k_buf[SIZEOF_20KBUF - 1] = '\0';
2537 name = (char *) tmp_20k_buf;
2538 }
2539
2540 if(name && *name){
2541 initials = reply_quote_initials(name);
2542 snprintf(str, sizeof(str), "%-.*s", BIGWIDTH, initials);
2543 }
2544 }
2545 }
2546
2547 break;
2548
2549 case iSize:
2550 /* 0 ... 9999 */
2551 if((l = fetch_size(idata)) < 10*1000L)
2552 snprintf(str, sizeof(str), "(%lu)", l);
2553 /* 10K ... 999K */
2554 else if(l < 1000L*1000L - 1000L/2){
2555 l = l/1000L + (l%1000L >= 1000L/2 ? 1L : 0L);
2556 snprintf(str, sizeof(str), "(%luK)", l);
2557 }
2558 /* 1.0M ... 99.9M */
2559 else if(l < 1000L*100L*1000L - 100L*1000L/2){
2560 l = l/(100L*1000L) + (l%(100L*1000L) >= (100*1000L/2)
2561 ? 1L : 0L);
2562 snprintf(str, sizeof(str), "(%lu.%luM)", l/10L, l % 10L);
2563 }
2564 /* 100M ... 2000M */
2565 else if(l <= 2*1000L*1000L*1000L){
2566 l = l/(1000L*1000L) + (l%(1000L*1000L) >= (1000L*1000L/2)
2567 ? 1L : 0L);
2568 snprintf(str, sizeof(str), "(%luM)", l);
2569 }
2570 else
2571 snprintf(str, sizeof(str), "(HUGE!)");
2572
2573 break;
2574
2575 case iSizeComma:
2576 /* 0 ... 99,999 */
2577 if((l = fetch_size(idata)) < 100*1000L)
2578 snprintf(str, sizeof(str), "(%s)", comatose(l));
2579 /* 100K ... 9,999K */
2580 else if(l < 10L*1000L*1000L - 1000L/2){
2581 l = l/1000L + (l%1000L >= 1000L/2 ? 1L : 0L);
2582 snprintf(str, sizeof(str), "(%sK)", comatose(l));
2583 }
2584 /* 10.0M ... 999.9M */
2585 else if(l < 1000L*1000L*1000L - 100L*1000L/2){
2586 l = l/(100L*1000L) + (l%(100L*1000L) >= (100*1000L/2)
2587 ? 1L : 0L);
2588 snprintf(str, sizeof(str), "(%lu.%luM)", l/10L, l % 10L);
2589 }
2590 /* 1,000M ... 2,000M */
2591 else if(l <= 2*1000L*1000L*1000L){
2592 l = l/(1000L*1000L) + (l%(1000L*1000L) >= (1000L*1000L/2)
2593 ? 1L : 0L);
2594 snprintf(str, sizeof(str), "(%sM)", comatose(l));
2595 }
2596 else
2597 snprintf(str, sizeof(str), "(HUGE!)");
2598
2599 break;
2600
2601 case iSizeNarrow:
2602 /* 0 ... 999 */
2603 if((l = fetch_size(idata)) < 1000L)
2604 snprintf(str, sizeof(str), "(%lu)", l);
2605 /* 1K ... 99K */
2606 else if(l < 100L*1000L - 1000L/2){
2607 l = l/1000L + (l%1000L >= 1000L/2 ? 1L : 0L);
2608 snprintf(str, sizeof(str), "(%luK)", l);
2609 }
2610 /* .1M ... .9M */
2611 else if(l < 1000L*1000L - 100L*1000L/2){
2612 l = l/(100L*1000L) + (l%(100L*1000L) >= 100L*1000L/2
2613 ? 1L : 0L);
2614 snprintf(str, sizeof(str), "(.%luM)", l);
2615 }
2616 /* 1M ... 99M */
2617 else if(l < 1000L*100L*1000L - 1000L*1000L/2){
2618 l = l/(1000L*1000L) + (l%(1000L*1000L) >= (1000L*1000L/2)
2619 ? 1L : 0L);
2620 snprintf(str, sizeof(str), "(%luM)", l);
2621 }
2622 /* .1G ... .9G */
2623 else if(l < 1000L*1000L*1000L - 100L*1000L*1000L/2){
2624 l = l/(100L*1000L*1000L) + (l%(100L*1000L*1000L) >=
2625 (100L*1000L*1000L/2) ? 1L : 0L);
2626 snprintf(str, sizeof(str), "(.%luG)", l);
2627 }
2628 /* 1G ... 2G */
2629 else if(l <= 2*1000L*1000L*1000L){
2630 l = l/(1000L*1000L*1000L) + (l%(1000L*1000L*1000L) >=
2631 (1000L*1000L*1000L/2) ? 1L : 0L);
2632 snprintf(str, sizeof(str), "(%luG)", l);
2633 }
2634 else
2635 snprintf(str, sizeof(str), "(HUGE!)");
2636
2637 break;
2638
2639 /* From Carl Jacobsen <carl@ucsd.edu> */
2640 case iKSize:
2641 l = fetch_size(idata);
2642 l = (l / 1024L) + (l % 1024L != 0 ? 1 : 0);
2643
2644 if(l < 1024L) { /* 0k .. 1023k */
2645 snprintf(str, sizeof(str), "(%luk)", l);
2646
2647 } else if (l < 100L * 1024L){ /* 1.0M .. 99.9M */
2648 snprintf(str, sizeof(str), "(%lu.M)", (l * 10L) / 1024L);
2649 if ((p = strchr(str, '.')) != NULL) {
2650 p--; p[1] = p[0]; p[0] = '.'; /* swap last digit & . */
2651 }
2652 } else if (l <= 2L * 1024L * 1024L) { /* 100M .. 2048 */
2653 snprintf(str, sizeof(str), "(%luM)", l / 1024L);
2654 } else {
2655 snprintf(str, sizeof(str), "(HUGE!)");
2656 }
2657
2658 break;
2659
2660 case iDescripSize:
2661 if((body = fetch_body(idata)) != NULL)
2662 switch(body->type){
2663 case TYPETEXT:
2664 {
2665 mc = (idata->rawno > 0L && idata->stream
2666 && idata->rawno <= idata->stream->nmsgs)
2667 ? mail_elt(idata->stream, idata->rawno) : NULL;
2668 if(mc && mc->rfc822_size < 6000)
2669 snprintf(str, sizeof(str), "(short )");
2670 else if(mc && mc->rfc822_size < 25000)
2671 snprintf(str, sizeof(str), "(medium )");
2672 else if(mc && mc->rfc822_size < 100000)
2673 snprintf(str, sizeof(str), "(long )");
2674 else
2675 snprintf(str, sizeof(str), "(huge )");
2676 }
2677
2678 break;
2679
2680 case TYPEMULTIPART:
2681 if(strucmp(body->subtype, "MIXED") == 0){
2682 int x;
2683
2684 x = body->nested.part
2685 ? body->nested.part->body.type
2686 : TYPETEXT + 1000;
2687 switch(x){
2688 case TYPETEXT:
2689 if(body->nested.part->body.size.bytes < 6000)
2690 snprintf(str, sizeof(str), "(short+ )");
2691 else if(body->nested.part->body.size.bytes
2692 < 25000)
2693 snprintf(str, sizeof(str), "(medium+)");
2694 else if(body->nested.part->body.size.bytes
2695 < 100000)
2696 snprintf(str, sizeof(str), "(long+ )");
2697 else
2698 snprintf(str, sizeof(str), "(huge+ )");
2699 break;
2700
2701 default:
2702 snprintf(str, sizeof(str), "(multi )");
2703 break;
2704 }
2705 }
2706 else if(strucmp(body->subtype, "DIGEST") == 0)
2707 snprintf(str, sizeof(str), "(digest )");
2708 else if(strucmp(body->subtype, "ALTERNATIVE") == 0)
2709 snprintf(str, sizeof(str), "(mul/alt)");
2710 else if(strucmp(body->subtype, "PARALLEL") == 0)
2711 snprintf(str, sizeof(str), "(mul/par)");
2712 else
2713 snprintf(str, sizeof(str), "(multi )");
2714
2715 break;
2716
2717 case TYPEMESSAGE:
2718 snprintf(str, sizeof(str), "(message)");
2719 break;
2720
2721 case TYPEAPPLICATION:
2722 snprintf(str, sizeof(str), "(applica)");
2723 break;
2724
2725 case TYPEAUDIO:
2726 snprintf(str, sizeof(str), "(audio )");
2727 break;
2728
2729 case TYPEIMAGE:
2730 snprintf(str, sizeof(str), "(image )");
2731 break;
2732
2733 case TYPEVIDEO:
2734 snprintf(str, sizeof(str), "(video )");
2735 break;
2736
2737 default:
2738 snprintf(str, sizeof(str), "(other )");
2739 break;
2740 }
2741
2742 break;
2743
2744 case iAtt:
2745 str[0] = SPACE;
2746 str[1] = '\0';
2747 if((body = fetch_body(idata)) &&
2748 body->type == TYPEMULTIPART &&
2749 strucmp(body->subtype, "ALTERNATIVE") != 0){
2750 PART *part;
2751 int atts = 0;
2752
2753 part = body->nested.part; /* 1st part, don't count */
2754 while(part && part->next && atts < 10){
2755 atts++;
2756 part = part->next;
2757 }
2758
2759 if(atts > 9)
2760 str[0] = '*';
2761 else if(atts > 0)
2762 str[0] = '0' + atts;
2763 }
2764
2765 break;
2766
2767 case iSubject:
2768 subj_str(idata, str, sizeof(str), NoKW, 0, 0, ice);
2769 break;
2770
2771 case iShortSubject:
2772 subj_str(idata, str, sizeof(str), NoKW, 0, 1, ice);
2773 break;
2774
2775 case iSubjectText:
2776 subj_str(idata, str, sizeof(str), NoKW, 1, 0, ice);
2777 break;
2778
2779 case iSubjKey:
2780 subj_str(idata, str, sizeof(str), KW, 0, 0, ice);
2781 break;
2782
2783 case iShortSubjKey:
2784 subj_str(idata, str, sizeof(str), KW, 0, 1, ice);
2785 break;
2786
2787 case iSubjKeyText:
2788 subj_str(idata, str, sizeof(str), KW, 1, 0, ice);
2789 break;
2790
2791 case iSubjKeyInit:
2792 subj_str(idata, str, sizeof(str), KWInit, 0, 0, ice);
2793 break;
2794
2795 case iShortSubjKeyInit:
2796 subj_str(idata, str, sizeof(str), KWInit, 0, 1, ice);
2797 break;
2798
2799 case iSubjKeyInitText:
2800 subj_str(idata, str, sizeof(str), KWInit, 1, 0, ice);
2801 break;
2802
2803 case iOpeningText:
2804 case iOpeningTextNQ:
2805 if(idata->no_fetch)
2806 idata->bogus = 1;
2807 else{
2808 char *first_text;
2809
2810 first_text = fetch_firsttext(idata, cdesc->ctype == iOpeningTextNQ);
2811
2812 if(first_text){
2813 strncpy(str, first_text, BIGWIDTH);
2814 str[BIGWIDTH] = '\0';
2815 }
2816 }
2817
2818 break;
2819
2820 case iKey:
2821 key_str(idata, KW, ice);
2822 break;
2823
2824 case iKeyInit:
2825 key_str(idata, KWInit, ice);
2826 break;
2827
2828 case iNews:
2829 if((newsgroups = fetch_newsgroups(idata)) != NULL){
2830 strncpy(str, newsgroups, BIGWIDTH);
2831 str[BIGWIDTH] = '\0';
2832 }
2833
2834 break;
2835
2836 case iNewsAndTo:
2837 if((newsgroups = fetch_newsgroups(idata)) != NULL)
2838 strncpy(str, newsgroups, sizeof(str));
2839
2840 if((l = strlen(str)) < sizeof(str)){
2841 if(sizeof(str) - l < 6)
2842 strncpy(str+l, "...", sizeof(str)-l);
2843 else{
2844 if(l > 0){
2845 strncpy(str+l, " and ", sizeof(str)-l);
2846 set_index_addr(idata, "To", fetch_to(idata),
2847 NULL, BIGWIDTH-l-5, str+l+5);
2848 if(!str[l+5])
2849 str[l] = '\0';
2850 }
2851 else
2852 set_index_addr(idata, "To", fetch_to(idata),
2853 NULL, BIGWIDTH, str);
2854 }
2855 }
2856
2857 break;
2858
2859 case iToAndNews:
2860 set_index_addr(idata, "To", fetch_to(idata),
2861 NULL, BIGWIDTH, str);
2862 if((l = strlen(str)) < sizeof(str) &&
2863 (newsgroups = fetch_newsgroups(idata))){
2864 if(sizeof(str) - l < 6)
2865 strncpy(str+l, "...", sizeof(str)-l);
2866 else{
2867 if(l > 0)
2868 strncpy(str+l, " and ", sizeof(str)-l);
2869
2870 if(l > 0)
2871 strncpy(str+l+5, newsgroups, BIGWIDTH-l-5);
2872 else
2873 strncpy(str, newsgroups, BIGWIDTH);
2874 }
2875 }
2876
2877 break;
2878
2879 case iNewsAndRecips:
2880 if((newsgroups = fetch_newsgroups(idata)) != NULL)
2881 strncpy(str, newsgroups, BIGWIDTH);
2882
2883 if((l = strlen(str)) < BIGWIDTH){
2884 if(BIGWIDTH - l < 6)
2885 strncpy(str+l, "...", BIGWIDTH-l);
2886 else{
2887 toaddr = fetch_to(idata);
2888 ccaddr = fetch_cc(idata);
2889 for(last_to = toaddr;
2890 last_to && last_to->next;
2891 last_to = last_to->next)
2892 ;
2893
2894 /* point end of to list temporarily at cc list */
2895 if(last_to)
2896 last_to->next = ccaddr;
2897
2898 if(l > 0){
2899 strncpy(str+l, " and ", sizeof(str)-l);
2900 set_index_addr(idata, "To", toaddr,
2901 NULL, BIGWIDTH-l-5, str+l+5);
2902 if(!str[l+5])
2903 str[l] = '\0';
2904 }
2905 else
2906 set_index_addr(idata, "To", toaddr, NULL, BIGWIDTH, str);
2907
2908 if(last_to)
2909 last_to->next = NULL;
2910 }
2911 }
2912
2913 break;
2914
2915 case iRecipsAndNews:
2916 toaddr = fetch_to(idata);
2917 ccaddr = fetch_cc(idata);
2918 for(last_to = toaddr;
2919 last_to && last_to->next;
2920 last_to = last_to->next)
2921 ;
2922
2923 /* point end of to list temporarily at cc list */
2924 if(last_to)
2925 last_to->next = ccaddr;
2926
2927 set_index_addr(idata, "To", toaddr, NULL, BIGWIDTH, str);
2928
2929 if(last_to)
2930 last_to->next = NULL;
2931
2932 if((l = strlen(str)) < BIGWIDTH &&
2933 (newsgroups = fetch_newsgroups(idata))){
2934 if(BIGWIDTH - l < 6)
2935 strncpy(str+l, "...", BIGWIDTH-l);
2936 else{
2937 if(l > 0)
2938 strncpy(str+l, " and ", sizeof(str)-l);
2939
2940 if(l > 0)
2941 strncpy(str+l+5, newsgroups, BIGWIDTH-l-5);
2942 else
2943 strncpy(str, newsgroups, BIGWIDTH);
2944 }
2945 }
2946
2947 break;
2948
2949 case iPrio:
2950 case iPrioAlpha:
2951 case iPrioBang:
2952 prio_str(idata, cdesc->ctype, ice);
2953 break;
2954
2955 case iHeader:
2956 header_str(idata, cdesc->hdrtok, ice);
2957 break;
2958
2959 case iText:
2960 strncpy(str, (cdesc->hdrtok && cdesc->hdrtok->hdrname) ? cdesc->hdrtok->hdrname : "", sizeof(str));
2961 str[sizeof(str)-1] = '\0';
2962 break;
2963
2964 default:
2965 break;
2966 }
2967
2968 /*
2969 * If the element wasn't already filled in above, do it here.
2970 */
2971 if(!ifield->ielem){
2972 ielem = new_ielem(&ifield->ielem);
2973
2974 if((color = hdr_color(itokens[itokensinv[cdesc->ctype].ctype].name, NULL, ps_global->index_token_colors)) != NULL){
2975 if(pico_usingcolor()){
2976 ielem->color = new_color_pair(color->fg, color->bg);
2977 ielem->type = eTypeCol;
2978 }
2979 free_color_pair(&color);
2980 }
2981
2982 ielem->freedata = 1;
2983 ielem->data = cpystr(str);
2984 ielem->datalen = strlen(str);
2985
2986 if(fromfield && pico_usingcolor()
2987 && ps_global->VAR_IND_FROM_FORE_COLOR
2988 && ps_global->VAR_IND_FROM_BACK_COLOR){
2989 ielem->type = eTypeCol;
2990 ielem->freecolor = 1;
2991 ielem->color = new_color_pair(ps_global->VAR_IND_FROM_FORE_COLOR,
2992 ps_global->VAR_IND_FROM_BACK_COLOR);
2993 /*
2994 * This space is here so that if the text does
2995 * not extend all the way to the end of the field then
2996 * we'll switch the color back and paint the rest of the
2997 * field in the Normal color or the index line color.
2998 */
2999 ielem = new_ielem(&ielem);
3000 ielem->freedata = 1;
3001 ielem->data = cpystr(" ");
3002 ielem->datalen = 1;
3003 }
3004 else if((cdesc->ctype == iOpeningText || cdesc->ctype == iOpeningTextNQ)
3005 && pico_usingcolor()
3006 && ps_global->VAR_IND_OP_FORE_COLOR
3007 && ps_global->VAR_IND_OP_BACK_COLOR){
3008 ielem->type = eTypeCol;
3009 ielem->freecolor = 1;
3010 ielem->color = new_color_pair(ps_global->VAR_IND_OP_FORE_COLOR,
3011 ps_global->VAR_IND_OP_BACK_COLOR);
3012 /*
3013 * This space is here so that if the text does
3014 * not extend all the way to the end of the field then
3015 * we'll switch the color back and paint the rest of the
3016 * field in the Normal color or the index line color.
3017 */
3018 ielem = new_ielem(&ielem);
3019 ielem->freedata = 1;
3020 ielem->data = cpystr(" ");
3021 ielem->datalen = 1;
3022 }
3023
3024 ifield->leftadj = (cdesc->adjustment == Left) ? 1 : 0;
3025 set_ielem_widths_in_field(ifield);
3026 }
3027 }
3028
3029 ice->widths_done = 1;
3030 ice->id = ice_hash(ice);
3031
3032 /*
3033 * Now we have to put the temporary copy of ice back as the
3034 * real thing.
3035 */
3036 icep = fetch_ice_ptr(idata->stream, idata->rawno);
3037 if(icep){
3038 free_ice(icep); /* free what is already there */
3039 *icep = ice;
3040 }
3041
3042 return(ice);
3043 }
3044
3045
3046 ICE_S *
3047 format_thread_index_line(INDEXDATA_S *idata)
3048 {
3049 char *p, buffer[BIGWIDTH+1];
3050 int thdlen, space_left, i;
3051 PINETHRD_S *thrd = NULL;
3052 ICE_S *ice, *tice = NULL, **ticep = NULL;
3053 IFIELD_S *ifield;
3054 IELEM_S *ielem;
3055 int (*save_sfstr_func)(void);
3056 struct variable *vars = ps_global->vars;
3057
3058 dprint((8, "=== format_thread_index_line(%ld,%ld) ===\n",
3059 idata ? idata->msgno : -1, idata ? idata->rawno : -1));
3060
3061 space_left = ps_global->ttyo->screen_cols;
3062
3063 if(ps_global->msgmap->max_thrdno < 1000)
3064 thdlen = 3;
3065 else if(ps_global->msgmap->max_thrdno < 10000)
3066 thdlen = 4;
3067 else if(ps_global->msgmap->max_thrdno < 100000)
3068 thdlen = 5;
3069 else
3070 thdlen = 6;
3071
3072 ice = fetch_ice(idata->stream, idata->rawno);
3073
3074 thrd = fetch_thread(idata->stream, idata->rawno);
3075
3076 if(!thrd || !ice) /* can't happen? */
3077 return(ice);
3078
3079 if(!ice->tice){
3080 tice = (ICE_S *) fs_get(sizeof(*tice));
3081 memset(tice, 0, sizeof(*tice));
3082 ice->tice = tice;
3083 }
3084
3085 tice = ice->tice;
3086
3087 if(!tice)
3088 return(ice);
3089
3090 free_ifield(&tice->ifield);
3091
3092 ticep = &ice->tice;
3093 tice = copy_ice(tice);
3094
3095 if(space_left >= 3){
3096 char to_us, status;
3097
3098 p = buffer;
3099 to_us = to_us_symbol_for_thread(idata->stream, thrd, 1);
3100 status = status_symbol_for_thread(idata->stream, thrd, iStatus);
3101
3102 if((p-buffer)+3 < sizeof(buffer)){
3103 p[0] = to_us;
3104 p[1] = ' ';
3105 p[2] = status;
3106 p[3] = '\0';;
3107 }
3108
3109 space_left -= 3;
3110
3111 ifield = new_ifield(&tice->ifield);
3112 ifield->ctype = iStatus;
3113 ifield->width = 3;
3114 ifield->leftadj = 1;
3115 for(i = 0; i < 3; i++){
3116 ielem = new_ielem(&ifield->ielem);
3117 ielem->freedata = 1;
3118 ielem->data = (char *) fs_get(2 * sizeof(char));
3119 ielem->data[0] = p[i];
3120 ielem->data[1] = '\0';
3121 ielem->datalen = 1;
3122 set_print_format(ielem, 1, ifield->leftadj);
3123 }
3124
3125 if(pico_usingcolor()){
3126 if(to_us == '*'
3127 && VAR_IND_IMP_FORE_COLOR && VAR_IND_IMP_BACK_COLOR){
3128 ielem = ifield->ielem;
3129 ielem->freecolor = 1;
3130 ielem->color = new_color_pair(VAR_IND_IMP_FORE_COLOR,
3131 VAR_IND_IMP_BACK_COLOR);
3132 if(F_ON(F_COLOR_LINE_IMPORTANT, ps_global))
3133 tice->linecolor = new_color_pair(VAR_IND_IMP_FORE_COLOR,
3134 VAR_IND_IMP_BACK_COLOR);
3135 }
3136 else if((to_us == '+' || to_us == '-')
3137 && VAR_IND_PLUS_FORE_COLOR && VAR_IND_PLUS_BACK_COLOR){
3138 ielem = ifield->ielem;
3139 ielem->freecolor = 1;
3140 ielem->color = new_color_pair(VAR_IND_PLUS_FORE_COLOR,
3141 VAR_IND_PLUS_BACK_COLOR);
3142 }
3143
3144 if(status == 'D'
3145 && VAR_IND_DEL_FORE_COLOR && VAR_IND_DEL_BACK_COLOR){
3146 ielem = ifield->ielem->next->next;
3147 ielem->freecolor = 1;
3148 ielem->color = new_color_pair(VAR_IND_DEL_FORE_COLOR,
3149 VAR_IND_DEL_BACK_COLOR);
3150 }
3151 else if(status == 'N'
3152 && VAR_IND_NEW_FORE_COLOR && VAR_IND_NEW_BACK_COLOR){
3153 ielem = ifield->ielem->next->next;
3154 ielem->freecolor = 1;
3155 ielem->color = new_color_pair(VAR_IND_NEW_FORE_COLOR,
3156 VAR_IND_NEW_BACK_COLOR);
3157 }
3158 }
3159 }
3160
3161 if(space_left >= thdlen+1){
3162 p = buffer;
3163 space_left--;
3164
3165 snprintf(p, sizeof(buffer), "%*.*s", thdlen, thdlen, "");
3166 space_left -= thdlen;
3167
3168 ifield = new_ifield(&tice->ifield);
3169 ifield->ctype = iMessNo;
3170 ifield->width = thdlen;
3171 ifield->leftadj = 0;
3172 ielem = new_ielem(&ifield->ielem);
3173 ielem->freedata = 1;
3174 ielem->data = cpystr(p);
3175 ielem->datalen = strlen(p);
3176 set_print_format(ielem, ifield->width, ifield->leftadj);
3177 }
3178
3179 if(space_left >= 7){
3180
3181 p = buffer;
3182 space_left--;
3183
3184 date_str(fetch_date(idata), iDate, 0, p, sizeof(buffer), 0);
3185 if(sizeof(buffer) > 6)
3186 p[6] = '\0';
3187
3188 if(strlen(p) < 6 && (sizeof(buffer)) > 6){
3189 char *q;
3190
3191 for(q = p + strlen(p); q < p + 6; q++)
3192 *q = ' ';
3193 }
3194
3195 space_left -= 6;
3196
3197 ifield = new_ifield(&tice->ifield);
3198 ifield->ctype = iDate;
3199 ifield->width = 6;
3200 ifield->leftadj = 1;
3201 ielem = new_ielem(&ifield->ielem);
3202 ielem->freedata = 1;
3203 ielem->data = cpystr(p);
3204 ielem->datalen = ifield->width;
3205 set_print_format(ielem, ifield->width, ifield->leftadj);
3206 }
3207
3208
3209 if(space_left > 3){
3210 int from_width, subj_width, bigthread_adjust;
3211 long in_thread;
3212 char from[BIGWIDTH+1];
3213 char tcnt[50];
3214
3215 space_left--;
3216
3217 in_thread = count_lflags_in_thread(idata->stream, thrd,
3218 ps_global->msgmap, MN_NONE);
3219
3220 p = buffer;
3221 if(in_thread == 1 && THRD_AUTO_VIEW())
3222 snprintf(tcnt, sizeof(tcnt), " ");
3223 else
3224 snprintf(tcnt, sizeof(tcnt), "(%ld)", in_thread);
3225
3226 bigthread_adjust = MAX(0, strlen(tcnt) - 3);
3227
3228 /* third of the rest */
3229 from_width = MAX((space_left-1)/3 - bigthread_adjust, 1);
3230
3231 /* the rest */
3232 subj_width = space_left - from_width - 1;
3233
3234 if(strlen(tcnt) > subj_width)
3235 tcnt[subj_width] = '\0';
3236
3237 from[0] = '\0';
3238 save_sfstr_func = pith_opt_truncate_sfstr;
3239 pith_opt_truncate_sfstr = NULL;
3240 from_str(iFromTo, idata, from, sizeof(from), tice);
3241 pith_opt_truncate_sfstr = save_sfstr_func;
3242
3243 ifield = new_ifield(&tice->ifield);
3244 ifield->leftadj = 1;
3245 ielem = new_ielem(&ifield->ielem);
3246 ielem->freedata = 1;
3247 ielem->type = eTypeCol;
3248 ielem->data = cpystr(from);
3249 ielem->datalen = strlen(from);
3250 ifield->width = from_width;
3251 set_print_format(ielem, ifield->width, ifield->leftadj);
3252 ifield->ctype = iFrom;
3253 if(from_width > 0 && pico_usingcolor()
3254 && VAR_IND_FROM_FORE_COLOR && VAR_IND_FROM_BACK_COLOR){
3255 ielem->freecolor = 1;
3256 ielem->color = new_color_pair(VAR_IND_FROM_FORE_COLOR,
3257 VAR_IND_FROM_BACK_COLOR);
3258 }
3259
3260 ifield = new_ifield(&tice->ifield);
3261 ifield->leftadj = 0;
3262 ielem = new_ielem(&ifield->ielem);
3263 ielem->freedata = 1;
3264 ielem->data = cpystr(tcnt);
3265 ielem->datalen = strlen(tcnt);
3266 ifield->width = ielem->datalen;
3267 set_print_format(ielem, ifield->width, ifield->leftadj);
3268 ifield->ctype = iAtt; /* not used, except that it isn't special */
3269
3270 subj_width -= strlen(tcnt);
3271
3272 if(subj_width > 0)
3273 subj_width--;
3274
3275 if(subj_width > 0){
3276 if(idata->bogus){
3277 if(idata->bogus < 2)
3278 snprintf(buffer, sizeof(buffer), "%-.*s", BIGWIDTH,
3279 _("[ No Message Text Available ]"));
3280 }
3281 else{
3282 buffer[0] = '\0';
3283 save_sfstr_func = pith_opt_truncate_sfstr;
3284 pith_opt_truncate_sfstr = NULL;
3285 subj_str(idata, buffer, sizeof(buffer), NoKW, 0, 0, NULL);
3286 pith_opt_truncate_sfstr = save_sfstr_func;
3287 }
3288
3289 ifield = new_ifield(&tice->ifield);
3290 ifield->leftadj = 1;
3291 ielem = new_ielem(&ifield->ielem);
3292 ielem->freedata = 1;
3293 ielem->type = eTypeCol;
3294 ielem->data = cpystr(buffer);
3295 ielem->datalen = strlen(buffer);
3296 ifield->width = subj_width;
3297 set_print_format(ielem, ifield->width, ifield->leftadj);
3298 ifield->ctype = iSubject;
3299 if(pico_usingcolor() && VAR_IND_SUBJ_FORE_COLOR && VAR_IND_SUBJ_BACK_COLOR){
3300 ielem->freecolor = 1;
3301 ielem->color = new_color_pair(VAR_IND_SUBJ_FORE_COLOR,
3302 VAR_IND_SUBJ_BACK_COLOR);
3303 }
3304 }
3305 }
3306 else if(space_left > 1){
3307 snprintf(p, sizeof(buffer)-(p-buffer), "%-.*s", space_left-1, " ");
3308 ifield = new_ifield(&tice->ifield);
3309 ifield->leftadj = 1;
3310 ielem = new_ielem(&ifield->ielem);
3311 ielem->freedata = 1;
3312 ielem->data = cpystr(p);
3313 ielem->datalen = strlen(p);
3314 ifield->width = space_left-1;
3315 set_print_format(ielem, ifield->width, ifield->leftadj);
3316 ifield->ctype = iSubject;
3317 }
3318
3319 tice->widths_done = 1;
3320 tice->id = ice_hash(tice);
3321
3322 if(ticep){
3323 free_ice(ticep); /* free what is already there */
3324 *ticep = tice;
3325 }
3326
3327 return(ice);
3328 }
3329
3330
3331 /*
3332 * Print the fields of ice in buf with a single space between fields.
3333 *
3334 * Args buf -- place to put the line
3335 * ice -- the data for the line
3336 * msgno -- this is the msgno to be used, blanks if <= 0
3337 *
3338 * Returns a pointer to buf.
3339 */
3340 char *
3341 simple_index_line(char *buf, size_t buflen, ICE_S *ice, long int msgno)
3342 {
3343 char *p;
3344 IFIELD_S *ifield, *previfield = NULL;
3345 IELEM_S *ielem;
3346
3347 if(!buf)
3348 alpine_panic("NULL buf in simple_index_line()");
3349
3350 if(buflen > 0)
3351 buf[0] = '\0';
3352
3353 p = buf;
3354
3355 if(ice){
3356
3357 for(ifield = ice->ifield; ifield && p-buf < buflen; ifield = ifield->next){
3358
3359 /* space between fields */
3360 if(ifield != ice->ifield && !(previfield && previfield->ctype == iText))
3361 *p++ = ' ';
3362
3363 /* message number string is generated on the fly */
3364 if(ifield->ctype == iMessNo){
3365 ielem = ifield->ielem;
3366 if(ielem && ielem->datalen >= ifield->width){
3367 if(msgno > 0L)
3368 snprintf(ielem->data, ielem->datalen+1, "%*.ld", ifield->width, msgno);
3369 else
3370 snprintf(ielem->data, ielem->datalen+1, "%*.*s", ifield->width, ifield->width, "");
3371 }
3372 }
3373
3374 for(ielem = ifield->ielem;
3375 ielem && ielem->print_format && p-buf < buflen;
3376 ielem = ielem->next){
3377 char *src;
3378 size_t bytes_added;
3379
3380 src = ielem->data;
3381 bytes_added = utf8_pad_to_width(p, src,
3382 buflen-(p-buf) * sizeof(char),
3383 ielem->wid, ifield->leftadj);
3384 p += bytes_added;
3385 }
3386
3387 previfield = ifield;
3388 }
3389
3390 if(p-buf < buflen)
3391 *p = '\0';
3392 }
3393
3394 buf[buflen-1] = '\0';
3395
3396 return(buf);
3397 }
3398
3399
3400 /*
3401 * Look in current mail_stream for matches for messages in the searchset
3402 * which match a color rule pattern. Return the color.
3403 * The searched bit will be set for all of the messages which match the
3404 * first pattern which has a match.
3405 *
3406 * Args stream -- the mail stream
3407 * searchset -- restrict attention to this set of messages
3408 * pstate -- The pattern state. On the first call it will be Null.
3409 * Null means start over with a new first_pattern.
3410 * After that it will be pointing to our local PAT_STATE
3411 * so that next_pattern goes to the next one after the
3412 * ones we've already checked.
3413 *
3414 * Returns 0 if no match, 1 if a match.
3415 * The color that goes with the matched rule in returned_color.
3416 * It may be NULL, which indicates default.
3417 */
3418 int
3419 get_index_line_color(MAILSTREAM *stream, SEARCHSET *searchset,
3420 PAT_STATE **pstate, COLOR_PAIR **returned_color)
3421 {
3422 PAT_S *pat = NULL;
3423 long rflags = ROLE_INCOL;
3424 COLOR_PAIR *color = NULL;
3425 int match = 0;
3426 static PAT_STATE localpstate;
3427
3428 dprint((7, "get_index_line_color\n"));
3429
3430 if(returned_color)
3431 *returned_color = NULL;
3432
3433 if(*pstate)
3434 pat = next_pattern(*pstate);
3435 else{
3436 *pstate = &localpstate;
3437 if(!nonempty_patterns(rflags, *pstate))
3438 *pstate = NULL;
3439
3440 if(*pstate)
3441 pat = first_pattern(*pstate);
3442 }
3443
3444 if(*pstate){
3445
3446 /* Go through the possible roles one at a time until we get a match. */
3447 while(!match && pat){
3448 if(match_pattern(pat->patgrp, stream, searchset, NULL,
3449 get_msg_score, SE_NOSERVER|SE_NOPREFETCH)){
3450 if(!pat->action || pat->action->bogus)
3451 break;
3452
3453 match++;
3454 if(pat->action && pat->action->incol)
3455 color = new_color_pair(pat->action->incol->fg,
3456 pat->action->incol->bg);
3457 }
3458 else
3459 pat = next_pattern(*pstate);
3460 }
3461 }
3462
3463 if(match && returned_color)
3464 *returned_color = color;
3465
3466 return(match);
3467 }
3468
3469
3470 /*
3471 *
3472 */
3473 int
3474 index_in_overview(MAILSTREAM *stream)
3475 {
3476 INDEX_COL_S *cdesc = NULL;
3477
3478 if(!(stream->mailbox && IS_REMOTE(stream->mailbox)))
3479 return(FALSE); /* no point! */
3480
3481 if(stream->dtb && stream->dtb->name && !strcmp(stream->dtb->name, "nntp")){
3482
3483 if(THRD_INDX())
3484 return(TRUE);
3485
3486 for(cdesc = ps_global->index_disp_format;
3487 cdesc->ctype != iNothing;
3488 cdesc++)
3489 switch(cdesc->ctype){
3490 case iTo: /* can't be satisfied by XOVER */
3491 case iSender: /* ... or specifically handled */
3492 case iDescripSize: /* ... in news case */
3493 case iAtt:
3494 return(FALSE);
3495
3496 default :
3497 break;
3498 }
3499 }
3500
3501 return(TRUE);
3502 }
3503
3504
3505
3506 /*
3507 * fetch_from - called to get a the index entry's "From:" field
3508 */
3509 int
3510 resent_to_us(INDEXDATA_S *idata)
3511 {
3512 if(!idata->valid_resent_to){
3513 static char *fields[] = {"Resent-To", NULL};
3514 char *h;
3515
3516 if(idata->no_fetch){
3517 idata->bogus = 1; /* don't do this */
3518 return(FALSE);
3519 }
3520
3521 if((h = pine_fetchheader_lines(idata->stream,idata->rawno,NULL,fields)) != NULL){
3522 idata->resent_to_us = parsed_resent_to_us(h);
3523 fs_give((void **) &h);
3524 }
3525
3526 idata->valid_resent_to = 1;
3527 }
3528
3529 return(idata->resent_to_us);
3530 }
3531
3532
3533 int
3534 parsed_resent_to_us(char *h)
3535 {
3536 char *p, *q;
3537 ADDRESS *addr = NULL;
3538 int rv = FALSE;
3539
3540 if((p = strindex(h, ':')) != NULL){
3541 for(q = ++p; (q = strpbrk(q, "\015\012")) != NULL; q++)
3542 *q = ' '; /* quash junk */
3543
3544 rfc822_parse_adrlist(&addr, p, ps_global->maildomain);
3545 if(addr){
3546 rv = address_is_us(addr, ps_global);
3547 mail_free_address(&addr);
3548 }
3549 }
3550
3551 return(rv);
3552 }
3553
3554
3555
3556 /*
3557 * fetch_from - called to get a the index entry's "From:" field
3558 */
3559 ADDRESS *
3560 fetch_from(INDEXDATA_S *idata)
3561 {
3562 if(idata->no_fetch) /* implies from is valid */
3563 return(idata->from);
3564 else if(idata->bogus)
3565 idata->bogus = 2;
3566 else{
3567 ENVELOPE *env;
3568
3569 /* c-client call's just cache access at this point */
3570 if((env = pine_mail_fetchenvelope(idata->stream, idata->rawno)) != NULL)
3571 return(env->from);
3572
3573 idata->bogus = 1;
3574 }
3575
3576 return(NULL);
3577 }
3578
3579
3580 /*
3581 * fetch_to - called to get a the index entry's "To:" field
3582 */
3583 ADDRESS *
3584 fetch_to(INDEXDATA_S *idata)
3585 {
3586 if(idata->no_fetch){ /* check for specific validity */
3587 if(idata->valid_to)
3588 return(idata->to);
3589 else
3590 idata->bogus = 1; /* can't give 'em what they want */
3591 }
3592 else if(idata->bogus){
3593 idata->bogus = 2; /* elevate bogosity */
3594 }
3595 else{
3596 ENVELOPE *env;
3597
3598 /* c-client call's just cache access at this point */
3599 if((env = pine_mail_fetchenvelope(idata->stream, idata->rawno)) != NULL)
3600 return(env->to);
3601
3602 idata->bogus = 1;
3603 }
3604
3605 return(NULL);
3606 }
3607
3608
3609 /*
3610 * fetch_cc - called to get a the index entry's "Cc:" field
3611 */
3612 ADDRESS *
3613 fetch_cc(INDEXDATA_S *idata)
3614 {
3615 if(idata->no_fetch){ /* check for specific validity */
3616 if(idata->valid_cc)
3617 return(idata->cc);
3618 else
3619 idata->bogus = 1; /* can't give 'em what they want */
3620 }
3621 else if(idata->bogus){
3622 idata->bogus = 2; /* elevate bogosity */
3623 }
3624 else{
3625 ENVELOPE *env;
3626
3627 /* c-client call's just cache access at this point */
3628 if((env = pine_mail_fetchenvelope(idata->stream, idata->rawno)) != NULL)
3629 return(env->cc);
3630
3631 idata->bogus = 1;
3632 }
3633
3634 return(NULL);
3635 }
3636
3637
3638
3639 /*
3640 * fetch_sender - called to get a the index entry's "Sender:" field
3641 */
3642 ADDRESS *
3643 fetch_sender(INDEXDATA_S *idata)
3644 {
3645 if(idata->no_fetch){ /* check for specific validity */
3646 if(idata->valid_sender)
3647 return(idata->sender);
3648 else
3649 idata->bogus = 1; /* can't give 'em what they want */
3650 }
3651 else if(idata->bogus){
3652 idata->bogus = 2; /* elevate bogosity */
3653 }
3654 else{
3655 ENVELOPE *env;
3656
3657 /* c-client call's just cache access at this point */
3658 if((env = pine_mail_fetchenvelope(idata->stream, idata->rawno)) != NULL)
3659 return(env->sender);
3660
3661 idata->bogus = 1;
3662 }
3663
3664 return(NULL);
3665 }
3666
3667
3668 /*
3669 * fetch_newsgroups - called to get a the index entry's "Newsgroups:" field
3670 */
3671 char *
3672 fetch_newsgroups(INDEXDATA_S *idata)
3673 {
3674 if(idata->no_fetch){ /* check for specific validity */
3675 if(idata->valid_news)
3676 return(idata->newsgroups);
3677 else
3678 idata->bogus = 1; /* can't give 'em what they want */
3679 }
3680 else if(idata->bogus){
3681 idata->bogus = 2; /* elevate bogosity */
3682 }
3683 else{
3684 ENVELOPE *env;
3685
3686 /* c-client call's just cache access at this point */
3687 if((env = pine_mail_fetchenvelope(idata->stream, idata->rawno)) != NULL)
3688 return(env->newsgroups);
3689
3690 idata->bogus = 1;
3691 }
3692
3693 return(NULL);
3694 }
3695
3696
3697 /*
3698 * fetch_subject - called to get at the index entry's "Subject:" field
3699 */
3700 char *
3701 fetch_subject(INDEXDATA_S *idata)
3702 {
3703 if(idata->no_fetch) /* implies subject is valid */
3704 return(idata->subject);
3705 else if(idata->bogus)
3706 idata->bogus = 2;
3707 else{
3708 ENVELOPE *env;
3709
3710 /* c-client call's just cache access at this point */
3711 if((env = pine_mail_fetchenvelope(idata->stream, idata->rawno)) != NULL)
3712 return(env->subject);
3713
3714 idata->bogus = 1;
3715 }
3716
3717 return(NULL);
3718 }
3719
3720
3721 /*
3722 * Return an allocated copy of the first few characters from the body
3723 * of the message for possible use in the index screen.
3724 *
3725 * Maybe we could figure out some way to do aggregate calls to get
3726 * this info for all the lines in view instead of all the one at a
3727 * time calls we're doing now.
3728 */
3729 char *
3730 fetch_firsttext(INDEXDATA_S *idata, int delete_quotes)
3731 {
3732 ENVELOPE *env;
3733 BODY *body = NULL, *new_body = NULL;
3734 char *firsttext = NULL;
3735 STORE_S *so;
3736 gf_o_t pc;
3737 long partial_fetch_len = 0L;
3738 SEARCHSET *ss, **sset;
3739 MESSAGECACHE *mc;
3740 PINELT_S *pelt = NULL;
3741
3742 /* we cache the result we get from this function, so that we do not have to
3743 * refetch the text in case there is a change. We could cache in the envelope
3744 * but c-client does not have a special field for that, nor we want to use the
3745 * sparep pointer, since there could be other uses for sparep later, and even
3746 * if we add a pointer to the ENVELOPE structure, we would be caching the same
3747 * text twice (one in a private pointer, and the new pointer) and that would
3748 * not make sense. Instead we will use an elt for this
3749 */
3750
3751 if((mc = mail_elt(idata->stream, idata->rawno))
3752 && ((pelt = (PINELT_S *) mc->sparep) == NULL)){
3753 pelt = (PINELT_S *) fs_get(sizeof(PINELT_S));
3754 memset(pelt, 0, sizeof(PINELT_S));
3755 }
3756
3757 if(pelt && pelt->firsttext != NULL)
3758 return(pelt->firsttext);
3759
3760 try_again:
3761
3762 /*
3763 * Prevent wild prefetch, just get the one we're after.
3764 * Can we get this somehow in the overview call in build_header_work?
3765 */
3766 ss = mail_newsearchset();
3767 ss->first = ss->last = idata->rawno;
3768 sset = (SEARCHSET **) mail_parameters(idata->stream,
3769 GET_FETCHLOOKAHEAD,
3770 (void *) idata->stream);
3771 if(sset)
3772 *sset = ss;
3773
3774 if((env = pine_mail_fetchstructure(idata->stream, idata->rawno, &body)) != NULL){
3775 if(body){
3776 char *subtype = NULL;
3777 char *partno;
3778
3779 if((body->type == TYPETEXT
3780 && (subtype=body->subtype) && ALLOWED_SUBTYPE(subtype))
3781 ||
3782 (body->type == TYPEMULTIPART && body->nested.part
3783 && body->nested.part->body.type == TYPETEXT
3784 && (subtype=body->nested.part->body.subtype)
3785 && ALLOWED_SUBTYPE(subtype))
3786 ||
3787 (body->type == TYPEMULTIPART && body->nested.part
3788 && body->nested.part->body.type == TYPEMULTIPART
3789 && body->nested.part->body.nested.part
3790 && body->nested.part->body.nested.part->body.type == TYPETEXT
3791 && (subtype=body->nested.part->body.nested.part->body.subtype)
3792 && ALLOWED_SUBTYPE(subtype))){
3793
3794 if((so = so_get(CharStar, NULL, EDIT_ACCESS)) != NULL){
3795 char buf[1025], *p;
3796 unsigned char c;
3797 int success;
3798 int one_space_done = 0;
3799
3800 if(partial_fetch_len == 0L){
3801 if(subtype && !strucmp(subtype, "html"))
3802 partial_fetch_len = 1024L;
3803 else if(subtype && !strucmp(subtype, "plain"))
3804 partial_fetch_len = delete_quotes ? 128L : 64L;
3805 else
3806 partial_fetch_len = 256L;
3807 }
3808
3809 if((body->type == TYPETEXT
3810 && (subtype=body->subtype) && ALLOWED_SUBTYPE(subtype))
3811 ||
3812 (body->type == TYPEMULTIPART && body->nested.part
3813 && (new_body = &body->nested.part->body) != NULL
3814 && body->nested.part->body.type == TYPETEXT
3815 && (subtype=body->nested.part->body.subtype)
3816 && ALLOWED_SUBTYPE(subtype)))
3817 partno = "1";
3818 else
3819 partno = "1.1";
3820
3821 gf_set_so_writec(&pc, so);
3822 success = get_body_part_text(idata->stream, new_body ? new_body : body,
3823 idata->rawno,
3824 partno, partial_fetch_len, pc,
3825 NULL, NULL,
3826 GBPT_NOINTR | GBPT_PEEK |
3827 (delete_quotes ? GBPT_DELQUOTES : 0));
3828 gf_clear_so_writec(so);
3829
3830 if(success){
3831 so_seek(so, 0L, 0);
3832 p = buf;
3833 while(p-buf < sizeof(buf)-1 && so_readc(&c, so)){
3834 /* delete leading whitespace */
3835 if(p == buf && isspace(c))
3836 ;
3837 /* and include just one space per run of whitespace */
3838 else if(isspace(c)){
3839 if(!one_space_done){
3840 *p++ = SPACE;
3841 one_space_done++;
3842 }
3843 }
3844 else{
3845 one_space_done = 0;
3846 *p++ = c;
3847 }
3848 }
3849
3850 *p = '\0';
3851
3852 if(p > buf){
3853 size_t l;
3854
3855 l = strlen(buf);
3856 l += 100;
3857 firsttext = fs_get((l+1) * sizeof(char));
3858 firsttext[0] = '\0';
3859 iutf8ncpy(firsttext, buf, l);
3860 firsttext[l] = '\0';
3861 removing_trailing_white_space(firsttext);
3862 }
3863 }
3864
3865 so_give(&so);
3866
3867 /* first if means we didn't fetch all of the data */
3868 if(!(success > 1 && success < partial_fetch_len)){
3869 if(partial_fetch_len < 4096L
3870 && (!firsttext || utf8_width(firsttext) < 50)){
3871 if(firsttext)
3872 fs_give((void **) &firsttext);
3873
3874 if(ss)
3875 mail_free_searchset(&ss);
3876
3877 partial_fetch_len = 4096L;
3878 goto try_again;
3879 }
3880 }
3881 if(mc && pelt)
3882 pelt->firsttext = firsttext;
3883 }
3884 }
3885 }
3886 }
3887
3888 if(ss)
3889 mail_free_searchset(&ss);
3890
3891 return(firsttext);
3892 }
3893
3894
3895 /*
3896 * fetch_date - called to get at the index entry's "Date:" field
3897 */
3898 char *
3899 fetch_date(INDEXDATA_S *idata)
3900 {
3901 if(idata->no_fetch) /* implies date is valid */
3902 return(idata->date);
3903 else if(idata->bogus)
3904 idata->bogus = 2;
3905 else{
3906 ENVELOPE *env;
3907
3908 /* c-client call's just cache access at this point */
3909 if((env = pine_mail_fetchenvelope(idata->stream, idata->rawno)) != NULL)
3910 return((char *) env->date);
3911
3912 idata->bogus = 1;
3913 }
3914
3915 return(NULL);
3916 }
3917
3918
3919 /*
3920 * fetch_header - called to get at the index entry's "Hdrname:" field
3921 */
3922 char *
3923 fetch_header(INDEXDATA_S *idata, char *hdrname)
3924 {
3925 if(idata->no_fetch)
3926 idata->bogus = 1;
3927 else if(idata->bogus)
3928 idata->bogus = 2;
3929 else{
3930 char *h, *p, *q, *decoded, *fields[2];
3931 size_t retsize, decsize;
3932 char *ret = NULL;
3933 unsigned char *decode_buf = NULL;
3934
3935 fields[0] = hdrname;
3936 fields[1] = NULL;
3937 if(hdrname && hdrname[0]
3938 && (h = pine_fetchheader_lines(idata->stream, idata->rawno,
3939 NULL, fields))){
3940
3941 if(strlen(h) < strlen(hdrname) + 1){
3942 fs_give((void **) &h);
3943 return(cpystr(""));
3944 }
3945
3946 /* skip "hdrname:" */
3947 for(p = h + strlen(hdrname) + 1;
3948 *p && isspace((unsigned char)*p); p++)
3949 ;
3950
3951 decsize = (4 * strlen(p)) + 1;
3952 decode_buf = (unsigned char *) fs_get(decsize * sizeof(unsigned char));
3953 decoded = (char *) rfc1522_decode_to_utf8(decode_buf, decsize, p);
3954 p = decoded;
3955
3956 retsize = strlen(decoded);
3957 q = ret = (char *) fs_get((retsize+1) * sizeof(char));
3958
3959 *q = '\0';
3960 while(q-ret < retsize && *p){
3961 if(*p == '\015' || *p == '\012')
3962 p++;
3963 else if(*p == '\t'){
3964 *q++ = SPACE;
3965 p++;
3966 }
3967 else
3968 *q++ = *p++;
3969 }
3970
3971 *q = '\0';
3972
3973 fs_give((void **) &h);
3974 if(decode_buf)
3975 fs_give((void **) &decode_buf);
3976
3977 return(ret);
3978 }
3979
3980 idata->bogus = 1;
3981 }
3982
3983 return(NULL);
3984 }
3985
3986
3987 /*
3988 * fetch_size - called to get at the index entry's "size" field
3989 */
3990 long
3991 fetch_size(INDEXDATA_S *idata)
3992 {
3993 if(idata->no_fetch) /* implies size is valid */
3994 return(idata->size);
3995 else if(idata->bogus)
3996 idata->bogus = 2;
3997 else{
3998 MESSAGECACHE *mc;
3999
4000 if(idata->stream && idata->rawno > 0L
4001 && idata->rawno <= idata->stream->nmsgs
4002 && (mc = mail_elt(idata->stream, idata->rawno)))
4003 return(mc->rfc822_size);
4004
4005 idata->bogus = 1;
4006 }
4007
4008 return(0L);
4009 }
4010
4011
4012 /*
4013 * fetch_body - called to get a the index entry's body structure
4014 */
4015 BODY *
4016 fetch_body(INDEXDATA_S *idata)
4017 {
4018 BODY *body;
4019
4020 if(idata->bogus || idata->no_fetch){
4021 idata->bogus = 2;
4022 return(NULL);
4023 }
4024
4025 if(pine_mail_fetchstructure(idata->stream, idata->rawno, &body))
4026 return(body);
4027
4028 idata->bogus = 1;
4029 return(NULL);
4030 }
4031
4032
4033 /*
4034 * s is at least size width+1
4035 */
4036 int
4037 set_index_addr(INDEXDATA_S *idata,
4038 char *field,
4039 struct mail_address *addr,
4040 char *prefix,
4041 int width,
4042 char *s)
4043 {
4044 ADDRESS *atmp;
4045 char *p, *stmp = NULL, *sptr;
4046 char *save_personal = NULL;
4047 int orig_width;
4048
4049 s[0] = '\0';
4050
4051 for(atmp = addr; idata->stream && atmp; atmp = atmp->next)
4052 if(atmp->host && atmp->host[0] == '.'){
4053 char *pref, *h, *fields[2];
4054
4055 if(idata->no_fetch){
4056 idata->bogus = 1;
4057 return(TRUE);
4058 }
4059
4060 fields[0] = field;
4061 fields[1] = NULL;
4062 if((h = pine_fetchheader_lines(idata->stream, idata->rawno,
4063 NULL, fields)) != NULL){
4064 if(strlen(h) < strlen(field) + 1){
4065 p = h + strlen(h);
4066 }
4067 else{
4068 /* skip "field:" */
4069 for(p = h + strlen(field) + 1;
4070 *p && isspace((unsigned char)*p); p++)
4071 ;
4072 }
4073
4074 orig_width = width;
4075 sptr = stmp = (char *) fs_get((orig_width+1) * sizeof(char));
4076
4077 /* add prefix */
4078 for(pref = prefix; pref && *pref; pref++)
4079 if(width){
4080 *sptr++ = *pref;
4081 width--;
4082 }
4083 else
4084 break;
4085
4086 while(width--)
4087 if(*p == '\015' || *p == '\012')
4088 p++; /* skip CR LF */
4089 else if(!*p)
4090 *sptr++ = ' ';
4091 else if(*p == '\t'){
4092 *sptr++ = ' ';
4093 p++;
4094 }
4095 else
4096 *sptr++ = *p++;
4097
4098 *sptr = '\0'; /* tie off return string */
4099
4100 if(stmp){
4101 iutf8ncpy(s, stmp, orig_width+1);
4102 s[orig_width] = '\0';
4103 fs_give((void **) &stmp);
4104 }
4105
4106 fs_give((void **) &h);
4107 return(TRUE);
4108 }
4109 /* else fall thru and display what c-client gave us */
4110 }
4111
4112 if(addr && !addr->next /* only one address */
4113 && addr->host /* not group syntax */
4114 && addr->personal && addr->personal[0]){ /* there is a personal name */
4115 char buftmp[MAILTMPLEN];
4116 int l;
4117
4118 if((l = prefix ? strlen(prefix) : 0) != 0)
4119 strncpy(s, prefix, width+1);
4120
4121 snprintf(buftmp, sizeof(buftmp), "%s", addr->personal);
4122 p = (char *) rfc1522_decode_to_utf8((unsigned char *) tmp_20k_buf,
4123 SIZEOF_20KBUF, buftmp);
4124 removing_leading_and_trailing_white_space(p);
4125
4126 iutf8ncpy(s + l, p, width - l);
4127
4128 s[width] = '\0';
4129
4130 if(*(s+l))
4131 return(TRUE);
4132 else{
4133 save_personal = addr->personal;
4134 addr->personal = NULL;
4135 }
4136 }
4137
4138 if(addr){
4139 char *a_string;
4140 int l;
4141
4142 a_string = addr_list_string(addr, NULL, 0);
4143 if(save_personal)
4144 addr->personal = save_personal;
4145
4146 if((l = prefix ? strlen(prefix) : 0) != 0)
4147 strncpy(s, prefix, width+1);
4148
4149 iutf8ncpy(s + l, a_string, width - l);
4150 s[width] = '\0';
4151
4152 fs_give((void **)&a_string);
4153
4154 return(TRUE);
4155 }
4156
4157 if(save_personal)
4158 addr->personal = save_personal;
4159
4160 return(FALSE);
4161 }
4162
4163
4164 void
4165 index_data_env(INDEXDATA_S *idata, ENVELOPE *env)
4166 {
4167 if(!env){
4168 idata->bogus = 2;
4169 return;
4170 }
4171
4172 idata->from = env->from;
4173 idata->to = env->to;
4174 idata->cc = env->cc;
4175 idata->sender = env->sender;
4176 idata->subject = env->subject;
4177 idata->date = (char *) env->date;
4178 idata->newsgroups = env->newsgroups;
4179
4180 idata->valid_to = 1; /* signal that everything is here */
4181 idata->valid_cc = 1;
4182 idata->valid_sender = 1;
4183 idata->valid_news = 1;
4184 }
4185
4186
4187 /*
4188 * Put a string representing the date into str. The source date is
4189 * in the string datesrc. The format to be used is in type.
4190 * Notice that type is an IndexColType, but really only a subset of
4191 * IndexColType types are allowed.
4192 *
4193 * Args datesrc -- The source date string
4194 * type -- What type of output we want
4195 * v -- If set, variable width output is ok. (Oct 9 not Oct 9)
4196 * str -- Put the answer here.
4197 * str_len -- Length of str
4198 * monabb_width -- This is a hack to get dates to line up right. For
4199 * example, in French (but without accents here)
4200 * dec. 21
4201 * fevr. 23
4202 * mars 7
4203 * For this monabb_width would be 5.
4204 */
4205 void
4206 date_str(char *datesrc, IndexColType type, int v, char *str, size_t str_len,
4207 int monabb_width)
4208 {
4209 char year4[5], /* 4 digit year */
4210 yearzero[3], /* zero padded, 2-digit year */
4211 monzero[3], /* zero padded, 2-digit month */
4212 mon[3], /* 1 or 2-digit month, no pad */
4213 dayzero[3], /* zero padded, 2-digit day */
4214 day[3], /* 1 or 2-digit day, no pad */
4215 dayord[3], /* 2-letter ordinal label */
4216 monabb[10], /* 3-letter month abbrev */
4217 /* actually maybe not 3 if localized */
4218 hour24[3], /* 2-digit, 24 hour clock hour */
4219 hour12[3], /* 12 hour clock hour, no pad */
4220 minzero[3], /* zero padded, 2-digit minutes */
4221 timezone[6]; /* timezone, like -0800 or +... */
4222 int hr12;
4223 int curtype, lastmonthtype, lastyeartype, preftype;
4224 int sdatetimetype, sdatetime24type;
4225 struct date d;
4226 #define TODAYSTR N_("Today")
4227
4228 curtype = (type == iCurDate ||
4229 type == iCurDateIso ||
4230 type == iCurDateIsoS ||
4231 type == iCurPrefDate ||
4232 type == iCurPrefDateTime ||
4233 type == iCurPrefTime ||
4234 type == iCurTime24 ||
4235 type == iCurTime12 ||
4236 type == iCurDay ||
4237 type == iCurDay2Digit ||
4238 type == iCurDayOfWeek ||
4239 type == iCurDayOfWeekAbb ||
4240 type == iCurMon ||
4241 type == iCurMon2Digit ||
4242 type == iCurMonLong ||
4243 type == iCurMonAbb ||
4244 type == iCurYear ||
4245 type == iCurYear2Digit);
4246 lastmonthtype = (type == iLstMon ||
4247 type == iLstMon2Digit ||
4248 type == iLstMonLong ||
4249 type == iLstMonAbb ||
4250 type == iLstMonYear ||
4251 type == iLstMonYear2Digit);
4252 lastyeartype = (type == iLstYear ||
4253 type == iLstYear2Digit);
4254 sdatetimetype = (type == iSDateTime ||
4255 type == iSDateTimeIso ||
4256 type == iSDateTimeIsoS ||
4257 type == iSDateTimeS1 ||
4258 type == iSDateTimeS2 ||
4259 type == iSDateTimeS3 ||
4260 type == iSDateTimeS4 ||
4261 type == iSDateTime24 ||
4262 type == iSDateTimeIso24 ||
4263 type == iSDateTimeIsoS24 ||
4264 type == iSDateTimeS124 ||
4265 type == iSDateTimeS224 ||
4266 type == iSDateTimeS324 ||
4267 type == iSDateTimeS424);
4268 sdatetime24type = (type == iSDateTime24 ||
4269 type == iSDateTimeIso24 ||
4270 type == iSDateTimeIsoS24 ||
4271 type == iSDateTimeS124 ||
4272 type == iSDateTimeS224 ||
4273 type == iSDateTimeS324 ||
4274 type == iSDateTimeS424);
4275 preftype = (type == iPrefDate ||
4276 type == iPrefDateTime ||
4277 type == iPrefTime ||
4278 type == iCurPrefDate ||
4279 type == iCurPrefDateTime ||
4280 type == iCurPrefTime);
4281 if(str_len > 0)
4282 str[0] = '\0';
4283
4284 if(!(datesrc && datesrc[0]) && !(curtype || lastmonthtype || lastyeartype))
4285 return;
4286
4287 if(curtype || lastmonthtype || lastyeartype){
4288 char dbuf[200];
4289
4290 rfc822_date(dbuf);
4291 parse_date(dbuf, &d);
4292
4293 if(lastyeartype)
4294 d.year--;
4295 else if(lastmonthtype){
4296 d.month--;
4297 if(d.month <= 0){
4298 d.month = 12;
4299 d.year--;
4300 }
4301 }
4302 }
4303 else{
4304 parse_date(F_ON(F_DATES_TO_LOCAL,ps_global)
4305 ? convert_date_to_local(datesrc) : datesrc, &d);
4306 if(d.year == -1 || d.month == -1 || d.day == -1){
4307 sdatetimetype = 0;
4308 sdatetime24type = 0;
4309 preftype = 0;
4310 switch(type){
4311 case iSDate: case iSDateTime: case iSDateTime24:
4312 type = iS1Date;
4313 break;
4314
4315 case iSDateIso: case iSDateTimeIso: case iSDateTimeIso24:
4316 case iPrefDate: case iPrefTime: case iPrefDateTime:
4317 type = iDateIso;
4318 break;
4319
4320 case iSDateIsoS: case iSDateTimeIsoS: case iSDateTimeIsoS24:
4321 type = iDateIsoS;
4322 break;
4323
4324 case iSDateS1: case iSDateTimeS1: case iSDateTimeS124:
4325 type = iS1Date;
4326 break;
4327
4328 case iSDateS2: case iSDateTimeS2: case iSDateTimeS224:
4329 type = iS1Date;
4330 break;
4331
4332 case iSDateS3: case iSDateTimeS3: case iSDateTimeS324:
4333 type = iS1Date;
4334 break;
4335
4336 case iSDateS4: case iSDateTimeS4: case iSDateTimeS424:
4337 type = iS1Date;
4338 break;
4339
4340 default:
4341 break;
4342 }
4343 }
4344 }
4345
4346 /* some special ones to start with */
4347 if(preftype){
4348 struct tm tm, *tmptr = NULL;
4349 time_t now;
4350
4351 /*
4352 * Make sure we get the right one if we're using current time.
4353 */
4354 if(curtype){
4355 now = time((time_t *) 0);
4356 if(now != (time_t) -1)
4357 tmptr = localtime(&now);
4358 }
4359
4360 if(!tmptr){
4361 memset(&tm, 0, sizeof(tm));
4362 tm.tm_year = MIN(MAX(d.year-1900, 0), 2000);
4363 tm.tm_mon = MIN(MAX(d.month-1, 0), 11);
4364 tm.tm_mday = MIN(MAX(d.day, 1), 31);
4365 tm.tm_hour = MIN(MAX(d.hour, 0), 23);
4366 tm.tm_min = MIN(MAX(d.minute, 0), 59);
4367 tm.tm_wday = MIN(MAX(d.wkday, 0), 6);
4368 tmptr = &tm;
4369 }
4370
4371 switch(type){
4372 case iPrefDate:
4373 case iCurPrefDate:
4374 our_strftime(str, str_len, "%x", tmptr);
4375 break;
4376 case iPrefTime:
4377 case iCurPrefTime:
4378 our_strftime(str, str_len, "%X", tmptr);
4379 break;
4380 case iPrefDateTime:
4381 case iCurPrefDateTime:
4382 our_strftime(str, str_len, "%c", tmptr);
4383 break;
4384 default:
4385 assert(0);
4386 break;
4387 }
4388
4389 return;
4390 }
4391
4392 strncpy(monabb, (d.month > 0 && d.month < 13)
4393 ? month_abbrev_locale(d.month) : "", sizeof(monabb));
4394 monabb[sizeof(monabb)-1] = '\0';
4395
4396 strncpy(mon, (d.month > 0 && d.month < 13)
4397 ? int2string(d.month) : "", sizeof(mon));
4398 mon[sizeof(mon)-1] = '\0';
4399
4400 strncpy(day, (d.day > 0 && d.day < 32)
4401 ? int2string(d.day) : "", sizeof(day));
4402 day[sizeof(day)-1] = '\0';
4403
4404 strncpy(dayord,
4405 (d.day <= 0 || d.day > 31) ? "" :
4406 (d.day == 1 || d.day == 21 || d.day == 31) ? "st" :
4407 (d.day == 2 || d.day == 22 ) ? "nd" :
4408 (d.day == 3 || d.day == 23 ) ? "rd" : "th", sizeof(dayord));
4409
4410 dayord[sizeof(dayord)-1] = '\0';
4411
4412 strncpy(year4, (d.year >= 1000 && d.year < 10000)
4413 ? int2string(d.year) : "????", sizeof(year4));
4414 year4[sizeof(year4)-1] = '\0';
4415
4416 if(d.year >= 0){
4417 if((d.year % 100) < 10){
4418 yearzero[0] = '0';
4419 strncpy(yearzero+1, int2string(d.year % 100), sizeof(yearzero)-1);
4420 }
4421 else
4422 strncpy(yearzero, int2string(d.year % 100), sizeof(yearzero));
4423 }
4424 else
4425 strncpy(yearzero, "??", sizeof(yearzero));
4426
4427 yearzero[sizeof(yearzero)-1] = '\0';
4428
4429 if(d.month > 0 && d.month < 10){
4430 monzero[0] = '0';
4431 strncpy(monzero+1, int2string(d.month), sizeof(monzero)-1);
4432 }
4433 else if(d.month >= 10 && d.month <= 12)
4434 strncpy(monzero, int2string(d.month), sizeof(monzero));
4435 else
4436 strncpy(monzero, "??", sizeof(monzero));
4437
4438 monzero[sizeof(monzero)-1] = '\0';
4439
4440 if(d.day > 0 && d.day < 10){
4441 dayzero[0] = '0';
4442 strncpy(dayzero+1, int2string(d.day), sizeof(dayzero)-1);
4443 }
4444 else if(d.day >= 10 && d.day <= 31)
4445 strncpy(dayzero, int2string(d.day), sizeof(dayzero));
4446 else
4447 strncpy(dayzero, "??", sizeof(dayzero));
4448
4449 dayzero[sizeof(dayzero)-1] = '\0';
4450
4451 hr12 = (d.hour == 0) ? 12 :
4452 (d.hour > 12) ? (d.hour - 12) : d.hour;
4453 hour12[0] = '\0';
4454 if(hr12 > 0 && hr12 <= 12)
4455 strncpy(hour12, int2string(hr12), sizeof(hour12));
4456
4457 hour12[sizeof(hour12)-1] = '\0';
4458
4459 hour24[0] = '\0';
4460 if(d.hour >= 0 && d.hour < 10){
4461 hour24[0] = '0';
4462 strncpy(hour24+1, int2string(d.hour), sizeof(hour24)-1);
4463 }
4464 else if(d.hour >= 10 && d.hour < 24)
4465 strncpy(hour24, int2string(d.hour), sizeof(hour24));
4466
4467 hour24[sizeof(hour24)-1] = '\0';
4468
4469 minzero[0] = '\0';
4470 if(d.minute >= 0 && d.minute < 10){
4471 minzero[0] = '0';
4472 strncpy(minzero+1, int2string(d.minute), sizeof(minzero)-1);
4473 }
4474 else if(d.minute >= 10 && d.minute <= 60)
4475 strncpy(minzero, int2string(d.minute), sizeof(minzero));
4476
4477 minzero[sizeof(minzero)-1] = '\0';
4478
4479 if(sizeof(timezone) > 5){
4480 if(d.hours_off_gmt <= 0){
4481 timezone[0] = '-';
4482 d.hours_off_gmt *= -1;
4483 d.min_off_gmt *= -1;
4484 }
4485 else
4486 timezone[0] = '+';
4487
4488 timezone[1] = '\0';
4489 if(d.hours_off_gmt >= 0 && d.hours_off_gmt < 10){
4490 timezone[1] = '0';
4491 strncpy(timezone+2, int2string(d.hours_off_gmt), sizeof(timezone)-2);
4492 }
4493 else if(d.hours_off_gmt >= 10 && d.hours_off_gmt < 24)
4494 strncpy(timezone+1, int2string(d.hours_off_gmt), sizeof(timezone)-1);
4495 else{
4496 timezone[1] = '0';
4497 timezone[2] = '0';
4498 }
4499
4500 timezone[3] = '\0';
4501 if(d.min_off_gmt >= 0 && d.min_off_gmt < 10){
4502 timezone[3] = '0';
4503 strncpy(timezone+4, int2string(d.min_off_gmt), sizeof(timezone)-4);
4504 }
4505 else if(d.min_off_gmt >= 10 && d.min_off_gmt <= 60)
4506 strncpy(timezone+3, int2string(d.min_off_gmt), sizeof(timezone)-3);
4507 else{
4508 timezone[3] = '0';
4509 timezone[4] = '0';
4510 }
4511
4512 timezone[5] = '\0';
4513 timezone[sizeof(timezone)-1] = '\0';
4514 }
4515
4516 switch(type){
4517 case iRDate:
4518 /* this one is not locale-specific */
4519 snprintf(str, str_len, "%s%s%s %s %s",
4520 (d.wkday != -1) ? day_abbrev(d.wkday) : "",
4521 (d.wkday != -1) ? ", " : "",
4522 day,
4523 (d.month > 0 && d.month < 13) ? month_abbrev(d.month) : "",
4524 year4);
4525 break;
4526 case iDayOfWeekAbb:
4527 case iCurDayOfWeekAbb:
4528 strncpy(str, (d.wkday >= 0 && d.wkday <= 6) ? day_abbrev_locale(d.wkday) : "", str_len);
4529 str[str_len-1] = '\0';
4530 break;
4531 case iDayOfWeek:
4532 case iCurDayOfWeek:
4533 strncpy(str, (d.wkday >= 0 && d.wkday <= 6) ? day_name_locale(d.wkday) : "", str_len);
4534 str[str_len-1] = '\0';
4535 break;
4536 case iYear:
4537 case iCurYear:
4538 case iLstYear:
4539 case iLstMonYear:
4540 strncpy(str, year4, str_len);
4541 break;
4542 case iDay2Digit:
4543 case iCurDay2Digit:
4544 strncpy(str, dayzero, str_len);
4545 break;
4546 case iMon2Digit:
4547 case iCurMon2Digit:
4548 case iLstMon2Digit:
4549 strncpy(str, monzero, str_len);
4550 break;
4551 case iYear2Digit:
4552 case iCurYear2Digit:
4553 case iLstYear2Digit:
4554 case iLstMonYear2Digit:
4555 strncpy(str, yearzero, str_len);
4556 break;
4557 case iTimezone:
4558 strncpy(str, timezone, str_len);
4559 break;
4560 case iDay:
4561 case iCurDay:
4562 strncpy(str, day, str_len);
4563 break;
4564 case iDayOrdinal:
4565 snprintf(str, str_len, "%s%s", day, dayord);
4566 break;
4567 case iMon:
4568 case iCurMon:
4569 case iLstMon:
4570 if(d.month > 0 && d.month <= 12)
4571 strncpy(str, int2string(d.month), str_len);
4572
4573 break;
4574 case iMonAbb:
4575 case iCurMonAbb:
4576 case iLstMonAbb:
4577 strncpy(str, monabb, str_len);
4578 break;
4579 case iMonLong:
4580 case iCurMonLong:
4581 case iLstMonLong:
4582 strncpy(str, (d.month > 0 && d.month < 13)
4583 ? month_name_locale(d.month) : "", str_len);
4584 break;
4585 case iDate:
4586 case iCurDate:
4587 if(v)
4588 snprintf(str, str_len, "%s%s%s", monabb, (monabb[0] && day[0]) ? " " : "", day);
4589 else{
4590 if(monabb_width > 0)
4591 utf8_snprintf(str, str_len, "%-*.*w %2s",
4592 monabb_width, monabb_width, monabb, day);
4593 else
4594 snprintf(str, str_len, "%s %2s", monabb, day);
4595 }
4596
4597 break;
4598 case iLDate:
4599 if(v)
4600 snprintf(str, str_len, "%s%s%s%s%s", monabb,
4601 (monabb[0] && day[0]) ? " " : "", day,
4602 ((monabb[0] || day[0]) && year4[0]) ? ", " : "",
4603 year4);
4604 else{
4605 if(monabb_width > 0)
4606 utf8_snprintf(str, str_len, "%-*.*w %2s%c %4s",
4607 monabb_width, monabb_width,
4608 monabb, day,
4609 (monabb[0] && day[0] && year4[0]) ? ',' : ' ', year4);
4610 else
4611 snprintf(str, str_len, "%s %2s%c %4s", monabb, day,
4612 (monabb[0] && day[0] && year4[0]) ? ',' : ' ',
4613 year4);
4614 }
4615
4616 break;
4617 case iS1Date:
4618 case iS2Date:
4619 case iS3Date:
4620 case iS4Date:
4621 case iDateIso:
4622 case iDateIsoS:
4623 case iCurDateIso:
4624 case iCurDateIsoS:
4625 if(monzero[0] == '?' && dayzero[0] == '?' &&
4626 yearzero[0] == '?')
4627 snprintf(str, str_len, "%8s", "");
4628 else{
4629 switch(type){
4630 case iS1Date:
4631 snprintf(str, str_len, "%2s/%2s/%2s",
4632 monzero, dayzero, yearzero);
4633 break;
4634 case iS2Date:
4635 snprintf(str, str_len, "%2s/%2s/%2s",
4636 dayzero, monzero, yearzero);
4637 break;
4638 case iS3Date:
4639 snprintf(str, str_len, "%2s.%2s.%2s",
4640 dayzero, monzero, yearzero);
4641 break;
4642 case iS4Date:
4643 snprintf(str, str_len, "%2s.%2s.%2s",
4644 yearzero, monzero, dayzero);
4645 break;
4646 case iDateIsoS:
4647 case iCurDateIsoS:
4648 snprintf(str, str_len, "%2s-%2s-%2s",
4649 yearzero, monzero, dayzero);
4650 break;
4651 case iDateIso:
4652 case iCurDateIso:
4653 snprintf(str, str_len, "%4s-%2s-%2s",
4654 year4, monzero, dayzero);
4655 break;
4656 default:
4657 break;
4658 }
4659 }
4660
4661 break;
4662 case iTime24:
4663 case iCurTime24:
4664 snprintf(str, str_len, "%2s%c%2s",
4665 (hour24[0] && minzero[0]) ? hour24 : "",
4666 (hour24[0] && minzero[0]) ? ':' : ' ',
4667 (hour24[0] && minzero[0]) ? minzero : "");
4668 break;
4669 case iTime12:
4670 case iCurTime12:
4671 snprintf(str, str_len, "%s%c%2s%s",
4672 (hour12[0] && minzero[0]) ? hour12 : "",
4673 (hour12[0] && minzero[0]) ? ':' : ' ',
4674 (hour12[0] && minzero[0]) ? minzero : "",
4675 (hour12[0] && minzero[0] && d.hour < 12) ? "am" :
4676 (hour12[0] && minzero[0] && d.hour >= 12) ? "pm" :
4677 " ");
4678 break;
4679 case iSDate: case iSDateIso: case iSDateIsoS:
4680 case iSDateS1: case iSDateS2: case iSDateS3: case iSDateS4:
4681 case iSDateTime: case iSDateTimeIso: case iSDateTimeIsoS:
4682 case iSDateTimeS1: case iSDateTimeS2: case iSDateTimeS3: case iSDateTimeS4:
4683 case iSDateTime24: case iSDateTimeIso24: case iSDateTimeIsoS24:
4684 case iSDateTimeS124: case iSDateTimeS224: case iSDateTimeS324: case iSDateTimeS424:
4685 { struct date now, last_day;
4686 char dbuf[200];
4687 int msg_day_of_year, now_day_of_year, today;
4688 int diff, ydiff, last_day_of_year;
4689
4690 rfc822_date(dbuf);
4691 parse_date(dbuf, &now);
4692 today = day_of_week(&now) + 7;
4693
4694 if(today >= 0+7 && today <= 6+7){
4695 now_day_of_year = day_of_year(&now);
4696 msg_day_of_year = day_of_year(&d);
4697 ydiff = now.year - d.year;
4698
4699 if(msg_day_of_year == -1)
4700 diff = -100;
4701 else if(ydiff == 0)
4702 diff = now_day_of_year - msg_day_of_year;
4703 else if(ydiff == 1){
4704 last_day = d;
4705 last_day.month = 12;
4706 last_day.day = 31;
4707 last_day_of_year = day_of_year(&last_day);
4708
4709 diff = now_day_of_year +
4710 (last_day_of_year - msg_day_of_year);
4711 }
4712 else if(ydiff == -1){
4713 last_day = now;
4714 last_day.month = 12;
4715 last_day.day = 31;
4716 last_day_of_year = day_of_year(&last_day);
4717
4718 diff = -1 * (msg_day_of_year +
4719 (last_day_of_year - now_day_of_year));
4720 }
4721 else if(ydiff > 1)
4722 diff = 100;
4723 else
4724 diff = -100;
4725
4726 if(diff == 0)
4727 strncpy(str, _(TODAYSTR), str_len);
4728 else if(diff == 1)
4729 strncpy(str, _("Yesterday"), str_len);
4730 else if(diff > 1 && diff < 7)
4731 snprintf(str, str_len, "%s", day_name_locale((today - diff) % 7));
4732 else if(diff == -1)
4733 strncpy(str, _("Tomorrow"), str_len);
4734 else if(diff < -1 && diff > -7)
4735 snprintf(str, str_len, _("Next %.3s!"),
4736 day_name_locale((today - diff) % 7));
4737 else if(diff > 0
4738 && (ydiff == 0
4739 || (ydiff == 1 && 12 + now.month - d.month < 6))){
4740 if(v)
4741 snprintf(str, str_len, "%s%s%s", monabb,
4742 (monabb[0] && day[0]) ? " " : "", day);
4743 else{
4744 if(monabb_width > 0)
4745 utf8_snprintf(str, str_len, "%-*.*w %2s",
4746 monabb_width, monabb_width, monabb, day);
4747 else
4748 snprintf(str, str_len, "%s %2s", monabb, day);
4749 }
4750 }
4751 else{
4752 if(msg_day_of_year == -1 && (type == iSDate || type == iSDateTime))
4753 type = iSDateTimeIsoS;
4754
4755 switch(type){
4756 case iSDate: case iSDateTime: case iSDateTime24:
4757 {
4758 struct tm tm;
4759
4760 memset(&tm, 0, sizeof(tm));
4761 tm.tm_year = MIN(MAX(d.year-1900, 0), 2000);
4762 tm.tm_mon = MIN(MAX(d.month-1, 0), 11);
4763 tm.tm_mday = MIN(MAX(d.day, 1), 31);
4764 tm.tm_hour = MIN(MAX(d.hour, 0), 23);
4765 tm.tm_min = MIN(MAX(d.minute, 0), 59);
4766 our_strftime(str, str_len, "%x", &tm);
4767 }
4768
4769 break;
4770 case iSDateS1: case iSDateTimeS1: case iSDateTimeS124:
4771 if(v)
4772 snprintf(str, str_len, "%s/%s/%s%s", mon, day, yearzero,
4773 diff < 0 ? "!" : "");
4774 else
4775 snprintf(str, str_len, "%s%s/%s/%s%s",
4776 (mon[0] && mon[1]) ? "" : " ",
4777 mon, dayzero, yearzero,
4778 diff < 0 ? "!" : "");
4779 break;
4780 case iSDateS2: case iSDateTimeS2: case iSDateTimeS224:
4781 if(v)
4782 snprintf(str, str_len, "%s/%s/%s%s", day, mon, yearzero,
4783 diff < 0 ? "!" : "");
4784 else
4785 snprintf(str, str_len, "%s%s/%s/%s%s",
4786 (day[0] && day[1]) ? "" : " ",
4787 day, monzero, yearzero,
4788 diff < 0 ? "!" : "");
4789 break;
4790 case iSDateS3: case iSDateTimeS3: case iSDateTimeS324:
4791 if(v)
4792 snprintf(str, str_len, "%s.%s.%s%s", day, mon, yearzero,
4793 diff < 0 ? "!" : "");
4794 else
4795 snprintf(str, str_len, "%s%s.%s.%s%s",
4796 (day[0] && day[1]) ? "" : " ",
4797 day, monzero, yearzero,
4798 diff < 0 ? "!" : "");
4799 break;
4800 case iSDateS4: case iSDateTimeS4: case iSDateTimeS424:
4801 if(v)
4802 snprintf(str, str_len, "%s.%s.%s%s",
4803 yearzero, monzero, dayzero,
4804 diff < 0 ? "!" : "");
4805 else
4806 snprintf(str, str_len, "%s.%s.%s%s",
4807 yearzero, monzero, dayzero,
4808 diff < 0 ? "!" : "");
4809 break;
4810 case iSDateIsoS: case iSDateTimeIsoS: case iSDateTimeIsoS24:
4811 snprintf(str, str_len, "%2s-%2s-%2s",
4812 yearzero, monzero, dayzero);
4813 break;
4814 case iSDateIso: case iSDateTimeIso: case iSDateTimeIso24:
4815 snprintf(str, str_len, "%4s-%2s-%2s",
4816 year4, monzero, dayzero);
4817 break;
4818 default:
4819 break;
4820 }
4821 }
4822
4823 }
4824 else{
4825 if(v)
4826 snprintf(str, str_len, "%s%s%s", monabb,
4827 (monabb[0] && day[0]) ? " " : "", day);
4828 else{
4829 if(monabb_width > 0)
4830 utf8_snprintf(str, str_len, "%-*.*w %2s",
4831 monabb_width, monabb_width, monabb, day);
4832 else
4833 snprintf(str, str_len, "%s %2s", monabb, day);
4834 }
4835 }
4836 }
4837
4838 break;
4839
4840 default:
4841 break;
4842 }
4843
4844 str[str_len-1] = '\0';
4845
4846 if(type == iSTime ||
4847 (sdatetimetype && !strcmp(str, _(TODAYSTR)))){
4848 struct date now, last_day;
4849 char dbuf[200], *Ddd, *ampm;
4850 int daydiff;
4851
4852 str[0] = '\0';
4853 rfc822_date(dbuf);
4854 parse_date(dbuf, &now);
4855
4856 /* Figure out if message date lands in the past week */
4857
4858 /* (if message dated this month or last month...) */
4859 if((d.year == now.year && d.month >= now.month - 1) ||
4860 (d.year == now.year - 1 && d.month == 12 && now.month == 1)){
4861
4862 daydiff = day_of_year(&now) - day_of_year(&d);
4863
4864 /*
4865 * If msg in end of last year (and we're in first bit of "this"
4866 * year), diff will be backwards; fix up by adding number of days
4867 * in last year (usually 365, but occasionally 366)...
4868 */
4869 if(d.year == now.year - 1){
4870 last_day = d;
4871 last_day.month = 12;
4872 last_day.day = 31;
4873
4874 daydiff += day_of_year(&last_day);
4875 }
4876 }
4877 else
4878 daydiff = -100; /* comfortably out of range (of past week) */
4879
4880 /* Build 2-digit hour and am/pm indicator, used below */
4881
4882 if(d.hour >= 0 && d.hour < 24){
4883 snprintf(hour12, sizeof(hour12), "%02d", (d.hour % 12 == 0) ? 12 : d.hour % 12);
4884 ampm = (d.hour < 12) ? "am" : "pm";
4885 snprintf(hour24, sizeof(hour24), "%02d", d.hour);
4886 }
4887 else{
4888 strncpy(hour12, "??", sizeof(hour12));
4889 hour12[sizeof(hour12)-1] = '\0';
4890 ampm = "__";
4891 strncpy(hour24, "??", sizeof(hour24));
4892 hour24[sizeof(hour24)-1] = '\0';
4893 }
4894
4895 /* Build date/time in str, in format similar to that used by w(1) */
4896
4897 if(daydiff == 0){ /* If date is today, "HH:MMap" */
4898 if(d.minute >= 0 && d.minute < 60)
4899 snprintf(minzero, sizeof(minzero), "%02d", d.minute);
4900 else{
4901 strncpy(minzero, "??", sizeof(minzero));
4902 minzero[sizeof(minzero)-1] = '\0';
4903 }
4904
4905 snprintf(str, str_len, "%s:%s%s", sdatetime24type ? hour24 : hour12,
4906 minzero, sdatetime24type ? "" : ampm);
4907 }
4908 else if(daydiff >= 1 && daydiff < 6){ /* If <1wk ago, "DddHHap" */
4909
4910 if(d.month >= 1 && d.day >= 1 && d.year >= 0 &&
4911 d.month <= 12 && d.day <= 31 && d.year <= 9999)
4912 Ddd = day_abbrev_locale(day_of_week(&d));
4913 else
4914 Ddd = "???";
4915
4916 snprintf(str, str_len, "%s%s%s", Ddd, hour12, ampm);
4917 }
4918 else{ /* date is old or future, "ddMmmyy" */
4919 strncpy(monabb, (d.month >= 1 && d.month <= 12)
4920 ? month_abbrev_locale(d.month) : "???", sizeof(monabb));
4921 monabb[sizeof(monabb)-1] = '\0';
4922
4923 if(d.day >= 1 && d.day <= 31)
4924 snprintf(dayzero, sizeof(dayzero), "%02d", d.day);
4925 else{
4926 strncpy(dayzero, "??", sizeof(dayzero));
4927 dayzero[sizeof(dayzero)-1] = '\0';
4928 }
4929
4930 if(d.year >= 0 && d.year <= 9999)
4931 snprintf(yearzero, sizeof(yearzero), "%02d", d.year % 100);
4932 else{
4933 strncpy(yearzero, "??", sizeof(yearzero));
4934 yearzero[sizeof(yearzero)-1] = '\0';
4935 }
4936
4937 snprintf(str, str_len, "%s%s%s", dayzero, monabb, yearzero);
4938 }
4939
4940 if(str[0] == '0'){ /* leading 0 (date|hour) elided or blanked */
4941 if(v)
4942 memmove(str, str + 1, strlen(str));
4943 else
4944 str[0] = ' ';
4945 }
4946 }
4947
4948 /* This is like iSTime, but the format is different */
4949 if(type == iSTime24){
4950 struct date now, last_day;
4951 char dbuf[200], *Ddd, *ampm;
4952 int daydiff;
4953
4954 str[0] = '\0';
4955 rfc822_date(dbuf);
4956 parse_date(dbuf, &now);
4957
4958 /* (if message dated this month or last month...) */
4959 if((d.year == now.year && d.month >= now.month - 6) ||
4960 (d.year == now.year - 1 && d.month == 12 && now.month <= 6)){
4961
4962 daydiff = day_of_year(&now) - day_of_year(&d);
4963
4964 /*
4965 * If msg in end of last year (and we're in first bit of "this"
4966 * year), diff will be backwards; fix up by adding number of days
4967 * in last year (usually 365, but occasionally 366)...
4968 */
4969 if(d.year == now.year - 1){
4970 last_day = d;
4971 last_day.month = 12;
4972 last_day.day = 31;
4973
4974 daydiff += day_of_year(&last_day);
4975 }
4976 }
4977 else
4978 daydiff = 181; /* comfortably out of range (of past week) */
4979
4980 /* Build 2-digit hour and am/pm indicator, used below */
4981
4982 if(d.hour >= 0 && d.hour < 24){
4983 snprintf(hour12, sizeof(hour12), "%02d", (d.hour % 12 == 0) ? 12 : d.hour % 12);
4984 ampm = (d.hour < 12) ? "am" : "pm";
4985 snprintf(hour24, sizeof(hour24), "%02d", d.hour);
4986 }
4987 else{
4988 strncpy(hour12, "??", sizeof(hour12));
4989 hour12[sizeof(hour12)-1] = '\0';
4990 ampm = "__";
4991 strncpy(hour24, "??", sizeof(hour24));
4992 hour24[sizeof(hour24)-1] = '\0';
4993 }
4994
4995 /* Build date/time in str, in format similar to that used by w(1) */
4996
4997 if(daydiff >= 0 && daydiff <= 6){ /* If <1wk ago, "Ddd HH:mm" */
4998
4999 if(d.month >= 1 && d.day >= 1 && d.year >= 0 &&
5000 d.month <= 12 && d.day <= 31 && d.year <= 9999)
5001 Ddd = day_abbrev_locale(day_of_week(&d));
5002 else
5003 Ddd = "???";
5004
5005 if(d.minute >= 0 && d.minute < 60)
5006 snprintf(minzero, sizeof(minzero), "%02d", d.minute);
5007 else{
5008 strncpy(minzero, "??", sizeof(minzero));
5009 minzero[sizeof(minzero)-1] = '\0';
5010 }
5011
5012 snprintf(str, str_len, "%s %s:%s", Ddd, hour24, minzero);
5013 }
5014 else if(daydiff < 180){ /* date is "Mmm dd" */
5015 strncpy(monabb, (d.month >= 1 && d.month <= 12)
5016 ? month_abbrev_locale(d.month) : "???", sizeof(monabb));
5017 monabb[sizeof(monabb)-1] = '\0';
5018
5019 if(d.day >= 1 && d.day <= 31)
5020 snprintf(dayzero, sizeof(dayzero), "%*d", 2, d.day);
5021 else{
5022 strncpy(dayzero, "??", sizeof(dayzero));
5023 dayzero[sizeof(dayzero)-1] = '\0';
5024 }
5025
5026 snprintf(str, str_len, "%s %s", monabb, dayzero);
5027 }
5028 else { /* date is old or future, "dd/Mmm/yy" */
5029 strncpy(monabb, (d.month >= 1 && d.month <= 12)
5030 ? month_abbrev_locale(d.month) : "???", sizeof(monabb));
5031 monabb[sizeof(monabb)-1] = '\0';
5032
5033 if(d.day >= 1 && d.day <= 31)
5034 snprintf(dayzero, sizeof(dayzero), "%02d", d.day);
5035 else{
5036 strncpy(dayzero, "??", sizeof(dayzero));
5037 dayzero[sizeof(dayzero)-1] = '\0';
5038 }
5039
5040 if(d.year >= 0 && d.year <= 9999)
5041 snprintf(yearzero, sizeof(yearzero), "%02d", d.year % 100);
5042 else{
5043 strncpy(yearzero, "??", sizeof(yearzero));
5044 yearzero[sizeof(yearzero)-1] = '\0';
5045 }
5046
5047 snprintf(str, str_len, "%s/%s/%s", dayzero, monabb, yearzero);
5048 }
5049
5050 if(str[0] == '0'){ /* leading 0 (date|hour) elided or blanked */
5051 if(v)
5052 memmove(str, str + 1, strlen(str));
5053 else
5054 str[0] = ' ';
5055 }
5056 }
5057 }
5058
5059
5060 /*
5061 * Format a string representing the keywords into ice.
5062 *
5063 * This needs to be done in UTF-8, which may be tricky since it isn't labelled.
5064 *
5065 * Args idata -- which message?
5066 * kwtype -- keywords or kw initials
5067 * ice -- index cache entry for message
5068 */
5069 void
5070 key_str(INDEXDATA_S *idata, SubjKW kwtype, ICE_S *ice)
5071 {
5072 int firstone = 1;
5073 KEYWORD_S *kw;
5074 char *word;
5075 COLOR_PAIR *color = NULL;
5076 SPEC_COLOR_S *sc = ps_global->kw_colors;
5077 IELEM_S *ielem = NULL;
5078 IFIELD_S *ourifield = NULL;
5079
5080 if(ice && ice->ifield){
5081 /* move to last ifield, the one we're working */
5082 for(ourifield = ice->ifield;
5083 ourifield && ourifield->next;
5084 ourifield = ourifield->next)
5085 ;
5086 }
5087
5088 if(!ourifield)
5089 return;
5090
5091 if(kwtype == KWInit){
5092 for(kw = ps_global->keywords; kw; kw = kw->next){
5093 if(user_flag_is_set(idata->stream, idata->rawno, kw->kw)){
5094 word = (kw->nick && kw->nick[0]) ? kw->nick :
5095 (kw->kw && kw->kw[0]) ? kw->kw : "";
5096
5097 /*
5098 * Pick off the first initial. Since word is UTF-8 it may
5099 * take more than one byte for the first initial.
5100 */
5101
5102 if(word && word[0]){
5103 UCS ucs;
5104 unsigned long remaining_octets;
5105 unsigned char *inputp;
5106
5107 remaining_octets = strlen(word);
5108 inputp = (unsigned char *) word;
5109 ucs = (UCS) utf8_get(&inputp, &remaining_octets);
5110 if(!(ucs & U8G_ERROR || ucs == UBOGON)){
5111 ielem = new_ielem(&ourifield->ielem);
5112 ielem->freedata = 1;
5113 ielem->datalen = (unsigned) (inputp - (unsigned char *) word);
5114 ielem->data = (char *) fs_get((ielem->datalen + 1) * sizeof(char));
5115 strncpy(ielem->data, word, ielem->datalen);
5116 ielem->data[ielem->datalen] = '\0';
5117
5118 if(pico_usingcolor()
5119 && ((kw->nick && kw->nick[0]
5120 && (color=hdr_color(kw->nick,NULL,sc)))
5121 || (kw->kw && kw->kw[0]
5122 && (color=hdr_color(kw->kw,NULL,sc))))){
5123 ielem->color = color;
5124 color = NULL;
5125 }
5126 }
5127 }
5128
5129 if(color)
5130 free_color_pair(&color);
5131 }
5132 }
5133 }
5134 else if(kwtype == KW){
5135 for(kw = ps_global->keywords; kw; kw = kw->next){
5136 if(user_flag_is_set(idata->stream, idata->rawno, kw->kw)){
5137
5138 if(!firstone){
5139 ielem = new_ielem(&ourifield->ielem);
5140 ielem->freedata = 1;
5141 ielem->data = cpystr(" ");
5142 ielem->datalen = 1;
5143 }
5144
5145 firstone = 0;
5146
5147 word = (kw->nick && kw->nick[0]) ? kw->nick :
5148 (kw->kw && kw->kw[0]) ? kw->kw : "";
5149
5150 if(word[0]){
5151 ielem = new_ielem(&ourifield->ielem);
5152 ielem->freedata = 1;
5153 ielem->data = cpystr(word);
5154 ielem->datalen = strlen(word);
5155
5156 if(pico_usingcolor()
5157 && ((kw->nick && kw->nick[0]
5158 && (color=hdr_color(kw->nick,NULL,sc)))
5159 || (kw->kw && kw->kw[0]
5160 && (color=hdr_color(kw->kw,NULL,sc))))){
5161 ielem->color = color;
5162 color = NULL;
5163 }
5164 }
5165
5166 if(color)
5167 free_color_pair(&color);
5168 }
5169 }
5170 }
5171
5172 /*
5173 * If we're coloring some of the fields then add a dummy field
5174 * at the end that can soak up the rest of the space after the last
5175 * colored keyword. Otherwise, the last one's color will extend to
5176 * the end of the field.
5177 */
5178 if(pico_usingcolor()){
5179 ielem = new_ielem(&ourifield->ielem);
5180 ielem->freedata = 1;
5181 ielem->data = cpystr(" ");
5182 ielem->datalen = 1;
5183 }
5184
5185 ourifield->leftadj = 1;
5186 set_ielem_widths_in_field(ourifield);
5187 }
5188
5189
5190 void
5191 prio_str(INDEXDATA_S *idata, IndexColType ctype, ICE_S *ice)
5192 {
5193 IFIELD_S *ourifield = NULL;
5194 IELEM_S *ielem = NULL;
5195 char *hdrval;
5196 PRIORITY_S *p;
5197 int v;
5198
5199 if(ice && ice->ifield){
5200 /* move to last ifield, the one we're working */
5201 for(ourifield = ice->ifield;
5202 ourifield && ourifield->next;
5203 ourifield = ourifield->next)
5204 ;
5205 }
5206
5207 if(!ourifield)
5208 return;
5209
5210 hdrval = fetch_header(idata, PRIORITYNAME);
5211
5212 if(hdrval && hdrval[0] && isdigit(hdrval[0])){
5213 v = atoi(hdrval);
5214 if(v >= 1 && v <= 5 && v != 3){
5215
5216 ielem = new_ielem(&ourifield->ielem);
5217 ielem->freedata = 1;
5218
5219 switch(ctype){
5220 case iPrio:
5221 ielem->data = (char *) fs_get(2 * sizeof(char));
5222 ielem->data[0] = hdrval[0];
5223 ielem->data[1] = '\0';
5224 break;
5225
5226 case iPrioAlpha:
5227 for(p = priorities; p && p->desc; p++)
5228 if(p->val == v)
5229 break;
5230
5231 if(p && p->desc)
5232 ielem->data = cpystr(p->desc);
5233
5234 break;
5235
5236 case iPrioBang:
5237 ielem->data = (char *) fs_get(2 * sizeof(char));
5238 ielem->data[0] = '\0';
5239 switch(v){
5240 case 1: case 2:
5241 ielem->data[0] = '!';
5242 break;
5243
5244 case 4: case 5:
5245 /*
5246 * We could put a Unicode downarrow in here but
5247 * we have no way of knowing if the user's font
5248 * will have it (I think).
5249 */
5250 ielem->data[0] = 'v';
5251 break;
5252 }
5253
5254 ielem->data[1] = '\0';
5255
5256 break;
5257
5258 default:
5259 alpine_panic("Unhandled case in prio_str");
5260 break;
5261 }
5262
5263 if(!ielem->data)
5264 ielem->data = cpystr("");
5265
5266 if(ielem && ielem->data)
5267 ielem->datalen = strlen(ielem->data);
5268
5269 if((v == 1 || v == 2) && pico_usingcolor()
5270 && ps_global->VAR_IND_HIPRI_FORE_COLOR
5271 && ps_global->VAR_IND_HIPRI_BACK_COLOR){
5272 ielem->type = eTypeCol;
5273 ielem->freecolor = 1;
5274 ielem->color = new_color_pair(ps_global->VAR_IND_HIPRI_FORE_COLOR, ps_global->VAR_IND_HIPRI_BACK_COLOR);
5275 }
5276 else if((v == 4 || v == 5) && pico_usingcolor()
5277 && ps_global->VAR_IND_LOPRI_FORE_COLOR
5278 && ps_global->VAR_IND_LOPRI_BACK_COLOR){
5279 ielem->type = eTypeCol;
5280 ielem->freecolor = 1;
5281 ielem->color = new_color_pair(ps_global->VAR_IND_LOPRI_FORE_COLOR, ps_global->VAR_IND_LOPRI_BACK_COLOR);
5282 }
5283
5284 ourifield->leftadj = 1;
5285 set_ielem_widths_in_field(ourifield);
5286 }
5287
5288 fs_give((void **) &hdrval);
5289 }
5290 }
5291
5292
5293 void
5294 header_str(INDEXDATA_S *idata, HEADER_TOK_S *hdrtok, ICE_S *ice)
5295 {
5296 IFIELD_S *ourifield = NULL;
5297 IELEM_S *ielem = NULL;
5298 char *fieldval = NULL;
5299
5300 if(ice && ice->ifield){
5301 /* move to last ifield, the one we're working */
5302 for(ourifield = ice->ifield;
5303 ourifield && ourifield->next;
5304 ourifield = ourifield->next)
5305 ;
5306 }
5307
5308 if(!ourifield)
5309 return;
5310
5311 fieldval = get_fieldval(idata, hdrtok);
5312
5313 if(fieldval){
5314 ielem = new_ielem(&ourifield->ielem);
5315 ielem->freedata = 1;
5316 ielem->data = fieldval;
5317 ielem->datalen = strlen(fieldval);
5318 fieldval = NULL;
5319 ourifield->leftadj = (hdrtok->adjustment == Left) ? 1 : 0;
5320 }
5321
5322 set_ielem_widths_in_field(ourifield);
5323 }
5324
5325
5326 char *
5327 get_fieldval(INDEXDATA_S *idata, HEADER_TOK_S *hdrtok)
5328 {
5329 int sep, fieldnum;
5330 char *hdrval = NULL, *testval;
5331 char *fieldval = NULL, *firstval;
5332 char *retfieldval = NULL;
5333
5334 if(!hdrtok)
5335 return(retfieldval);
5336
5337 if(hdrtok && hdrtok->hdrname && hdrtok->hdrname[0])
5338 hdrval = fetch_header(idata, hdrtok ? hdrtok->hdrname : "");
5339
5340 /* find start of fieldnum'th field */
5341 fieldval = hdrval;
5342 for(fieldnum = MAX(hdrtok->fieldnum-1, 0);
5343 fieldnum > 0 && fieldval && *fieldval; fieldnum--){
5344
5345 firstval = NULL;
5346 for(sep = 0; sep < hdrtok->fieldsepcnt; sep++){
5347 testval = hdrtok->fieldseps ? strchr(fieldval, hdrtok->fieldseps[sep]) : NULL;
5348 if(testval && (!firstval || testval < firstval))
5349 firstval = testval;
5350 }
5351
5352 fieldval = firstval;
5353 if(fieldval && *fieldval)
5354 fieldval++;
5355 }
5356
5357 /* tie off end of field */
5358 if(fieldval && *fieldval && hdrtok->fieldnum > 0){
5359 firstval = NULL;
5360 for(sep = 0; sep < hdrtok->fieldsepcnt; sep++){
5361 testval = hdrtok->fieldseps ? strchr(fieldval, hdrtok->fieldseps[sep]) : NULL;
5362 if(testval && (!firstval || testval < firstval))
5363 firstval = testval;
5364 }
5365
5366 if(firstval)
5367 *firstval = '\0';
5368 }
5369
5370 if(!fieldval)
5371 fieldval = "";
5372
5373 retfieldval = cpystr(fieldval);
5374
5375 if(hdrval)
5376 fs_give((void **) &hdrval);
5377
5378 return(retfieldval);
5379 }
5380
5381
5382 long
5383 scorevalfrommsg(MAILSTREAM *stream, MsgNo rawno, HEADER_TOK_S *hdrtok, int no_fetch)
5384 {
5385 INDEXDATA_S idata;
5386 MESSAGECACHE *mc;
5387 char *fieldval = NULL;
5388 long retval = 0L;
5389
5390 memset(&idata, 0, sizeof(INDEXDATA_S));
5391 idata.stream = stream;
5392 idata.no_fetch = no_fetch;
5393 idata.msgno = mn_raw2m(sp_msgmap(stream), rawno);
5394 idata.rawno = rawno;
5395 if(stream && idata.rawno > 0L && idata.rawno <= stream->nmsgs
5396 && (mc = mail_elt(stream, idata.rawno))){
5397 idata.size = mc->rfc822_size;
5398 index_data_env(&idata, pine_mail_fetchenvelope(stream,idata.rawno));
5399 }
5400 else
5401 idata.bogus = 2;
5402
5403 fieldval = get_fieldval(&idata, hdrtok);
5404
5405 if(fieldval){
5406 retval = atol(fieldval);
5407 fs_give((void **) &fieldval);
5408 }
5409
5410 return(retval);
5411 }
5412
5413 /*
5414 * Put a string representing the subject into str. Idata tells us which
5415 * message we are referring to.
5416 *
5417 * This means we should ensure that all data ends up being UTF-8 data.
5418 * That covers the data in ice ielems and str.
5419 *
5420 * Args idata -- which message?
5421 * str -- destination buffer
5422 * strsize -- size of str buffer
5423 * kwtype -- prepend keywords or kw initials before the subject
5424 * opening -- add first text from body of message if there's room
5425 * shorten -- if on, shorten the subject.
5426 * ice -- index cache entry for message
5427 */
5428 void
5429 subj_str(INDEXDATA_S *idata, char *str, size_t strsize, SubjKW kwtype, int opening, int shorten, ICE_S *ice)
5430 {
5431 char *subject, *origsubj, *origstr, *rawsubj, *sptr = NULL;
5432 char *p, *border, *q = NULL, *free_subj = NULL;
5433 char *sp;
5434 size_t len;
5435 int width = -1;
5436 int depth = 0, mult = 2;
5437 int save;
5438 int do_subj = 0, truncated_tree = 0;
5439 PINETHRD_S *thd, *thdorig;
5440 IELEM_S *ielem = NULL, *subjielem = NULL;
5441 IFIELD_S *ourifield = NULL;
5442
5443 if(strsize <= 0)
5444 return;
5445
5446 /*
5447 * If we need the data at the start of the message and we're in
5448 * a c-client callback, defer the data lookup until later.
5449 */
5450 if(opening && idata->no_fetch){
5451 idata->bogus = 1;
5452 return;
5453 }
5454
5455 if(ice && ice->ifield){
5456 /* move to last ifield, the one we're working on */
5457 for(ourifield = ice->ifield;
5458 ourifield && ourifield->next;
5459 ourifield = ourifield->next)
5460 ;
5461 }
5462
5463 str[0] = str[strsize-1] = '\0';
5464 origstr = str;
5465 rawsubj = fetch_subject(idata);
5466 if(!rawsubj)
5467 rawsubj = "";
5468
5469 /*
5470 * Before we do anything else, decode the character set in the subject and
5471 * work with the result.
5472 */
5473 sp = (char *) rfc1522_decode_to_utf8((unsigned char *) tmp_20k_buf,
5474 SIZEOF_20KBUF, rawsubj);
5475
5476 len = strlen(sp);
5477 len += 100; /* for possible charset, escaped characters */
5478 origsubj = fs_get((len+1) * sizeof(unsigned char));
5479 origsubj[0] = '\0';
5480
5481 iutf8ncpy(origsubj, sp, len);
5482
5483 origsubj[len] = '\0';
5484 replace_tabs_by_space(origsubj);
5485 removing_trailing_white_space(origsubj);
5486
5487 /*
5488 * origsubj is the original subject but it has been decoded. We need
5489 * to free it at the end of this routine.
5490 */
5491
5492 if(shorten)
5493 shorten_subject(origsubj);
5494
5495 /*
5496 * prepend_keyword will put the keyword stuff before the subject
5497 * and split the subject up into its colored parts in subjielem.
5498 * Subjielem is a local ielem which will have to be fit into the
5499 * real ifield->ielem later. The print_format strings in subjielem will
5500 * not be filled in by prepend_keyword because of the fact that we
5501 * may have to adjust things for threading below.
5502 * We use subjielem in case we want to insert some threading information
5503 * at the front of the subject.
5504 */
5505 if(kwtype == KW || kwtype == KWInit){
5506 subject = prepend_keyword_subject(idata->stream, idata->rawno,
5507 origsubj, kwtype,
5508 ourifield ? &subjielem : NULL,
5509 ps_global->VAR_KW_BRACES);
5510 free_subj = subject;
5511 }
5512 else{
5513 subject = origsubj;
5514 if(ourifield){
5515 subjielem = new_ielem(&subjielem);
5516 subjielem->type = eTypeCol;
5517 subjielem->freedata = 1;
5518 subjielem->data = cpystr(subject);
5519 subjielem->datalen = strlen(subject);
5520 if(pico_usingcolor()
5521 && ps_global->VAR_IND_SUBJ_FORE_COLOR
5522 && ps_global->VAR_IND_SUBJ_BACK_COLOR){
5523 subjielem->freecolor = 1;
5524 subjielem->color = new_color_pair(ps_global->VAR_IND_SUBJ_FORE_COLOR, ps_global->VAR_IND_SUBJ_BACK_COLOR);
5525 }
5526 }
5527 }
5528
5529 /*
5530 * This space is here so that if the subject does
5531 * not extend all the way to the end of the field then
5532 * we'll switch the color back and paint the rest of the
5533 * field in the Normal color or the index line color.
5534 */
5535 if(!opening){
5536 ielem = new_ielem(&subjielem);
5537 ielem->freedata = 1;
5538 ielem->data = cpystr(" ");
5539 ielem->datalen = 1;
5540 }
5541
5542 if(!subject)
5543 subject = "";
5544
5545 if(THREADING()
5546 && (ps_global->thread_disp_style == THREAD_STRUCT
5547 || ps_global->thread_disp_style == THREAD_MUTTLIKE
5548 || ps_global->thread_disp_style == THREAD_INDENT_SUBJ1
5549 || ps_global->thread_disp_style == THREAD_INDENT_SUBJ2)){
5550
5551 /*
5552 * Why do we want to truncate the subject and from strs?
5553 * It's so we can put the [5] thread count things in below when
5554 * we are threading and the thread structure runs off the right
5555 * hand edge of the screen. This routine doesn't know that it
5556 * is running off the edge unless it knows the actual width
5557 * that we have to draw in.
5558 */
5559 if(pith_opt_truncate_sfstr
5560 && (*pith_opt_truncate_sfstr)()
5561 && ourifield
5562 && ourifield->width > 0)
5563 width = ourifield->width;
5564
5565 if(width < 0)
5566 width = strsize-1;
5567
5568 width = MIN(width, strsize-1);
5569
5570 /*
5571 * We're counting on the fact that this initial part of the
5572 * string is ascii and we have one octet per character and
5573 * characters are width 1 on the screen.
5574 */
5575 border = str + width;
5576
5577 thdorig = thd = fetch_thread(idata->stream, idata->rawno);
5578
5579 if(pith_opt_condense_thread_cue)
5580 width = (*pith_opt_condense_thread_cue)(thd, ice, &str, &strsize, width,
5581 thd && thd->next
5582 && get_lflag(idata->stream,
5583 NULL,idata->rawno,
5584 MN_COLL));
5585
5586 /*
5587 * width is < available strsize and
5588 * border points to something less than or equal
5589 * to the end of the buffer.
5590 */
5591
5592 sptr = str;
5593
5594 if(thd)
5595 while(thd->parent &&
5596 (thd = fetch_thread(idata->stream, thd->parent)))
5597 depth++;
5598
5599 if(depth > 0){
5600 if(ps_global->thread_disp_style == THREAD_INDENT_SUBJ1)
5601 mult = 1;
5602
5603 sptr += (mult*depth);
5604 for(thd = thdorig, p = str + mult*depth - mult;
5605 thd && thd->parent && p >= str;
5606 thd = fetch_thread(idata->stream, thd->parent), p -= mult){
5607 if(p + mult >= border && !q){
5608 if(width >= 4 && depth < 100){
5609 snprintf(str, width+1, "%*s[%2d]", width-4, "", depth);
5610 q = str + width-4;
5611 }
5612 else if(width >= 5 && depth < 1000){
5613 snprintf(str, width+1, "%*s[%3d]", width-5, "", depth);
5614 q = str + width-5;
5615 }
5616 else{
5617 snprintf(str, width+1, "%s", repeat_char(width, '.'));
5618 q = str;
5619 }
5620
5621 border = q;
5622 truncated_tree++;
5623 }
5624
5625 if(p < border){
5626 p[0] = ' ';
5627 if(p + 1 < border)
5628 p[1] = ' ';
5629
5630 if(ps_global->thread_disp_style == THREAD_STRUCT
5631 || ps_global->thread_disp_style == THREAD_MUTTLIKE){
5632 /*
5633 * WARNING!
5634 * There is an unwarranted assumption here that VAR_THREAD_LASTREPLY_CHAR[0]
5635 * is ascii.
5636 */
5637 if(thd == thdorig && !thd->branch)
5638 p[0] = ps_global->VAR_THREAD_LASTREPLY_CHAR[0];
5639 else if(thd == thdorig || thd->branch)
5640 p[0] = '|';
5641
5642 if(p + 1 < border && thd == thdorig)
5643 p[1] = '-';
5644 }
5645 }
5646 }
5647 }
5648
5649 if(sptr && !truncated_tree){
5650 /*
5651 * Look to see if the subject is the same as the previous
5652 * message in the thread, if any. If it is the same, don't
5653 * reprint the subject.
5654 *
5655 * Note that when we're prepending keywords to the subject,
5656 * and the user changes a keyword, we do invalidate
5657 * the index cache for that message but we don't go to the
5658 * trouble of invalidating the index cache for the the child
5659 * of that node in the thread, so the MUTT subject line
5660 * display for the child may be wrong. That is, it may show
5661 * it is the same as this subject even though it no longer
5662 * is, or vice versa.
5663 */
5664 if(ps_global->thread_disp_style == THREAD_MUTTLIKE){
5665 if(depth == 0)
5666 do_subj++;
5667 else{
5668 if(thdorig->parent &&
5669 (thd = fetch_thread(idata->stream, thdorig->parent))
5670 && thd->rawno){
5671 char *this_orig = NULL,
5672 *prev_orig = NULL,
5673 *free_prev_orig = NULL,
5674 *this_prep = NULL, /* includes prepend */
5675 *prev_prep = NULL;
5676 ENVELOPE *env;
5677 mailcache_t mc;
5678 SORTCACHE *sc = NULL;
5679
5680 /* get the stripped subject of previous message */
5681 mc = (mailcache_t) mail_parameters(NIL, GET_CACHE, NIL);
5682 if(mc)
5683 sc = (*mc)(idata->stream, thd->rawno, CH_SORTCACHE);
5684
5685 if(sc && sc->subject)
5686 prev_orig = sc->subject;
5687 else{
5688 char *stripthis;
5689
5690 env = pine_mail_fetchenvelope(idata->stream,
5691 thd->rawno);
5692 stripthis = (env && env->subject)
5693 ? env->subject : "";
5694
5695 mail_strip_subject(stripthis, &prev_orig);
5696
5697 free_prev_orig = prev_orig;
5698 }
5699
5700 mail_strip_subject(rawsubj, &this_orig);
5701
5702 if(kwtype == KW || kwtype == KWInit){
5703 prev_prep = prepend_keyword_subject(idata->stream,
5704 thd->rawno,
5705 prev_orig,
5706 kwtype, NULL,
5707 ps_global->VAR_KW_BRACES);
5708
5709 this_prep = prepend_keyword_subject(idata->stream,
5710 idata->rawno,
5711 this_orig,
5712 kwtype, NULL,
5713 ps_global->VAR_KW_BRACES);
5714
5715 if((this_prep || prev_prep)
5716 && ((this_prep && !prev_prep)
5717 || (prev_prep && !this_prep)
5718 || strucmp(this_prep, prev_prep)))
5719 do_subj++;
5720 }
5721 else{
5722 if((this_orig || prev_orig)
5723 && ((this_orig && !prev_orig)
5724 || (prev_orig && !this_orig)
5725 || strucmp(this_orig, prev_orig)))
5726 do_subj++;
5727 }
5728
5729 /*
5730 * If some of the thread is zoomed out of view, we
5731 * want to display the subject of the first one that
5732 * is in view. If any of the parents or grandparents
5733 * etc of this message are visible, then we don't
5734 * need to worry about it. If all of the parents have
5735 * been zoomed away, then this is the first one.
5736 *
5737 * When you're looking at a particular case where
5738 * some of the messages of a thread are selected it
5739 * seems like we should look at not only our
5740 * direct parents, but the siblings of the parent
5741 * too. But that's not really correct, because those
5742 * siblings are basically the starts of different
5743 * branches, separate from our branch. They could
5744 * have their own subjects, for example. This will
5745 * give us cases where it looks like we are showing
5746 * the subject too much, but it will be correct!
5747 *
5748 * In zoom_index() we clear_index_cache_ent for
5749 * some lines which have subjects which might become
5750 * visible when we zoom, and also in set_lflags
5751 * where we might change subjects by unselecting
5752 * something when zoomed.
5753 */
5754 if(!do_subj){
5755 while(thd){
5756 if(!msgline_hidden(idata->stream,
5757 sp_msgmap(idata->stream),
5758 mn_raw2m(sp_msgmap(idata->stream),
5759 (long) thd->rawno),
5760 0)){
5761 break; /* found a visible parent */
5762 }
5763
5764 if(thd && thd->parent)
5765 thd = fetch_thread(idata->stream,thd->parent);
5766 else
5767 thd = NULL;
5768 }
5769
5770 if(!thd) /* none were visible */
5771 do_subj++;
5772 }
5773
5774 if(this_orig)
5775 fs_give((void **) &this_orig);
5776
5777 if(this_prep)
5778 fs_give((void **) &this_prep);
5779
5780 if(free_prev_orig)
5781 fs_give((void **) &free_prev_orig);
5782
5783 if(prev_prep)
5784 fs_give((void **) &prev_prep);
5785 }
5786 else
5787 do_subj++;
5788 }
5789 }
5790 else
5791 do_subj++;
5792
5793 if(do_subj){
5794 /*
5795 * We don't need to worry about truncating to width
5796 * here. If we go over the right hand edge it will be
5797 * truncated.
5798 */
5799 strsize -= (sptr - str);
5800
5801 strncpy(sptr, subject, strsize-1);
5802 sptr[strsize-1] = '\0';
5803 }
5804 else if(ps_global->thread_disp_style == THREAD_MUTTLIKE){
5805 strsize -= (sptr - str);
5806
5807 if(strsize > 0){
5808 sptr[0] = '>';
5809 sptr++;
5810 }
5811
5812 /*
5813 * We decided we don't need the subject so we'd better
5814 * eliminate subjielem.
5815 */
5816 free_ielem(&subjielem);
5817 }
5818 }
5819 else
5820 free_ielem(&subjielem); /* no room for actual subject */
5821
5822 if(ourifield && sptr && sptr > origstr){
5823 ielem = new_ielem(&ourifield->ielem);
5824 ielem->type = eThreadInfo;
5825 ielem->freedata = 1;
5826 save = *sptr;
5827 *sptr = '\0';
5828 ielem->data = cpystr(origstr);
5829 ielem->datalen = strlen(origstr);
5830 *sptr = save;
5831 }
5832 }
5833 else{
5834 /*
5835 * Not much to do for the non-threading case. Just copy the
5836 * subject we have so far into str and truncate it.
5837 */
5838 strncpy(str, subject, strsize-1);
5839 str[strsize-1] = '\0';
5840 }
5841
5842 if(ourifield){
5843 /*
5844 * We need to add subjielem to the end of the ourifield->ielem list.
5845 */
5846 if(subjielem){
5847 if(ourifield->ielem){
5848 for(ielem = ourifield->ielem;
5849 ielem && ielem->next; ielem = ielem->next)
5850 ;
5851
5852 ielem->next = subjielem;
5853 }
5854 else
5855 ourifield->ielem = subjielem;
5856 }
5857
5858 ourifield->leftadj = 1;
5859 }
5860
5861 if(opening && ourifield){
5862 IELEM_S *ftielem = NULL;
5863 size_t len;
5864 char *first_text;
5865
5866 first_text = fetch_firsttext(idata, 0);
5867
5868 if(first_text){
5869 char sep[200];
5870 int seplen;
5871
5872 strncpy(sep, ps_global->VAR_OPENING_SEP ? ps_global->VAR_OPENING_SEP : " - ",
5873 sizeof(sep));
5874 sep[sizeof(sep)-1] = '\0';
5875 removing_double_quotes(sep);
5876 seplen = strlen(sep);
5877
5878 ftielem = new_ielem(&ftielem);
5879 ftielem->type = eTypeCol;
5880 ftielem->freedata = 1;
5881 len = strlen(first_text) + seplen;
5882 ftielem->data = (char *) fs_get((len + 1) * sizeof(char));
5883
5884 strncpy(ftielem->data, sep, seplen);
5885 strncpy(ftielem->data+seplen, first_text, len+1-seplen);
5886 ftielem->data[len] = '\0';
5887
5888 ftielem->datalen = strlen(ftielem->data);
5889
5890 if(ftielem){
5891 if(pico_usingcolor()
5892 && ps_global->VAR_IND_OP_FORE_COLOR
5893 && ps_global->VAR_IND_OP_BACK_COLOR){
5894 ftielem->freecolor = 1;
5895 ftielem->color = new_color_pair(ps_global->VAR_IND_OP_FORE_COLOR, ps_global->VAR_IND_OP_BACK_COLOR);
5896
5897 /*
5898 * This space is here so that if the opening text does
5899 * not extend all the way to the end of the field then
5900 * we'll switch the color back and paint the rest of the
5901 * field in the Normal color or the index line color.
5902 */
5903 ielem = new_ielem(&ftielem);
5904 ielem->freedata = 1;
5905 ielem->data = cpystr(" ");
5906 ielem->datalen = 1;
5907 }
5908
5909 if(ourifield->ielem){
5910 for(ielem = ourifield->ielem;
5911 ielem && ielem->next; ielem = ielem->next)
5912 ;
5913
5914 ielem->next = ftielem;
5915 }
5916 else
5917 ourifield->ielem = ftielem;
5918 }
5919
5920 ourifield->leftadj = 1;
5921 }
5922 }
5923
5924 if(ourifield)
5925 set_ielem_widths_in_field(ourifield);
5926
5927 if(origsubj)
5928 fs_give((void **) &origsubj);
5929
5930 if(free_subj)
5931 fs_give((void **) &free_subj);
5932 }
5933
5934
5935 /*
5936 * Returns an allocated string which is the passed in subject with a
5937 * list of keywords prepended.
5938 *
5939 * If kwtype == KW you will end up with
5940 *
5941 * {keyword1 keyword2} subject
5942 *
5943 * (actually, keyword nicknames will be used instead of the actual keywords
5944 * in the case that the user defined nicknames)
5945 *
5946 * If kwtype == KWInit you get
5947 *
5948 * {AB} subject
5949 *
5950 * where A is the first letter of the first keyword and B is the first letter
5951 * of the second defined keyword. No space between them. There could be more
5952 * than two.
5953 *
5954 * If an ielemp is passed in it will be filled out with the data and colors
5955 * of the pieces of the subject but the print_format strings will not
5956 * be set.
5957 */
5958 char *
5959 prepend_keyword_subject(MAILSTREAM *stream, long int rawno, char *subject,
5960 SubjKW kwtype, IELEM_S **ielemp, char *braces)
5961 {
5962 char *p, *next_piece, *retsubj = NULL, *str;
5963 char *left_brace = NULL, *right_brace = NULL;
5964 size_t len;
5965 int some_set = 0, save;
5966 IELEM_S *ielem;
5967 KEYWORD_S *kw;
5968 COLOR_PAIR *color = NULL;
5969 SPEC_COLOR_S *sc = ps_global->kw_colors;
5970
5971 if(!subject)
5972 subject = "";
5973
5974 if(braces && *braces)
5975 get_pair(braces, &left_brace, &right_brace, 1, 0);
5976
5977 len = (left_brace ? strlen(left_brace) : 0) +
5978 (right_brace ? strlen(right_brace) : 0);
5979
5980 if(stream && rawno >= 0L && rawno <= stream->nmsgs){
5981 for(kw = ps_global->keywords; kw; kw = kw->next)
5982 if(user_flag_is_set(stream, rawno, kw->kw)){
5983 if(kwtype == KW){
5984 if(some_set)
5985 len++; /* space between keywords */
5986
5987 str = kw->nick ? kw->nick : kw->kw ? kw->kw : "";
5988 len += strlen(str);
5989 }
5990 else if(kwtype == KWInit){
5991 str = kw->nick ? kw->nick : kw->kw ? kw->kw : "";
5992 /* interested in only the first UTF-8 initial */
5993 if(str && str[0]){
5994 UCS ucs;
5995 unsigned long remaining_octets;
5996 unsigned char *inputp;
5997
5998 remaining_octets = strlen(str);
5999 inputp = (unsigned char *) str;
6000 ucs = (UCS) utf8_get(&inputp, &remaining_octets);
6001 if(!(ucs & U8G_ERROR || ucs == UBOGON)){
6002 len += (unsigned) (inputp - (unsigned char *) str);
6003 }
6004 }
6005 }
6006
6007 some_set++;
6008 }
6009 }
6010
6011 if((kwtype == KW || kwtype == KWInit) && some_set){
6012 len += strlen(subject); /* subject is already UTF-8 if needed */
6013 retsubj = (char *) fs_get((len + 1) * sizeof(*retsubj));
6014 memset(retsubj, 0, (len + 1) * sizeof(*retsubj));
6015 next_piece = p = retsubj;
6016
6017 for(kw = ps_global->keywords; kw; kw = kw->next){
6018 if(user_flag_is_set(stream, rawno, kw->kw)){
6019 if(p == retsubj){
6020 if(left_brace && len > 0)
6021 sstrncpy(&p, left_brace, len);
6022 }
6023 else if(kwtype == KW)
6024 *p++ = ' ';
6025
6026 if(ielemp && p > next_piece){
6027 save = *p;
6028 *p = '\0';
6029 ielem = new_ielem(ielemp);
6030 ielem->freedata = 1;
6031 ielem->data = cpystr(next_piece);
6032 ielem->datalen = strlen(next_piece);
6033 *p = save;
6034 next_piece = p;
6035 }
6036
6037 str = kw->nick ? kw->nick : kw->kw ? kw->kw : "";
6038
6039 if(kwtype == KWInit){
6040 if(str && str[0]){
6041 UCS ucs;
6042 unsigned long remaining_octets;
6043 unsigned char *inputp;
6044
6045 remaining_octets = strlen(str);
6046 inputp = (unsigned char *) str;
6047 ucs = (UCS) utf8_get(&inputp, &remaining_octets);
6048 if(!(ucs & U8G_ERROR || ucs == UBOGON)){
6049 if(len-(p-retsubj) > 0){
6050 sstrncpy(&p, str, MIN(inputp - (unsigned char *) str,len-(p-retsubj)));
6051 if(p > next_piece && ielemp && pico_usingcolor()
6052 && ((kw->nick && kw->nick[0]
6053 && (color=hdr_color(kw->nick,NULL,sc)))
6054 || (kw->kw && kw->kw[0]
6055 && (color=hdr_color(kw->kw,NULL,sc))))){
6056 ielem = new_ielem(ielemp);
6057 ielem->freedata = 1;
6058 save = *p;
6059 *p = '\0';
6060 ielem->data = cpystr(next_piece);
6061 ielem->datalen = strlen(next_piece);
6062 ielem->color = color;
6063 color = NULL;
6064 *p = save;
6065 next_piece = p;
6066 }
6067 }
6068 }
6069
6070 if(color)
6071 free_color_pair(&color);
6072 }
6073 }
6074 else{
6075 if(len-(p-retsubj) > 0)
6076 sstrncpy(&p, str, len-(p-retsubj));
6077
6078 if(p > next_piece && ielemp && pico_usingcolor()
6079 && ((kw->nick && kw->nick[0]
6080 && (color=hdr_color(kw->nick,NULL,sc)))
6081 || (kw->kw && kw->kw[0]
6082 && (color=hdr_color(kw->kw,NULL,sc))))){
6083 ielem = new_ielem(ielemp);
6084 ielem->freedata = 1;
6085 save = *p;
6086 *p = '\0';
6087 ielem->data = cpystr(next_piece);
6088 ielem->datalen = strlen(next_piece);
6089 ielem->color = color;
6090 color = NULL;
6091 *p = save;
6092 next_piece = p;
6093 }
6094
6095 if(color)
6096 free_color_pair(&color);
6097 }
6098 }
6099 }
6100
6101 if(len-(p-retsubj) > 0 && right_brace)
6102 sstrncpy(&p, right_brace, len-(p-retsubj));
6103
6104 if(ielemp && p > next_piece){
6105 save = *p;
6106 *p = '\0';
6107 ielem = new_ielem(ielemp);
6108 ielem->freedata = 1;
6109 ielem->data = cpystr(next_piece);
6110 ielem->datalen = strlen(next_piece);
6111 *p = save;
6112 next_piece = p;
6113 }
6114
6115 if(len-(p-retsubj) > 0 && subject)
6116 sstrncpy(&p, subject, len-(p-retsubj));
6117
6118 if(ielemp && p > next_piece){
6119 save = *p;
6120 *p = '\0';
6121 ielem = new_ielem(ielemp);
6122 ielem->type = eTypeCol;
6123 ielem->freedata = 1;
6124 ielem->data = cpystr(next_piece);
6125 ielem->datalen = strlen(next_piece);
6126 *p = save;
6127 next_piece = p;
6128 if(pico_usingcolor()
6129 && ps_global->VAR_IND_SUBJ_FORE_COLOR
6130 && ps_global->VAR_IND_SUBJ_BACK_COLOR){
6131 ielem->freecolor = 1;
6132 ielem->color = new_color_pair(ps_global->VAR_IND_SUBJ_FORE_COLOR, ps_global->VAR_IND_SUBJ_BACK_COLOR);
6133 }
6134 }
6135
6136 retsubj[len] = '\0'; /* just making sure */
6137 }
6138 else{
6139 if(ielemp){
6140 ielem = new_ielem(ielemp);
6141 ielem->type = eTypeCol;
6142 ielem->freedata = 1;
6143 ielem->data = cpystr(subject);
6144 ielem->datalen = strlen(subject);
6145 if(pico_usingcolor()
6146 && ps_global->VAR_IND_SUBJ_FORE_COLOR
6147 && ps_global->VAR_IND_SUBJ_BACK_COLOR){
6148 ielem->freecolor = 1;
6149 ielem->color = new_color_pair(ps_global->VAR_IND_SUBJ_FORE_COLOR, ps_global->VAR_IND_SUBJ_BACK_COLOR);
6150 }
6151 }
6152
6153 retsubj = cpystr(subject);
6154 }
6155
6156 if(braces){
6157 if(left_brace)
6158 fs_give((void **) &left_brace);
6159
6160 if(right_brace)
6161 fs_give((void **) &right_brace);
6162 }
6163
6164 return(retsubj);
6165 }
6166
6167
6168 /*
6169 * This means we should ensure that all data ends up being UTF-8 data.
6170 * That covers the data in ice ielems and str.
6171 */
6172 void
6173 from_str(IndexColType ctype, INDEXDATA_S *idata, char *str, size_t strsize, ICE_S *ice)
6174 {
6175 char *field, *newsgroups, *border, *p, *fptr = NULL, *q = NULL;
6176 ADDRESS *addr;
6177 int width = -1;
6178 int depth = 0, mult = 2;
6179 PINETHRD_S *thd, *thdorig;
6180
6181 if(THREADING()
6182 && (ps_global->thread_disp_style == THREAD_INDENT_FROM1
6183 || ps_global->thread_disp_style == THREAD_INDENT_FROM2
6184 || ps_global->thread_disp_style == THREAD_STRUCT_FROM)){
6185
6186 if(pith_opt_truncate_sfstr && (*pith_opt_truncate_sfstr)()){
6187 IFIELD_S *ourifield = NULL;
6188
6189 if(ice && ice->ifield){
6190 /* move to last ifield, the one we're working on */
6191 for(ourifield = ice->ifield;
6192 ourifield && ourifield->next;
6193 ourifield = ourifield->next)
6194 ;
6195 }
6196
6197 if(ourifield && ourifield->width > 0)
6198 width = ourifield->width;
6199 }
6200
6201 if(width < 0)
6202 width = strsize-1;
6203
6204 width = MIN(width, strsize-1);
6205
6206 thdorig = thd = fetch_thread(idata->stream, idata->rawno);
6207 border = str + width;
6208 if(pith_opt_condense_thread_cue)
6209 width = (*pith_opt_condense_thread_cue)(thd, ice, &str, &strsize, width,
6210 thd && thd->next
6211 && get_lflag(idata->stream,
6212 NULL,idata->rawno,
6213 MN_COLL));
6214
6215 fptr = str;
6216
6217 if(thd)
6218 while(thd->parent && (thd = fetch_thread(idata->stream, thd->parent)))
6219 depth++;
6220
6221 if(depth > 0){
6222 if(ps_global->thread_disp_style == THREAD_INDENT_FROM1)
6223 mult = 1;
6224
6225 fptr += (mult*depth);
6226 for(thd = thdorig, p = str + mult*depth - mult;
6227 thd && thd->parent && p >= str;
6228 thd = fetch_thread(idata->stream, thd->parent), p -= mult){
6229 if(p + mult >= border && !q){
6230 if(width >= 4 && depth < 100){
6231 snprintf(str, width+1, "%*s[%2d]", width-4, "", depth);
6232 q = str + width-4;
6233 }
6234 else if(width >= 5 && depth < 1000){
6235 snprintf(str, width+1, "%*s[%3d]", width-5, "", depth);
6236 q = str + width-5;
6237 }
6238 else{
6239 snprintf(str, width+1, "%s", repeat_char(width, '.'));
6240 q = str;
6241 }
6242
6243 border = q;
6244 fptr = NULL;
6245 }
6246
6247 if(p + 1 < border){
6248 p[0] = p[1] = ' ';
6249 if(ps_global->thread_disp_style == THREAD_STRUCT_FROM){
6250 /*
6251 * WARNING!
6252 * There is an unwarranted assumption here that VAR_THREAD_LASTREPLY_CHAR[0]
6253 * is ascii.
6254 */
6255 if(thd == thdorig && !thd->branch)
6256 p[0] = ps_global->VAR_THREAD_LASTREPLY_CHAR[0];
6257 else if(thd == thdorig || thd->branch)
6258 p[0] = '|';
6259
6260 if(thd == thdorig)
6261 p[1] = '-';
6262 }
6263 }
6264 else if(p < border){
6265 p[0] = ' ';
6266 if(ps_global->thread_disp_style == THREAD_STRUCT_FROM){
6267 /*
6268 * WARNING!
6269 * There is an unwarranted assumption here that VAR_THREAD_LASTREPLY_CHAR[0]
6270 * is ascii.
6271 */
6272 if(thd == thdorig && !thd->branch)
6273 p[0] = ps_global->VAR_THREAD_LASTREPLY_CHAR[0];
6274 else if(thd == thdorig || thd->branch)
6275 p[0] = '|';
6276 }
6277 }
6278 }
6279 }
6280 }
6281 else
6282 fptr = str;
6283
6284 if(fptr){
6285 strsize -= (fptr - str);
6286 switch(ctype){
6287 case iFromTo:
6288 case iFromToNotNews:
6289 if(!(addr = fetch_from(idata)) || address_is_us(addr, ps_global)){
6290 if(strsize-1 <= 4){
6291 strncpy(fptr, "To: ", strsize-1);
6292 fptr[strsize-1] = '\0';
6293 break;
6294 }
6295 else{
6296 if((field = ((addr = fetch_to(idata))
6297 ? "To"
6298 : (addr = fetch_cc(idata))
6299 ? "Cc"
6300 : NULL))
6301 && set_index_addr(idata, field, addr, "To: ",
6302 strsize-1, fptr))
6303 break;
6304
6305 if(ctype == iFromTo &&
6306 (newsgroups = fetch_newsgroups(idata)) &&
6307 *newsgroups){
6308 snprintf(fptr, strsize, "To: %-*.*s", (int)(strsize-1-4), (int)(strsize-1-4),
6309 newsgroups);
6310 break;
6311 }
6312
6313 /* else fall thru to From: */
6314 }
6315 }
6316 /* else fall thru to From: */
6317
6318 if(idata->bogus)
6319 break;
6320
6321 case iFrom:
6322 set_index_addr(idata, "From", fetch_from(idata), NULL, strsize-1, fptr);
6323 break;
6324
6325 case iAddress:
6326 case iMailbox:
6327 if((addr = fetch_from(idata)) && addr->mailbox && addr->mailbox[0]){
6328 char *mb = NULL, *hst = NULL, *at = NULL;
6329 size_t len;
6330
6331 mb = addr->mailbox;
6332 if(ctype == iAddress && addr->host && addr->host[0]
6333 && addr->host[0] != '.'){
6334 at = "@";
6335 hst = addr->host;
6336 }
6337
6338 len = strlen(mb);
6339 if(!at || strsize-1 <= len)
6340 snprintf(fptr, strsize, "%-*.*s", (int)(strsize-1), (int)(strsize-1), mb);
6341 else
6342 snprintf(fptr, strsize, "%s@%-*.*s", mb, (int)(strsize-1-len-1), (int)(strsize-1-len-1), hst);
6343 }
6344
6345 break;
6346
6347 default:
6348 break;
6349 }
6350 }
6351 replace_tabs_by_space(str);
6352 }
6353
6354
6355 /*
6356 * Set up the elements contained in field so that they take up the
6357 * whole field width. Data is assumed to be UTF-8.
6358 */
6359 void
6360 set_ielem_widths_in_field(IFIELD_S *ifield)
6361 {
6362 IELEM_S *ielem = NULL;
6363 int datawidth, fmtwidth;
6364
6365 if(!ifield)
6366 return;
6367
6368 fmtwidth = ifield->width;
6369
6370 for(ielem = ifield->ielem; ielem && fmtwidth > 0; ielem = ielem->next){
6371 if(!ifield->leftadj && ielem->next){
6372 dprint((1, "set_ielem_widths_in_field(%d): right adjust with multiple elements, NOT SUPPOSED TO HAPPEN!\n", (int) ifield->ctype));
6373 assert(0);
6374 }
6375
6376 datawidth = (int) utf8_width(ielem->data);
6377 if(datawidth >= fmtwidth || !ielem->next){
6378 set_print_format(ielem, fmtwidth, ifield->leftadj);
6379 fmtwidth = 0;
6380 }
6381 else{
6382 set_print_format(ielem, datawidth, ifield->leftadj);
6383 fmtwidth -= datawidth;
6384 }
6385 }
6386 }
6387
6388
6389 /*
6390 * Simple hash function from K&R 2nd edition, p. 144.
6391 *
6392 * This one is modified to never return 0 so we can use that as a special
6393 * value. Also, LINE_HASH_N fits in an unsigned long, so it too can be used
6394 * as a special value that can't be returned by line_hash.
6395 */
6396 unsigned long
6397 line_hash(char *s)
6398 {
6399 unsigned long hashval;
6400
6401 for(hashval = 0; *s != '\0'; s++)
6402 hashval = *s + 31 * hashval;
6403
6404 hashval = hashval % LINE_HASH_N;
6405
6406 if(!hashval)
6407 hashval++;
6408
6409 return(hashval);
6410 }
6411
6412
6413 /*
6414 * Returns nonzero if considered hidden, 0 if not considered hidden.
6415 */
6416 int
6417 msgline_hidden(MAILSTREAM *stream, MSGNO_S *msgmap, long int msgno, int flags)
6418 {
6419 int ret;
6420
6421 if(flags & MH_ANYTHD){
6422 ret = ((any_lflagged(msgmap, MN_HIDE) > 0)
6423 && get_lflag(stream, msgmap, msgno, MN_HIDE));
6424 }
6425 else if(flags & MH_THISTHD && THREADING() && sp_viewing_a_thread(stream)){
6426 ret = (get_lflag(stream, msgmap, msgno, MN_HIDE)
6427 || !get_lflag(stream, msgmap, msgno, MN_CHID2));
6428 }
6429 else{
6430 if(THREADING() && sp_viewing_a_thread(stream)){
6431 ret = (get_lflag(stream, msgmap, msgno, MN_HIDE)
6432 || !get_lflag(stream, msgmap, msgno, MN_CHID2)
6433 || get_lflag(stream, msgmap, msgno, MN_CHID));
6434 }
6435 else if(THRD_INDX()){
6436 /*
6437 * If this message is in the collapsed part of a thread,
6438 * it's hidden. It must be a top-level of a thread to be
6439 * considered visible. Even if it is top-level, it is only
6440 * visible if some message in the thread is not hidden.
6441 */
6442 if(get_lflag(stream, msgmap, msgno, MN_CHID)) /* not top */
6443 ret = 1;
6444 else{
6445 unsigned long rawno;
6446 PINETHRD_S *thrd = NULL;
6447
6448 rawno = mn_m2raw(msgmap, msgno);
6449 if(rawno)
6450 thrd = fetch_thread(stream, rawno);
6451
6452 ret = !thread_has_some_visible(stream, thrd);
6453 }
6454 }
6455 else{
6456 ret = ((any_lflagged(msgmap, MN_HIDE | MN_CHID) > 0)
6457 && get_lflag(stream, msgmap, msgno, MN_HIDE | MN_CHID));
6458 }
6459 }
6460
6461 dprint((10,
6462 "msgline_hidden(%ld): %s\n", msgno, ret ? "HID" : "VIS"));
6463
6464 return(ret);
6465 }
6466
6467
6468 void
6469 adjust_cur_to_visible(MAILSTREAM *stream, MSGNO_S *msgmap)
6470 {
6471 long n, cur;
6472 int dir;
6473
6474 cur = mn_get_cur(msgmap);
6475
6476 /* if current is hidden, adjust */
6477 if(cur >= 1L && cur <= mn_get_total(msgmap)
6478 && msgline_hidden(stream, msgmap, cur, 0)){
6479
6480 dir = mn_get_revsort(msgmap) ? -1 : 1;
6481
6482 for(n = cur;
6483 ((dir == 1 && n >= 1L) || (dir == -1 && n <= mn_get_total(msgmap)))
6484 && (n >= 1L && n <= mn_get_total(msgmap))
6485 && msgline_hidden(stream, msgmap, n, 0);
6486 n -= dir)
6487 ;
6488
6489 if(((dir == 1 && n >= 1L) || (dir == -1 && n <= mn_get_total(msgmap)))
6490 && (n >= 1L && n <= mn_get_total(msgmap)))
6491 mn_reset_cur(msgmap, n);
6492 else{ /* no visible in that direction */
6493 for(n = cur;
6494 ((dir == 1 && n >= 1L) || (dir == -1 && n <= mn_get_total(msgmap)))
6495 && (n >= 1L && n <= mn_get_total(msgmap))
6496 && msgline_hidden(stream, msgmap, n, 0);
6497 n += dir)
6498 ;
6499
6500 if(((dir == 1 && n >= 1L) || (dir == -1 && n <= mn_get_total(msgmap)))
6501 && (n >= 1L && n <= mn_get_total(msgmap)))
6502 mn_reset_cur(msgmap, n);
6503 /* else trouble! */
6504 }
6505 }
6506 }
6507
6508
6509 void
6510 setup_for_index_index_screen(void)
6511 {
6512 format_index_line = format_index_index_line;
6513 setup_header_widths = setup_index_header_widths;
6514 }
6515
6516
6517 void
6518 setup_for_thread_index_screen(void)
6519 {
6520 format_index_line = format_thread_index_line;
6521 setup_header_widths = setup_thread_header_widths;
6522 }
6523
6524
6525 unsigned long
6526 ice_hash(ICE_S *ice)
6527 {
6528 char buf[MAX_SCREEN_COLS+1];
6529
6530 buf[0] = '\0';
6531
6532 if(ice)
6533 simple_index_line(buf, sizeof(buf), ice, 0L);
6534
6535 buf[sizeof(buf) - 1] = '\0';
6536
6537 return(line_hash(buf));
6538 }
6539
6540
6541 char *
6542 left_adjust(int width)
6543 {
6544 return(format_str(width, 1));
6545 }
6546
6547
6548 char *
6549 right_adjust(int width)
6550 {
6551 return(format_str(width, 0));
6552 }
6553
6554
6555 /*
6556 * Returns allocated and filled in format string.
6557 */
6558 char *
6559 format_str(int width, int left)
6560 {
6561 char *format;
6562 size_t len;
6563
6564 len = PRINT_FORMAT_LEN(width,left) * sizeof(char);
6565 format = (char *) fs_get(len + 1);
6566 copy_format_str(width, left, format, len);
6567 format[len] = '\0';
6568
6569 return(format);
6570 }
6571
6572
6573 /*
6574 * Put the left or right adjusted format string of width width into
6575 * dest. Dest is of size n+1.
6576 */
6577 char *
6578 copy_format_str(int width, int left, char *dest, int n)
6579 {
6580 char *p;
6581
6582 p = int2string(width);
6583
6584 snprintf(dest, n+1, "%%%s%s.%ss", left ? "-" : "", p, p);
6585
6586 dest[n] = '\0';
6587
6588 return(dest);
6589 }
6590
6591
6592 /*
6593 * Sets up the print_format string to be width wide with left or right
6594 * adjust. Takes care of memory freeing and allocation.
6595 */
6596 void
6597 set_print_format(IELEM_S *ielem, int width, int leftadj)
6598 {
6599 if(ielem){
6600 ielem->wid = width;
6601
6602 if(ielem->print_format){
6603 /* is there enough room? */
6604 if(ielem->freeprintf < PRINT_FORMAT_LEN(width,leftadj)+1){
6605 fs_resize((void **) &ielem->print_format,
6606 (PRINT_FORMAT_LEN(width,leftadj)+1) * sizeof(char));
6607 ielem->freeprintf = (PRINT_FORMAT_LEN(width,leftadj) + 1) * sizeof(char);
6608 }
6609
6610 copy_format_str(width, leftadj, ielem->print_format,
6611 PRINT_FORMAT_LEN(width,leftadj));
6612 }
6613 else{
6614 ielem->print_format = leftadj ? left_adjust(width)
6615 : right_adjust(width);
6616 ielem->freeprintf = (PRINT_FORMAT_LEN(width,leftadj) + 1) * sizeof(char);
6617 }
6618 }
6619 }
Alpine is a program to manage e-mail