2
** Copyright (C) 2011 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
4
** This program is free software; you can redistribute it and/or modify it
5
** under the terms of the GNU General Public License as published by the
6
** Free Software Foundation; either version 3, or (at your option) any
9
** This program is distributed in the hope that it will be useful,
10
** but WITHOUT ANY WARRANTY; without even the implied warranty of
11
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
** GNU General Public License for more details.
14
** You should have received a copy of the GNU General Public License
15
** along with this program; if not, write to the Free Software Foundation,
16
** Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
22
#include <mu-runtime.h>
24
#include "mu-guile-msg.h"
25
#include "mu-guile-common.h"
27
struct _MuMsgWrapper {
31
typedef struct _MuMsgWrapper MuMsgWrapper;
36
mu_guile_scm_is_msg (SCM scm)
38
return SCM_NIMP(scm) && (long) SCM_CAR (scm) == MSG_TAG;
43
mu_guile_msg_to_scm (MuMsg *msg)
45
MuMsgWrapper *msgwrap;
47
g_return_val_if_fail (msg, SCM_UNDEFINED);
49
msgwrap = scm_gc_malloc (sizeof (MuMsgWrapper), "msg");
51
msgwrap->_unrefme = FALSE;
53
SCM_RETURN_NEWSMOB (MSG_TAG, msgwrap);
56
SCM_DEFINE (msg_make_from_file, "mu:msg:make-from-file", 1, 0, 0,
58
"Create a message object based on the message in PATH.\n")
59
#define FUNC_NAME s_msg_make_from_file
64
SCM_ASSERT (scm_is_string (PATH), PATH, SCM_ARG1, FUNC_NAME);
67
msg = mu_msg_new_from_file (scm_to_utf8_string (PATH), NULL, &err);
70
mu_guile_g_error (FUNC_NAME, err);
74
return msg ? mu_guile_msg_to_scm (msg) : SCM_UNDEFINED;
79
SCM_DEFINE (msg_move, "mu:msg:move-to-maildir", 2, 0, 0,
80
(SCM MSG, SCM TARGETMDIR),
81
"Move message to another maildir TARGETMDIR. Note that this the "
82
"base-level Maildir, ie. /home/user/Maildir/archive, and must"
83
" _not_ include the 'cur' or 'new' part. mu_msg_move_to_maildir "
84
"will make sure that the copy is from new/ to new/ and cur/ to "
85
"cur/. Also note that the target maildir must be on the same "
86
"filesystem. Returns #t if it worked, #f otherwise.\n")
87
#define FUNC_NAME s_msg_move
90
MuMsgWrapper *msgwrap;
93
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
94
SCM_ASSERT (scm_is_string (TARGETMDIR), TARGETMDIR, SCM_ARG2, FUNC_NAME);
96
msgwrap = (MuMsgWrapper*) SCM_CDR(MSG);
99
rv = mu_msg_move_to_maildir (msgwrap->_msg,
100
scm_to_utf8_string (TARGETMDIR), &err);
102
mu_guile_g_error (FUNC_NAME, err);
106
return rv ? SCM_BOOL_T : SCM_BOOL_F;
115
scm_from_string_or_null (const char *str)
117
return str ? scm_from_utf8_string (str) : SCM_UNSPECIFIED;
122
msg_str_field (SCM msg_smob, MuMsgFieldId mfid)
124
MuMsgWrapper *msgwrap;
125
msgwrap = (MuMsgWrapper*) SCM_CDR(msg_smob);
127
return scm_from_string_or_null (
128
mu_msg_get_field_string(msgwrap->_msg, mfid));
132
msg_num_field (SCM msg_smob, MuMsgFieldId mfid)
134
MuMsgWrapper *msgwrap;
135
msgwrap = (MuMsgWrapper*) SCM_CDR(msg_smob);
137
return mu_msg_get_field_numeric(msgwrap->_msg, mfid);
141
SCM_DEFINE (msg_date, "mu:msg:date", 1, 0, 0,
143
"Get the date (time in seconds since epoch) for MSG.\n")
144
#define FUNC_NAME s_msg_date
146
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
148
return scm_from_unsigned_integer
149
(msg_num_field (MSG, MU_MSG_FIELD_ID_DATE));
155
SCM_DEFINE (msg_size, "mu:msg:size", 1, 0, 0,
157
"Get the size in bytes for MSG.\n")
158
#define FUNC_NAME s_msg_size
160
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
162
return scm_from_unsigned_integer
163
(msg_num_field (MSG, MU_MSG_FIELD_ID_SIZE));
169
SCM_DEFINE (msg_prio, "mu:msg:priority", 1, 0, 0,
171
"Get the priority of MSG (low, normal or high).\n")
172
#define FUNC_NAME s_msg_prio
175
MuMsgWrapper *msgwrap;
177
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
179
msgwrap = (MuMsgWrapper*) SCM_CDR(MSG);
181
prio = mu_msg_get_prio (msgwrap->_msg);
184
case MU_MSG_PRIO_LOW: return scm_from_locale_symbol("mu:low");
185
case MU_MSG_PRIO_NORMAL: return scm_from_locale_symbol("mu:normal");
186
case MU_MSG_PRIO_HIGH: return scm_from_locale_symbol("mu:high");
188
g_return_val_if_reached (SCM_UNDEFINED);
197
typedef struct _FlagData FlagData;
201
check_flag (MuMsgFlags flag, FlagData *fdata)
203
if (fdata->flags & flag) {
207
flagsym = g_strconcat ("mu:", mu_msg_flag_name(flag), NULL);
208
item = scm_list_1 (scm_from_locale_symbol(flagsym));
211
fdata->lst = scm_append_x (scm_list_2(fdata->lst, item));
216
SCM_DEFINE (msg_flags, "mu:msg:flags", 1, 0, 0,
218
"Get the flags for MSG (one or or more of new, passed, replied, "
219
"seen, trashed, draft, flagged, unread, signed, encrypted, "
221
#define FUNC_NAME s_msg_flags
223
MuMsgWrapper *msgwrap;
225
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
227
msgwrap = (MuMsgWrapper*) SCM_CDR(MSG);
229
fdata.flags = mu_msg_get_flags (msgwrap->_msg);
231
mu_msg_flags_foreach ((MuMsgFlagsForeachFunc)check_flag,
239
SCM_DEFINE (msg_subject, "mu:msg:subject", 1, 0, 0,
240
(SCM MSG), "Get the subject of MSG.\n")
241
#define FUNC_NAME s_msg_subject
243
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
245
return msg_str_field (MSG, MU_MSG_FIELD_ID_SUBJECT);
250
SCM_DEFINE (msg_from, "mu:msg:from", 1, 0, 0,
251
(SCM MSG), "Get the sender of MSG.\n")
252
#define FUNC_NAME s_msg_from
254
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
256
return msg_str_field (MSG, MU_MSG_FIELD_ID_FROM);
260
struct _EachContactData {
262
MuMsgContactType ctype;
264
typedef struct _EachContactData EachContactData;
267
contacts_to_list (MuMsgContact *contact, EachContactData *ecdata)
269
if (mu_msg_contact_type (contact) == ecdata->ctype) {
271
const char *addr, *name;
273
addr = mu_msg_contact_address(contact);
274
name = mu_msg_contact_name(contact);
278
scm_from_string_or_null(name),
279
scm_from_string_or_null(addr)));
280
ecdata->lst = scm_append_x (scm_list_2(ecdata->lst, item));
286
contact_list_field (SCM msg_smob, MuMsgFieldId mfid)
288
MuMsgWrapper *msgwrap;
289
EachContactData ecdata;
291
ecdata.lst = SCM_EOL;
294
case MU_MSG_FIELD_ID_TO: ecdata.ctype = MU_MSG_CONTACT_TYPE_TO; break;
295
case MU_MSG_FIELD_ID_CC: ecdata.ctype = MU_MSG_CONTACT_TYPE_CC; break;
296
case MU_MSG_FIELD_ID_BCC: ecdata.ctype = MU_MSG_CONTACT_TYPE_BCC; break;
297
default: g_return_val_if_reached (SCM_UNDEFINED);
300
msgwrap = (MuMsgWrapper*) SCM_CDR(msg_smob);
302
mu_msg_contact_foreach (msgwrap->_msg,
303
(MuMsgContactForeachFunc)contacts_to_list,
309
SCM_DEFINE (msg_to, "mu:msg:to", 1, 0, 0,
310
(SCM MSG), "Get the list of To:-recipients of MSG.\n")
311
#define FUNC_NAME s_msg_to
313
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
315
return contact_list_field (MSG, MU_MSG_FIELD_ID_TO);
321
SCM_DEFINE (msg_cc, "mu:msg:cc", 1, 0, 0,
322
(SCM MSG), "Get the list of Cc:-recipients of MSG.\n")
323
#define FUNC_NAME s_msg_cc
325
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
327
return contact_list_field (MSG, MU_MSG_FIELD_ID_CC);
332
SCM_DEFINE (msg_bcc, "mu:msg:bcc", 1, 0, 0,
333
(SCM MSG), "Get the list of Bcc:-recipients of MSG.\n")
334
#define FUNC_NAME s_msg_bcc
336
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
338
return contact_list_field (MSG, MU_MSG_FIELD_ID_BCC);
343
SCM_DEFINE (msg_path, "mu:msg:path", 1, 0, 0,
344
(SCM MSG), "Get the filesystem path for MSG.\n")
345
#define FUNC_NAME s_msg_path
347
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
349
return msg_str_field (MSG, MU_MSG_FIELD_ID_PATH);
354
SCM_DEFINE (msg_maildir, "mu:msg:maildir", 1, 0, 0,
355
(SCM MSG), "Get the maildir where MSG lives.\n")
356
#define FUNC_NAME s_msg_maildir
358
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
360
return msg_str_field (MSG, MU_MSG_FIELD_ID_MAILDIR);
366
SCM_DEFINE (msg_msgid, "mu:msg:message-id", 1, 0, 0,
367
(SCM MSG), "Get the MSG's message-id.\n")
368
#define FUNC_NAME s_msg_msgid
370
return msg_str_field (MSG, MU_MSG_FIELD_ID_MSGID);
375
SCM_DEFINE (msg_body, "mu:msg:body", 1, 1, 0,
376
(SCM MSG, SCM HTML), "Get the MSG's body. If HTML is #t, "
377
"prefer the html-version, otherwise prefer plain text.\n")
378
#define FUNC_NAME s_msg_body
380
MuMsgWrapper *msgwrap;
384
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
386
msgwrap = (MuMsgWrapper*) SCM_CDR(MSG);
387
html = SCM_UNBNDP(HTML) ? FALSE : HTML == SCM_BOOL_T;
390
val = mu_msg_get_body_html(msgwrap->_msg);
392
val = mu_msg_get_body_text(msgwrap->_msg);
394
return scm_from_string_or_null (val);
399
SCM_DEFINE (msg_header, "mu:msg:header", 1, 1, 0,
400
(SCM MSG, SCM HEADER), "Get an arbitary HEADER from MSG.\n")
401
#define FUNC_NAME s_msg_header
403
MuMsgWrapper *msgwrap;
407
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
408
SCM_ASSERT (scm_is_string (HEADER), HEADER, SCM_ARG2, FUNC_NAME);
410
msgwrap = (MuMsgWrapper*) SCM_CDR(MSG);
411
header = scm_to_utf8_string (HEADER);
412
val = mu_msg_get_header(msgwrap->_msg, header);
414
return val ? scm_from_string_or_null(val) : SCM_UNDEFINED;
419
msg_string_list_field (SCM msg_smob, MuMsgFieldId mfid)
421
MuMsgWrapper *msgwrap;
425
msgwrap = (MuMsgWrapper*) SCM_CDR(msg_smob);
426
lst = mu_msg_get_field_string_list (msgwrap->_msg, mfid);
428
for (scmlst = SCM_EOL; lst;
429
lst = g_slist_next(lst)) {
432
(scm_from_string_or_null((const char*)lst->data));
433
scmlst = scm_append_x (scm_list_2(scmlst, item));
440
SCM_DEFINE (msg_tags, "mu:msg:tags", 1, 1, 0,
441
(SCM MSG), "Get the list of tags (contents of the "
442
"X-Label:-header) for MSG.\n")
443
#define FUNC_NAME s_msg_tags
445
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
447
return msg_string_list_field (MSG, MU_MSG_FIELD_ID_TAGS);
453
SCM_DEFINE (msg_refs, "mu:msg:references", 1, 1, 0,
454
(SCM MSG), "Get the list of referenced message-ids "
455
"(contents of the References: and Reply-To: headers).\n")
456
#define FUNC_NAME s_msg_refs
458
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
460
return msg_string_list_field (MSG, MU_MSG_FIELD_ID_REFS);
466
msg_mark (SCM msg_smob)
468
MuMsgWrapper *msgwrap;
469
msgwrap = (MuMsgWrapper*) SCM_CDR(msg_smob);
471
msgwrap->_unrefme = TRUE;
473
return SCM_UNSPECIFIED;
477
msg_free (SCM msg_smob)
479
MuMsgWrapper *msgwrap;
480
msgwrap = (MuMsgWrapper*) SCM_CDR(msg_smob);
482
if (msgwrap->_unrefme)
483
mu_msg_unref (msgwrap->_msg);
485
return sizeof (MuMsgWrapper);
489
msg_print (SCM msg_smob, SCM port, scm_print_state * pstate)
491
MuMsgWrapper *msgwrap;
492
msgwrap = (MuMsgWrapper*) SCM_CDR(msg_smob);
494
scm_puts ("#<msg ", port);
496
if (msg_smob == SCM_BOOL_F)
497
scm_puts ("#f", port);
499
scm_puts (mu_msg_get_path(msgwrap->_msg),
502
scm_puts (">", port);
509
define_symbols (void)
511
/* message priority */
512
scm_c_define ("mu:high", scm_from_int(MU_MSG_PRIO_HIGH));
513
scm_c_define ("mu:low", scm_from_int(MU_MSG_PRIO_LOW));
514
scm_c_define ("mu:normal", scm_from_int(MU_MSG_PRIO_NORMAL));
517
scm_c_define ("mu:new", scm_from_int(MU_MSG_FLAG_NEW));
518
scm_c_define ("mu:passed", scm_from_int(MU_MSG_FLAG_PASSED));
519
scm_c_define ("mu:replied", scm_from_int(MU_MSG_FLAG_REPLIED));
520
scm_c_define ("mu:seen", scm_from_int(MU_MSG_FLAG_SEEN));
521
scm_c_define ("mu:trashed", scm_from_int(MU_MSG_FLAG_TRASHED));
522
scm_c_define ("mu:draft", scm_from_int(MU_MSG_FLAG_DRAFT));
523
scm_c_define ("mu:flagged", scm_from_int(MU_MSG_FLAG_FLAGGED));
524
scm_c_define ("mu:unread", scm_from_int(MU_MSG_FLAG_UNREAD));
525
scm_c_define ("mu:signed", scm_from_int(MU_MSG_FLAG_SIGNED));
526
scm_c_define ("mu:encrypted", scm_from_int(MU_MSG_FLAG_ENCRYPTED));
527
scm_c_define ("mu:has-attach", scm_from_int(MU_MSG_FLAG_HAS_ATTACH));
532
mu_guile_msg_load_current (const char *path)
539
msg = mu_msg_new_from_file (path, NULL, &err);
542
g_printerr ("error creating message for '%s'", path);
544
g_printerr (": %s", err->message);
551
msgsmob = mu_guile_msg_to_scm (msg);
552
scm_c_define ("mu:current-msg", msgsmob);
559
mu_guile_msg_init (void *data)
562
MSG_TAG = scm_make_smob_type ("msg", sizeof(MuMsgWrapper));
564
scm_set_smob_mark (MSG_TAG, msg_mark);
565
scm_set_smob_free (MSG_TAG, msg_free);
566
scm_set_smob_print (MSG_TAG, msg_print);
570
#include "mu-guile-msg.x"