1 /*----------------------------------------------------------------------------*/
6 * message index functions
10 void DestroyMimeParts(wc_mime_attachment *Mime)
12 FreeStrBuf(&Mime->Name);
13 FreeStrBuf(&Mime->FileName);
14 FreeStrBuf(&Mime->PartNum);
15 FreeStrBuf(&Mime->Disposition);
16 FreeStrBuf(&Mime->ContentType);
17 FreeStrBuf(&Mime->Charset);
18 FreeStrBuf(&Mime->Data);
21 void DestroyMime(void *vMime)
23 wc_mime_attachment *Mime = (wc_mime_attachment*)vMime;
24 DestroyMimeParts(Mime);
28 void DestroyMessageSummary(void *vMsg)
30 message_summary *Msg = (message_summary*) vMsg;
32 FreeStrBuf(&Msg->from);
34 FreeStrBuf(&Msg->subj);
35 FreeStrBuf(&Msg->reply_inreplyto);
36 FreeStrBuf(&Msg->reply_references);
37 FreeStrBuf(&Msg->cccc);
38 FreeStrBuf(&Msg->hnod);
39 FreeStrBuf(&Msg->AllRcpt);
40 FreeStrBuf(&Msg->Room);
41 FreeStrBuf(&Msg->Rfca);
42 FreeStrBuf(&Msg->OtherNode);
44 FreeStrBuf(&Msg->reply_to);
46 DeleteHash(&Msg->Attachments); /**< list of Accachments */
47 DeleteHash(&Msg->Submessages);
48 DeleteHash(&Msg->AttachLinks);
49 DeleteHash(&Msg->AllAttach);
55 void RegisterMsgHdr(const char *HeaderName, long HdrNLen, ExamineMsgHeaderFunc evaluator, int type)
58 ev = (headereval*) malloc(sizeof(headereval));
59 ev->evaluator = evaluator;
61 Put(MsgHeaderHandler, HeaderName, HdrNLen, ev, NULL);
64 void RegisterMimeRenderer(const char *HeaderName, long HdrNLen, RenderMimeFunc MimeRenderer)
66 RenderMimeFuncStruct *f;
68 f = (RenderMimeFuncStruct*) malloc(sizeof(RenderMimeFuncStruct));
70 Put(MimeRenderHandler, HeaderName, HdrNLen, f, NULL);
74 /*----------------------------------------------------------------------------*/
77 * comparator for two longs in descending order.
79 int longcmp_r(const void *s1, const void *s2) {
83 l1 = *(long *)GetSearchPayload(s1);
84 l2 = *(long *)GetSearchPayload(s2);
86 if (l1 > l2) return(-1);
87 if (l1 < l2) return(+1);
92 * comparator for longs; descending order.
94 int qlongcmp_r(const void *s1, const void *s2) {
98 if (l1 > l2) return(-1);
99 if (l1 < l2) return(+1);
105 * comparator for message summary structs by ascending subject.
107 int summcmp_subj(const void *s1, const void *s2) {
108 message_summary *summ1;
109 message_summary *summ2;
111 summ1 = (message_summary *)GetSearchPayload(s1);
112 summ2 = (message_summary *)GetSearchPayload(s2);
113 return strcasecmp(ChrPtr(summ1->subj), ChrPtr(summ2->subj));
117 * comparator for message summary structs by descending subject.
119 int summcmp_rsubj(const void *s1, const void *s2) {
120 message_summary *summ1;
121 message_summary *summ2;
123 summ1 = (message_summary *)GetSearchPayload(s1);
124 summ2 = (message_summary *)GetSearchPayload(s2);
125 return strcasecmp(ChrPtr(summ2->subj), ChrPtr(summ1->subj));
128 * comparator for message summary structs by descending subject.
130 int groupchange_subj(const void *s1, const void *s2) {
131 message_summary *summ1;
132 message_summary *summ2;
134 summ1 = (message_summary *)s1;
135 summ2 = (message_summary *)s2;
136 return ChrPtr(summ2->subj)[0] != ChrPtr(summ1->subj)[0];
140 * comparator for message summary structs by ascending sender.
142 int summcmp_sender(const void *s1, const void *s2) {
143 message_summary *summ1;
144 message_summary *summ2;
146 summ1 = (message_summary *)GetSearchPayload(s1);
147 summ2 = (message_summary *)GetSearchPayload(s2);
148 return strcasecmp(ChrPtr(summ1->from), ChrPtr(summ2->from));
152 * comparator for message summary structs by descending sender.
154 int summcmp_rsender(const void *s1, const void *s2) {
155 message_summary *summ1;
156 message_summary *summ2;
158 summ1 = (message_summary *)GetSearchPayload(s1);
159 summ2 = (message_summary *)GetSearchPayload(s2);
160 return strcasecmp(ChrPtr(summ2->from), ChrPtr(summ1->from));
163 * comparator for message summary structs by descending sender.
165 int groupchange_sender(const void *s1, const void *s2) {
166 message_summary *summ1;
167 message_summary *summ2;
169 summ1 = (message_summary *)s1;
170 summ2 = (message_summary *)s2;
171 return strcasecmp(ChrPtr(summ2->from), ChrPtr(summ1->from)) != 0;
176 * comparator for message summary structs by ascending date.
178 int summcmp_date(const void *s1, const void *s2) {
179 message_summary *summ1;
180 message_summary *summ2;
182 summ1 = (message_summary *)GetSearchPayload(s1);
183 summ2 = (message_summary *)GetSearchPayload(s2);
185 if (summ1->date < summ2->date) return -1;
186 else if (summ1->date > summ2->date) return +1;
191 * comparator for message summary structs by descending date.
193 int summcmp_rdate(const void *s1, const void *s2) {
194 message_summary *summ1;
195 message_summary *summ2;
197 summ1 = (message_summary *)GetSearchPayload(s1);
198 summ2 = (message_summary *)GetSearchPayload(s2);
200 if (summ1->date < summ2->date) return +1;
201 else if (summ1->date > summ2->date) return -1;
206 * comparator for message summary structs by descending date.
208 const long DAYSECONDS = 24 * 60 * 60;
209 int groupchange_date(const void *s1, const void *s2) {
210 message_summary *summ1;
211 message_summary *summ2;
213 summ1 = (message_summary *)s1;
214 summ2 = (message_summary *)s2;
216 return (summ1->date % DAYSECONDS) != (summ2->date %DAYSECONDS);
220 /*----------------------------------------------------------------------------*/
221 /* Don't wanna know... or? */
222 void examine_pref(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset) {return;}
223 void examine_suff(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset) {return;}
224 void examine_path(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset) {return;}
225 void examine_content_encoding(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
227 /* TODO: do we care? */
230 void examine_nhdr(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
233 if (!strncasecmp(ChrPtr(HdrLine), "yes", 8))
236 int Conditional_ANONYMOUS_MESSAGE(StrBuf *Target, WCTemplputParams *TP)
238 message_summary *Msg = (message_summary*) CTX;
239 return Msg->nhdr != 0;
242 void examine_type(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
244 Msg->format_type = StrToi(HdrLine);
248 void examine_from(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
250 FreeStrBuf(&Msg->from);
251 Msg->from = NewStrBufPlain(NULL, StrLength(HdrLine));
252 StrBuf_RFC822_to_Utf8(Msg->from, HdrLine, WC->DefaultCharset, FoundCharset);
254 void tmplput_MAIL_SUMM_FROM(StrBuf *Target, WCTemplputParams *TP)
256 message_summary *Msg = (message_summary*) CTX;
257 StrBufAppendTemplate(Target, TP, Msg->from, 0);
262 void examine_subj(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
264 FreeStrBuf(&Msg->subj);
265 Msg->subj = NewStrBufPlain(NULL, StrLength(HdrLine));
266 StrBuf_RFC822_to_Utf8(Msg->subj, HdrLine, WC->DefaultCharset, FoundCharset);
268 void tmplput_MAIL_SUMM_SUBJECT(StrBuf *Target, WCTemplputParams *TP)
269 {/*////TODO: Fwd: and RE: filter!!*/
271 message_summary *Msg = (message_summary*) CTX;
272 StrBufAppendTemplate(Target, TP, Msg->subj, 0);
276 void examine_msgn(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
278 FreeStrBuf(&Msg->reply_inreplyto);
279 Msg->reply_inreplyto = NewStrBufPlain(NULL, StrLength(HdrLine));
280 StrBuf_RFC822_to_Utf8(Msg->reply_inreplyto, HdrLine, WC->DefaultCharset, FoundCharset);
282 void tmplput_MAIL_SUMM_INREPLYTO(StrBuf *Target, WCTemplputParams *TP)
284 message_summary *Msg = (message_summary*) CTX;
285 StrBufAppendTemplate(Target, TP, Msg->reply_inreplyto, 0);
288 int Conditional_MAIL_SUMM_UNREAD(StrBuf *Target, WCTemplputParams *TP)
290 message_summary *Msg = (message_summary*) CTX;
291 return Msg->is_new != 0;
294 void examine_wefw(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
296 FreeStrBuf(&Msg->reply_references);
297 Msg->reply_references = NewStrBufPlain(NULL, StrLength(HdrLine));
298 StrBuf_RFC822_to_Utf8(Msg->reply_references, HdrLine, WC->DefaultCharset, FoundCharset);
300 void tmplput_MAIL_SUMM_REFIDS(StrBuf *Target, WCTemplputParams *TP)
302 message_summary *Msg = (message_summary*) CTX;
303 StrBufAppendTemplate(Target, TP, Msg->reply_references, 0);
307 void examine_cccc(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
309 FreeStrBuf(&Msg->cccc);
310 Msg->cccc = NewStrBufPlain(NULL, StrLength(HdrLine));
311 StrBuf_RFC822_to_Utf8(Msg->cccc, HdrLine, WC->DefaultCharset, FoundCharset);
312 if (Msg->AllRcpt == NULL)
313 Msg->AllRcpt = NewStrBufPlain(NULL, StrLength(HdrLine));
314 if (StrLength(Msg->AllRcpt) > 0) {
315 StrBufAppendBufPlain(Msg->AllRcpt, HKEY(", "), 0);
317 StrBufAppendBuf(Msg->AllRcpt, Msg->cccc, 0);
319 void tmplput_MAIL_SUMM_CCCC(StrBuf *Target, WCTemplputParams *TP)
321 message_summary *Msg = (message_summary*) CTX;
322 StrBufAppendTemplate(Target, TP, Msg->cccc, 0);
326 void examine_room(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
328 if ((StrLength(HdrLine) > 0) &&
329 (strcasecmp(ChrPtr(HdrLine), ChrPtr(WC->wc_roomname)))) {
330 FreeStrBuf(&Msg->Room);
331 Msg->Room = NewStrBufDup(HdrLine);
334 void tmplput_MAIL_SUMM_ORGROOM(StrBuf *Target, WCTemplputParams *TP)
336 message_summary *Msg = (message_summary*) CTX;
337 StrBufAppendTemplate(Target, TP, Msg->Room, 0);
341 void examine_rfca(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
343 FreeStrBuf(&Msg->Rfca);
344 Msg->Rfca = NewStrBufDup(HdrLine);
346 void tmplput_MAIL_SUMM_RFCA(StrBuf *Target, WCTemplputParams *TP)
348 message_summary *Msg = (message_summary*) CTX;
349 StrBufAppendTemplate(Target, TP, Msg->Rfca, 0);
351 int Conditional_MAIL_SUMM_RFCA(StrBuf *Target, WCTemplputParams *TP)
353 message_summary *Msg = (message_summary*) CTX;
354 return StrLength(Msg->Rfca) > 0;
356 int Conditional_MAIL_SUMM_CCCC(StrBuf *Target, WCTemplputParams *TP)
358 message_summary *Msg = (message_summary*) CTX;
359 return StrLength(Msg->cccc) > 0;
362 void examine_node(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
364 if ( (StrLength(HdrLine) > 0) &&
365 ((WC->room_flags & QR_NETWORK)
366 || ((strcasecmp(ChrPtr(HdrLine), ChrPtr(serv_info.serv_nodename))
367 && (strcasecmp(ChrPtr(HdrLine), ChrPtr(serv_info.serv_fqdn))))))) {
368 FreeStrBuf(&Msg->OtherNode);
369 Msg->OtherNode = NewStrBufDup(HdrLine);
372 void tmplput_MAIL_SUMM_OTHERNODE(StrBuf *Target, WCTemplputParams *TP)
374 message_summary *Msg = (message_summary*) CTX;
375 StrBufAppendTemplate(Target, TP, Msg->OtherNode, 0);
377 int Conditional_MAIL_SUMM_OTHERNODE(StrBuf *Target, WCTemplputParams *TP)
379 message_summary *Msg = (message_summary*) CTX;
380 return StrLength(Msg->OtherNode) > 0;
384 void examine_rcpt(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
386 FreeStrBuf(&Msg->to);
387 Msg->to = NewStrBufPlain(NULL, StrLength(HdrLine));
388 StrBuf_RFC822_to_Utf8(Msg->to, HdrLine, WC->DefaultCharset, FoundCharset);
389 if (Msg->AllRcpt == NULL)
390 Msg->AllRcpt = NewStrBufPlain(NULL, StrLength(HdrLine));
391 if (StrLength(Msg->AllRcpt) > 0) {
392 StrBufAppendBufPlain(Msg->AllRcpt, HKEY(", "), 0);
394 StrBufAppendBuf(Msg->AllRcpt, Msg->to, 0);
396 void tmplput_MAIL_SUMM_TO(StrBuf *Target, WCTemplputParams *TP)
398 message_summary *Msg = (message_summary*) CTX;
399 StrBufAppendTemplate(Target, TP, Msg->to, 0);
401 void tmplput_MAIL_SUMM_ALLRCPT(StrBuf *Target, WCTemplputParams *TP)
403 message_summary *Msg = (message_summary*) CTX;
404 StrBufAppendTemplate(Target, TP, Msg->AllRcpt, 0);
408 HashList *iterate_get_mailsumm_All(StrBuf *Target, WCTemplputParams *TP)
412 int Conditional_ROOM_DISPLAY_MSG(StrBuf *Target, WCTemplputParams *TP) {
414 IterateStruct *ITC = CCTX;
415 int num_inset = ITC->n;
416 if ((num_inset >= WC->startmsg) && (WCC->num_displayed <= WCC->maxmsgs)) {
418 WCC->num_displayed = WCC->num_displayed+1;
419 return 1; /* Pass GO, collect $200 */
423 int Conditional_MAIL_SUMM_LASTMSG(StrBuf *Target, WCTemplputParams *TP) {
424 IterateStruct *ITC = CCTX;
425 int is_last_n = ITC->LastN;
427 //GetHash(WC->vars, HKEY("ITERATE:N"), (void *)&n_dsubst);
428 //num_inset = n_dsubst->lvalue;
430 /* Is the num_displayed higher than maxmsgs? OR last in iterator */
431 return ((WC->num_displayed > WC->maxmsgs) || (is_last_n == 1));
433 void examine_time(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
435 Msg->date = StrTol(HdrLine);
438 void tmplput_MAIL_SUMM_DATE_BRIEF(StrBuf *Target, WCTemplputParams *TP)
441 message_summary *Msg = (message_summary*) CTX;
442 webcit_fmt_date(datebuf, Msg->date, 1);
443 StrBufAppendBufPlain(Target, datebuf, -1, 0);
446 void tmplput_MAIL_SUMM_DATE_FULL(StrBuf *Target, WCTemplputParams *TP)
449 message_summary *Msg = (message_summary*) CTX;
450 webcit_fmt_date(datebuf, Msg->date, 0);
451 StrBufAppendBufPlain(Target, datebuf, -1, 0);
453 void tmplput_MAIL_SUMM_DATE_NO(StrBuf *Target, WCTemplputParams *TP)
455 message_summary *Msg = (message_summary*) CTX;
456 StrBufAppendPrintf(Target, "%ld", Msg->date, 0);
461 void render_MAIL(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
463 Mime->Data = NewStrBufPlain(NULL, Mime->length);
464 read_message(Mime->Data, HKEY("view_submessage"), Mime->msgnum, 0, Mime->PartNum);
466 if ( (!IsEmptyStr(mime_submessages)) && (!section[0]) ) {
467 for (i=0; i<num_tokens(mime_submessages, '|'); ++i) {
468 extract_token(buf, mime_submessages, i, '|', sizeof buf);
469 / ** use printable_view to suppress buttons * /
470 wprintf("<blockquote>");
471 read_message(Mime->msgnum, 1, ChrPtr(Mime->Section));
472 wprintf("</blockquote>");
478 void render_MIME_VCard(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
482 if (StrLength(Mime->Data) > 0) {
485 /** If it's my vCard I can edit it */
486 if ( (!strcasecmp(ChrPtr(WCC->wc_roomname), USERCONFIGROOM))
487 || (!strcasecmp(&(ChrPtr(WCC->wc_roomname)[11]), USERCONFIGROOM))
488 || (WC->wc_view == VIEW_ADDRESSBOOK)
490 StrBufAppendPrintf(Buf, "<a href=\"edit_vcard?msgnum=%ld&partnum=%s\">",
491 Mime->msgnum, ChrPtr(Mime->PartNum));
492 StrBufAppendPrintf(Buf, "[%s]</a>", _("edit"));
495 /* In all cases, display the full card */
496 display_vcard(Buf, ChrPtr(Mime->Data), 0, 1, NULL, Mime->msgnum);
497 FreeStrBuf(&Mime->Data);
503 void render_MIME_ICS(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
505 if (StrLength(Mime->Data) == 0) {
508 if (StrLength(Mime->Data) > 0) {
509 cal_process_attachment(Mime);
515 void examine_mime_part(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
517 wc_mime_attachment *Mime;
520 Mime = (wc_mime_attachment*) malloc(sizeof(wc_mime_attachment));
521 memset(Mime, 0, sizeof(wc_mime_attachment));
522 Mime->msgnum = Msg->msgnum;
525 Mime->Name = NewStrBuf();
526 StrBufExtract_token(Buf, HdrLine, 0, '|');
527 StrBuf_RFC822_to_Utf8(Mime->Name, Buf, WC->DefaultCharset, FoundCharset);
528 StrBufTrim(Mime->Name);
530 StrBufExtract_token(Buf, HdrLine, 1, '|');
531 Mime->FileName = NewStrBuf();
532 StrBuf_RFC822_to_Utf8(Mime->FileName, Buf, WC->DefaultCharset, FoundCharset);
533 StrBufTrim(Mime->FileName);
535 Mime->PartNum = NewStrBuf();
536 StrBufExtract_token(Mime->PartNum, HdrLine, 2, '|');
537 StrBufTrim(Mime->PartNum);
538 if (strchr(ChrPtr(Mime->PartNum), '.') != NULL)
543 Mime->Disposition = NewStrBuf();
544 StrBufExtract_token(Mime->Disposition, HdrLine, 3, '|');
546 Mime->ContentType = NewStrBuf();
547 StrBufExtract_token(Mime->ContentType, HdrLine, 4, '|');
548 StrBufTrim(Mime->ContentType);
549 StrBufLowerCase(Mime->ContentType);
551 Mime->length = StrBufExtract_int(HdrLine, 5, '|');
553 if ( (StrLength(Mime->FileName) == 0) && (StrLength(Mime->Name) > 0) ) {
554 StrBufAppendBuf(Mime->FileName, Mime->Name, 0);
557 if (StrLength(Msg->PartNum) > 0) {
559 StrBufPrintf(Buf, "%s.%s", ChrPtr(Msg->PartNum), ChrPtr(Mime->PartNum));
565 if (Msg->AllAttach == NULL)
566 Msg->AllAttach = NewHash(1,NULL);
567 Put(Msg->AllAttach, SKEY(Mime->PartNum), Mime, DestroyMime);
572 void evaluate_mime_part(message_summary *Msg, wc_mime_attachment *Mime)
576 /* just print the root-node */
577 if ((Mime->level == 1) &&
578 GetHash(MimeRenderHandler, SKEY(Mime->ContentType), &vMimeRenderer) &&
579 vMimeRenderer != NULL)
581 Mime->Renderer = (RenderMimeFuncStruct*) vMimeRenderer;
582 if (Msg->Submessages == NULL)
583 Msg->Submessages = NewHash(1,NULL);
584 Put(Msg->Submessages, SKEY(Mime->PartNum), Mime, reference_free_handler);
586 else if ((Mime->level == 1) &&
587 (!strcasecmp(ChrPtr(Mime->Disposition), "inline"))
588 && (!strncasecmp(ChrPtr(Mime->ContentType), "image/", 6)) ){
589 if (Msg->AttachLinks == NULL)
590 Msg->AttachLinks = NewHash(1,NULL);
591 Put(Msg->AttachLinks, SKEY(Mime->PartNum), Mime, reference_free_handler);
593 else if ((Mime->level == 1) &&
594 (StrLength(Mime->ContentType) > 0) &&
595 ( (!strcasecmp(ChrPtr(Mime->Disposition), "attachment"))
596 || (!strcasecmp(ChrPtr(Mime->Disposition), "inline"))
597 || (!strcasecmp(ChrPtr(Mime->Disposition), ""))))
599 if (Msg->AttachLinks == NULL)
600 Msg->AttachLinks = NewHash(1,NULL);
601 Put(Msg->AttachLinks, SKEY(Mime->PartNum), Mime, reference_free_handler);
602 if ((strcasecmp(ChrPtr(Mime->ContentType), "application/octet-stream") == 0) &&
603 (StrLength(Mime->FileName) > 0)) {
604 FlushStrBuf(Mime->ContentType);
605 StrBufAppendBufPlain(Mime->ContentType,
606 GuessMimeByFilename(SKEY(Mime->FileName)),
612 void tmplput_MAIL_SUMM_NATTACH(StrBuf *Target, WCTemplputParams *TP)
614 message_summary *Msg = (message_summary*) CTX;
615 StrBufAppendPrintf(Target, "%ld", GetCount(Msg->Attachments));
619 void examine_hnod(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
621 FreeStrBuf(&Msg->hnod);
622 Msg->hnod = NewStrBufPlain(NULL, StrLength(HdrLine));
623 StrBuf_RFC822_to_Utf8(Msg->hnod, HdrLine, WC->DefaultCharset, FoundCharset);
625 void tmplput_MAIL_SUMM_H_NODE(StrBuf *Target, WCTemplputParams *TP)
627 message_summary *Msg = (message_summary*) CTX;
628 StrBufAppendTemplate(Target, TP, Msg->hnod, 0);
630 int Conditional_MAIL_SUMM_H_NODE(StrBuf *Target, WCTemplputParams *TP)
632 message_summary *Msg = (message_summary*) CTX;
633 return StrLength(Msg->hnod) > 0;
638 void examine_text(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
640 Msg->MsgBody->Data = NewStrBuf();
643 void examine_msg4_partnum(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
645 Msg->MsgBody->PartNum = NewStrBufDup(HdrLine);
646 StrBufTrim(Msg->MsgBody->PartNum);
649 void examine_content_lengh(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
651 Msg->MsgBody->length = StrTol(HdrLine);
652 Msg->MsgBody->size_known = 1;
655 void examine_content_type(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
665 Msg->MsgBody->ContentType = NewStrBufDup(HdrLine);
666 sem = strchr(ChrPtr(HdrLine), ';');
669 Token = NewStrBufPlain(NULL, StrLength(HdrLine));
670 Value = NewStrBufPlain(NULL, StrLength(HdrLine));
671 len = sem - ChrPtr(HdrLine);
672 StrBufCutAt(Msg->MsgBody->ContentType, len, NULL);
673 while (sem != NULL) {
674 while (isspace(*(sem + 1)))
676 StrBufCutLeft(HdrLine, sem - ChrPtr(HdrLine));
677 sem = strchr(ChrPtr(HdrLine), ';');
679 len = sem - ChrPtr(HdrLine);
681 len = StrLength(HdrLine);
684 StrBufAppendBufPlain(Token, ChrPtr(HdrLine), len, 0);
685 eq = strchr(ChrPtr(Token), '=');
687 len = eq - ChrPtr(Token);
688 StrBufAppendBufPlain(Value, eq + 1, StrLength(Token) - len - 1, 0);
689 StrBufCutAt(Token, len, NULL);
694 if (GetHash(MsgHeaderHandler, SKEY(Token), &vHdr) &&
696 Hdr = (headereval*)vHdr;
697 Hdr->evaluator(Msg, Value, FoundCharset);
699 else lprintf(1, "don't know how to handle content type sub-header[%s]\n", ChrPtr(Token));
706 void tmplput_MAIL_SUMM_N(StrBuf *Target, WCTemplputParams *TP)
708 message_summary *Msg = (message_summary*) CTX;
709 StrBufAppendPrintf(Target, "%ld", Msg->msgnum);
714 int Conditional_MAIL_MIME_ALL(StrBuf *Target, WCTemplputParams *TP)
716 message_summary *Msg = (message_summary*) CTX;
717 return GetCount(Msg->Attachments) > 0;
720 int Conditional_MAIL_MIME_SUBMESSAGES(StrBuf *Target, WCTemplputParams *TP)
722 message_summary *Msg = (message_summary*) CTX;
723 return GetCount(Msg->Submessages) > 0;
726 int Conditional_MAIL_MIME_ATTACHLINKS(StrBuf *Target, WCTemplputParams *TP)
728 message_summary *Msg = (message_summary*) CTX;
729 return GetCount(Msg->AttachLinks) > 0;
732 int Conditional_MAIL_MIME_ATTACH(StrBuf *Target, WCTemplputParams *TP)
734 message_summary *Msg = (message_summary*) CTX;
735 return GetCount(Msg->AllAttach) > 0;
740 /*----------------------------------------------------------------------------*/
741 void tmplput_QUOTED_MAIL_BODY(StrBuf *Target, WCTemplputParams *TP)
746 MsgNum = LBstr(TKEY(0));
748 read_message(Buf, HKEY("view_message_replyquote"), MsgNum, 0, NULL);
749 StrBufAppendTemplate(Target, TP, Buf, 1);
753 void tmplput_MAIL_BODY(StrBuf *Target, WCTemplputParams *TP)
755 message_summary *Msg = (message_summary*) CTX;
756 StrBufAppendTemplate(Target, TP, Msg->MsgBody->Data, 0);
760 void render_MAIL_variformat(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
762 /* Messages in legacy Citadel variformat get handled thusly... */
763 StrBuf *Target = NewStrBufPlain(NULL, StrLength(Mime->Data));
764 FmOut(Target, "JUSTIFY", Mime->Data);
765 FreeStrBuf(&Mime->Data);
769 void render_MAIL_text_plain(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
772 const char *ptr, *pte;
773 const char *BufPtr = NULL;
785 iconv_t ic = (iconv_t)(-1) ;
788 if ((StrLength(Mime->Data) == 0) && (Mime->length > 0)) {
789 FreeStrBuf(&Mime->Data);
793 /* Boring old 80-column fixed format text gets handled this way... */
794 if ((strcasecmp(ChrPtr(Mime->Charset), "us-ascii") == 0) &&
795 (strcasecmp(ChrPtr(Mime->Charset), "UTF-8") == 0))
800 if (StrLength(Mime->Charset) != 0)
802 else if (StrLength(FoundCharset) > 0)
804 else if (StrLength(WC->DefaultCharset) > 0)
805 cs = WC->DefaultCharset;
810 ctdl_iconv_open("UTF-8", ChrPtr(cs), &ic);
811 if (ic == (iconv_t)(-1) ) {
812 lprintf(5, "%s:%d iconv_open(UTF-8, %s) failed: %s\n",
813 __FILE__, __LINE__, ChrPtr(Mime->Charset), strerror(errno));
821 Target = NewStrBufPlain(NULL, StrLength(Mime->Data));
823 while ((n = StrBufSipLine(Line, Mime->Data, &BufPtr), n >= 0) && !done)
829 len = StrLength(Line);
832 while ((ptr < pte) &&
841 if (i > 0) StrBufCutLeft(Line, i);
843 if (StrLength(Line) == 0) {
844 StrBufAppendBufPlain(Target, HKEY("<tt></tt><br />\n"), 0);
848 for (i = bn; i < bq; i++)
849 StrBufAppendBufPlain(Target, HKEY("<blockquote>"), 0);
850 for (i = bq; i < bn; i++)
851 StrBufAppendBufPlain(Target, HKEY("</blockquote>"), 0);
853 if (ConvertIt == 1) {
854 StrBufConvert(Line, Line1, &ic);
857 StrBufAppendBufPlain(Target, HKEY("<tt>"), 0);
858 UrlizeText(Line1, Line, Line2);
860 StrEscAppend(Target, Line1, NULL, 0, 0);
861 StrBufAppendBufPlain(Target, HKEY("</tt><br />\n"), 0);
865 for (i = 0; i < bn; i++)
866 StrBufAppendBufPlain(Target, HKEY("</blockquote>"), 0);
868 StrBufAppendBufPlain(Target, HKEY("</i><br />"), 0);
870 if (ic != (iconv_t)(-1) ) {
875 FreeStrBuf(&Mime->Data);
877 FlushStrBuf(Mime->ContentType);
878 StrBufAppendBufPlain(Mime->ContentType, HKEY("text/html"), 0);
879 FlushStrBuf(Mime->Charset);
880 StrBufAppendBufPlain(Mime->Charset, HKEY("UTF-8"), 0);
886 void render_MAIL_html(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
890 if (StrLength(Mime->Data) == 0)
893 Buf = NewStrBufPlain(NULL, StrLength(Mime->Data));
895 /* HTML is fun, but we've got to strip it first */
896 output_html(ChrPtr(Mime->Charset),
897 (WC->wc_view == VIEW_WIKI ? 1 : 0),
900 FreeStrBuf(&Mime->Data);
904 void render_MAIL_UNKNOWN(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
906 /* Unknown weirdness */
907 FlushStrBuf(Mime->Data);
908 StrBufAppendBufPlain(Mime->Data, _("I don't know how to display "), -1, 0);
909 StrBufAppendBuf(Mime->Data, Mime->ContentType, 0);
910 StrBufAppendBufPlain(Mime->Data, HKEY("<br />\n"), 0);
918 HashList *iterate_get_mime_All(StrBuf *Target, WCTemplputParams *TP)
920 message_summary *Msg = (message_summary*) CTX;
921 return Msg->Attachments;
923 HashList *iterate_get_mime_Submessages(StrBuf *Target, WCTemplputParams *TP)
925 message_summary *Msg = (message_summary*) CTX;
926 return Msg->Submessages;
928 HashList *iterate_get_mime_AttachLinks(StrBuf *Target, WCTemplputParams *TP)
930 message_summary *Msg = (message_summary*) CTX;
931 return Msg->AttachLinks;
933 HashList *iterate_get_mime_Attachments(StrBuf *Target, WCTemplputParams *TP)
935 message_summary *Msg = (message_summary*) CTX;
936 return Msg->AllAttach;
939 void tmplput_MIME_Name(StrBuf *Target, WCTemplputParams *TP)
941 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
942 StrBufAppendTemplate(Target, TP, mime->Name, 0);
945 void tmplput_MIME_FileName(StrBuf *Target, WCTemplputParams *TP)
947 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
948 StrBufAppendTemplate(Target, TP, mime->FileName, 0);
951 void tmplput_MIME_PartNum(StrBuf *Target, WCTemplputParams *TP)
953 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
954 StrBufAppendTemplate(Target, TP, mime->PartNum, 0);
957 void tmplput_MIME_MsgNum(StrBuf *Target, WCTemplputParams *TP)
959 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
960 StrBufAppendPrintf(Target, "%ld", mime->msgnum);
963 void tmplput_MIME_Disposition(StrBuf *Target, WCTemplputParams *TP)
965 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
966 StrBufAppendTemplate(Target, TP, mime->Disposition, 0);
969 void tmplput_MIME_ContentType(StrBuf *Target, WCTemplputParams *TP)
971 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
972 StrBufAppendTemplate(Target, TP, mime->ContentType, 0);
975 void examine_charset(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
977 Msg->MsgBody->Charset = NewStrBufDup(HdrLine);
980 void tmplput_MIME_Charset(StrBuf *Target, WCTemplputParams *TP)
982 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
983 StrBufAppendTemplate(Target, TP, mime->Charset, 0);
986 void tmplput_MIME_Data(StrBuf *Target, WCTemplputParams *TP)
988 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
989 if (mime->Renderer != NULL)
990 mime->Renderer->f(mime, NULL, NULL);
991 StrBufAppendTemplate(Target, TP, mime->Data, 0);
992 /* TODO: check whether we need to load it now? */
995 void tmplput_MIME_LoadData(StrBuf *Target, WCTemplputParams *TP)
998 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
999 wc_mime_attachment *att;
1001 if ( (!strcasecmp(ChrPtr(mime->Disposition), "inline"))||
1002 (!strcasecmp(ChrPtr(mime->Disposition), "attachment")) )
1007 /* steal this mime part... */
1008 att = malloc(sizeof(wc_mime_attachment));
1009 memcpy(att, mime, sizeof(wc_mime_attachment));
1010 memset(mime, 0, sizeof(wc_mime_attachment));
1012 if (att->Data == NULL)
1015 if (WCC->attachments == NULL)
1016 WCC->attachments = NewHash(1, NULL);
1017 /* And add it to the list. */
1018 n = snprintf(N, sizeof N, "%d", GetCount(WCC->attachments) + 1);
1019 Put(WCC->attachments, N, n, att, DestroyMime);
1023 void tmplput_MIME_Length(StrBuf *Target, WCTemplputParams *TP)
1025 wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1026 StrBufAppendPrintf(Target, "%ld", mime->length);
1029 HashList *iterate_get_registered_Attachments(StrBuf *Target, WCTemplputParams *TP)
1031 return WC->attachments;
1034 void servcmd_do_search(char *buf, long bufsize)
1036 snprintf(buf, bufsize, "MSGS SEARCH|%s", bstr("query"));
1039 void servcmd_headers(char *buf, long bufsize)
1041 snprintf(buf, bufsize, "MSGS ALL");
1044 void servcmd_readfwd(char *buf, long bufsize)
1046 snprintf(buf, bufsize, "MSGS ALL");
1049 void servcmd_readnew(char *buf, long bufsize)
1051 snprintf(buf, bufsize, "MSGS NEW");
1054 void servcmd_readold(char *buf, long bufsize)
1056 snprintf(buf, bufsize, "MSGS OLD");
1060 readloop_struct rlid[] = {
1061 { {HKEY("do_search")}, servcmd_do_search},
1062 { {HKEY("headers")}, servcmd_headers},
1063 { {HKEY("readfwd")}, servcmd_readfwd},
1064 { {HKEY("readnew")}, servcmd_readnew},
1065 { {HKEY("readold")}, servcmd_readold}
1070 void SetAccessCommand(long Oper)
1072 wcsession *WCC = WC;
1074 if (WCC->UrlFragment1 != NULL ) {
1075 FlushStrBuf(WCC->UrlFragment1);
1076 StrBufAppendBufPlain(WCC->UrlFragment1,
1077 rlid[Oper].name.Key, rlid[Oper].name.len, 0);
1080 WCC->UrlFragment1 = NewStrBufPlain(rlid[Oper].name.Key, rlid[Oper].name.len);
1088 InitModule_MSGRENDERERS
1091 RegisterSortFunc(HKEY("date"),
1097 RegisterSortFunc(HKEY("subject"),
1103 RegisterSortFunc(HKEY("sender"),
1110 /* iterate over all known mails in WC->summ */
1111 RegisterIterator("MAIL:SUMM:MSGS", 0, NULL, iterate_get_mailsumm_All,
1112 NULL,NULL, CTX_MAILSUM, CTX_NONE, IT_NOFLAG);
1114 RegisterNamespace("MAIL:SUMM:DATEBRIEF", 0, 0, tmplput_MAIL_SUMM_DATE_BRIEF, CTX_MAILSUM);
1115 RegisterNamespace("MAIL:SUMM:DATEFULL", 0, 0, tmplput_MAIL_SUMM_DATE_FULL, CTX_MAILSUM);
1116 RegisterNamespace("MAIL:SUMM:DATENO", 0, 0, tmplput_MAIL_SUMM_DATE_NO, CTX_MAILSUM);
1117 RegisterNamespace("MAIL:SUMM:N", 0, 0, tmplput_MAIL_SUMM_N, CTX_MAILSUM);
1118 RegisterNamespace("MAIL:SUMM:FROM", 0, 2, tmplput_MAIL_SUMM_FROM, CTX_MAILSUM);
1119 RegisterNamespace("MAIL:SUMM:TO", 0, 2, tmplput_MAIL_SUMM_TO, CTX_MAILSUM);
1120 RegisterNamespace("MAIL:SUMM:SUBJECT", 0, 4, tmplput_MAIL_SUMM_SUBJECT, CTX_MAILSUM);
1121 RegisterNamespace("MAIL:SUMM:NTATACH", 0, 0, tmplput_MAIL_SUMM_NATTACH, CTX_MAILSUM);
1122 RegisterNamespace("MAIL:SUMM:CCCC", 0, 2, tmplput_MAIL_SUMM_CCCC, CTX_MAILSUM);
1123 RegisterNamespace("MAIL:SUMM:H_NODE", 0, 2, tmplput_MAIL_SUMM_H_NODE, CTX_MAILSUM);
1124 RegisterNamespace("MAIL:SUMM:ALLRCPT", 0, 2, tmplput_MAIL_SUMM_ALLRCPT, CTX_MAILSUM);
1125 RegisterNamespace("MAIL:SUMM:ORGROOM", 0, 2, tmplput_MAIL_SUMM_ORGROOM, CTX_MAILSUM);
1126 RegisterNamespace("MAIL:SUMM:RFCA", 0, 2, tmplput_MAIL_SUMM_RFCA, CTX_MAILSUM);
1127 RegisterNamespace("MAIL:SUMM:OTHERNODE", 2, 0, tmplput_MAIL_SUMM_OTHERNODE, CTX_MAILSUM);
1128 RegisterNamespace("MAIL:SUMM:REFIDS", 0, 0, tmplput_MAIL_SUMM_REFIDS, CTX_MAILSUM);
1129 RegisterNamespace("MAIL:SUMM:INREPLYTO", 0, 2, tmplput_MAIL_SUMM_INREPLYTO, CTX_MAILSUM);
1130 RegisterNamespace("MAIL:BODY", 0, 2, tmplput_MAIL_BODY, CTX_MAILSUM);
1131 RegisterNamespace("MAIL:QUOTETEXT", 1, 2, tmplput_QUOTED_MAIL_BODY, CTX_NONE);
1132 RegisterConditional(HKEY("COND:ROOM:DISPLAYMSG"), 0, Conditional_ROOM_DISPLAY_MSG, CTX_MAILSUM);
1133 RegisterConditional(HKEY("COND:MAIL:SUMM:LASTMSG"), 0, Conditional_MAIL_SUMM_LASTMSG, CTX_MAILSUM);
1134 RegisterConditional(HKEY("COND:MAIL:SUMM:RFCA"), 0, Conditional_MAIL_SUMM_RFCA, CTX_MAILSUM);
1135 RegisterConditional(HKEY("COND:MAIL:SUMM:CCCC"), 0, Conditional_MAIL_SUMM_CCCC, CTX_MAILSUM);
1136 RegisterConditional(HKEY("COND:MAIL:SUMM:UNREAD"), 0, Conditional_MAIL_SUMM_UNREAD, CTX_MAILSUM);
1137 RegisterConditional(HKEY("COND:MAIL:SUMM:H_NODE"), 0, Conditional_MAIL_SUMM_H_NODE, CTX_MAILSUM);
1138 RegisterConditional(HKEY("COND:MAIL:SUMM:OTHERNODE"), 0, Conditional_MAIL_SUMM_OTHERNODE, CTX_MAILSUM);
1139 RegisterConditional(HKEY("COND:MAIL:ANON"), 0, Conditional_ANONYMOUS_MESSAGE, CTX_MAILSUM);
1142 /* do we have mimetypes to iterate over? */
1143 RegisterConditional(HKEY("COND:MAIL:MIME:ATTACH"), 0, Conditional_MAIL_MIME_ALL, CTX_MAILSUM);
1144 RegisterConditional(HKEY("COND:MAIL:MIME:ATTACH:SUBMESSAGES"), 0, Conditional_MAIL_MIME_SUBMESSAGES, CTX_MAILSUM);
1145 RegisterConditional(HKEY("COND:MAIL:MIME:ATTACH:LINKS"), 0, Conditional_MAIL_MIME_ATTACHLINKS, CTX_MAILSUM);
1146 RegisterConditional(HKEY("COND:MAIL:MIME:ATTACH:ATT"), 0, Conditional_MAIL_MIME_ATTACH, CTX_MAILSUM);
1147 RegisterIterator("MAIL:MIME:ATTACH", 0, NULL, iterate_get_mime_All,
1148 NULL, NULL, CTX_MIME_ATACH, CTX_MAILSUM, IT_NOFLAG);
1149 RegisterIterator("MAIL:MIME:ATTACH:SUBMESSAGES", 0, NULL, iterate_get_mime_Submessages,
1150 NULL, NULL, CTX_MIME_ATACH, CTX_MAILSUM, IT_NOFLAG);
1151 RegisterIterator("MAIL:MIME:ATTACH:LINKS", 0, NULL, iterate_get_mime_AttachLinks,
1152 NULL, NULL, CTX_MIME_ATACH, CTX_MAILSUM, IT_NOFLAG);
1153 RegisterIterator("MAIL:MIME:ATTACH:ATT", 0, NULL, iterate_get_mime_Attachments,
1154 NULL, NULL, CTX_MIME_ATACH, CTX_MAILSUM, IT_NOFLAG);
1156 /* Parts of a mime attachent */
1157 RegisterNamespace("MAIL:MIME:NAME", 0, 2, tmplput_MIME_Name, CTX_MIME_ATACH);
1158 RegisterNamespace("MAIL:MIME:FILENAME", 0, 2, tmplput_MIME_FileName, CTX_MIME_ATACH);
1159 RegisterNamespace("MAIL:MIME:PARTNUM", 0, 2, tmplput_MIME_PartNum, CTX_MIME_ATACH);
1160 RegisterNamespace("MAIL:MIME:MSGNUM", 0, 2, tmplput_MIME_MsgNum, CTX_MIME_ATACH);
1161 RegisterNamespace("MAIL:MIME:DISPOSITION", 0, 2, tmplput_MIME_Disposition, CTX_MIME_ATACH);
1162 RegisterNamespace("MAIL:MIME:CONTENTTYPE", 0, 2, tmplput_MIME_ContentType, CTX_MIME_ATACH);
1163 RegisterNamespace("MAIL:MIME:CHARSET", 0, 2, tmplput_MIME_Charset, CTX_MIME_ATACH);
1164 RegisterNamespace("MAIL:MIME:LENGTH", 0, 2, tmplput_MIME_Length, CTX_MIME_ATACH);
1165 RegisterNamespace("MAIL:MIME:DATA", 0, 2, tmplput_MIME_Data, CTX_MIME_ATACH);
1166 /* load the actual attachment into WC->attachments; no output!!! */
1167 RegisterNamespace("MAIL:MIME:LOADDATA", 0, 0, tmplput_MIME_LoadData, CTX_MIME_ATACH);
1169 /* iterate the WC->attachments; use the above tokens for their contents */
1170 RegisterIterator("MSG:ATTACHNAMES", 0, NULL, iterate_get_registered_Attachments,
1171 NULL, NULL, CTX_MIME_ATACH, CTX_NONE, IT_NOFLAG);
1173 /* mime renderers translate an attachment into webcit viewable html text */
1174 RegisterMimeRenderer(HKEY("message/rfc822"), render_MAIL);
1175 RegisterMimeRenderer(HKEY("text/x-vcard"), render_MIME_VCard);
1176 RegisterMimeRenderer(HKEY("text/vcard"), render_MIME_VCard);
1177 RegisterMimeRenderer(HKEY("text/calendar"), render_MIME_ICS);
1178 RegisterMimeRenderer(HKEY("application/ics"), render_MIME_ICS);
1179 RegisterMimeRenderer(HKEY("text/x-citadel-variformat"), render_MAIL_variformat);
1180 RegisterMimeRenderer(HKEY("text/plain"), render_MAIL_text_plain);
1181 RegisterMimeRenderer(HKEY("text"), render_MAIL_text_plain);
1182 RegisterMimeRenderer(HKEY("text/html"), render_MAIL_html);
1183 RegisterMimeRenderer(HKEY(""), render_MAIL_UNKNOWN);
1185 /* these headers are citserver replies to MSG4 and friends. one evaluator for each */
1186 RegisterMsgHdr(HKEY("nhdr"), examine_nhdr, 0);
1187 RegisterMsgHdr(HKEY("type"), examine_type, 0);
1188 RegisterMsgHdr(HKEY("from"), examine_from, 0);
1189 RegisterMsgHdr(HKEY("subj"), examine_subj, 0);
1190 RegisterMsgHdr(HKEY("msgn"), examine_msgn, 0);
1191 RegisterMsgHdr(HKEY("wefw"), examine_wefw, 0);
1192 RegisterMsgHdr(HKEY("cccc"), examine_cccc, 0);
1193 RegisterMsgHdr(HKEY("hnod"), examine_hnod, 0);
1194 RegisterMsgHdr(HKEY("room"), examine_room, 0);
1195 RegisterMsgHdr(HKEY("rfca"), examine_rfca, 0);
1196 RegisterMsgHdr(HKEY("node"), examine_node, 0);
1197 RegisterMsgHdr(HKEY("rcpt"), examine_rcpt, 0);
1198 RegisterMsgHdr(HKEY("time"), examine_time, 0);
1199 RegisterMsgHdr(HKEY("part"), examine_mime_part, 0);
1200 RegisterMsgHdr(HKEY("text"), examine_text, 1);
1201 /* these are the content-type headers we get infront of a message; put it into the same hash since it doesn't clash. */
1202 RegisterMsgHdr(HKEY("X-Citadel-MSG4-Partnum"), examine_msg4_partnum, 0);
1203 RegisterMsgHdr(HKEY("Content-type"), examine_content_type, 0);
1204 RegisterMsgHdr(HKEY("Content-length"), examine_content_lengh, 0);
1205 RegisterMsgHdr(HKEY("Content-transfer-encoding"), examine_content_encoding, 0); /* do we care? */
1206 RegisterMsgHdr(HKEY("charset"), examine_charset, 0);
1208 /* Don't care about these... */
1209 RegisterMsgHdr(HKEY("pref"), examine_pref, 0);
1210 RegisterMsgHdr(HKEY("suff"), examine_suff, 0);
1211 RegisterMsgHdr(HKEY("path"), examine_path, 0);