Skip to content

John McEleney / mailutils

Go to a project
Toggle navigation
Toggle navigation pinning
Commit 678d86a4 678d86a43492caf6f82b7068ff28d0f172d59bec by Sergey Poznyakoff
Options

(mu_scm_mime_print) Added missing return value.

1 parent 2964364a
Inline Side-by-side
Showing 1 changed file with 2 additions and 2 deletions
...@@ -55,6 +55,8 @@ mu_scm_mime_print (SCM mime_smob, SCM port, scm_print_state * pstate) ...@@ -55,6 +55,8 @@ mu_scm_mime_print (SCM mime_smob, SCM port, scm_print_state * pstate)
55 scm_puts ("#<mime ", port); 55 scm_puts ("#<mime ", port);
56 scm_intprint (nparts, 10, port); 56 scm_intprint (nparts, 10, port);
57 scm_putc ('>', port); 57 scm_putc ('>', port);
58
59 return 1;
58 } 60 }
59 61
60 /* Internal calls: */ 62 /* Internal calls: */
...@@ -125,8 +127,6 @@ SCM_DEFINE (mu_mime_multipart_p, "mu-mime-multipart?", 1, 0, 0, ...@@ -125,8 +127,6 @@ SCM_DEFINE (mu_mime_multipart_p, "mu-mime-multipart?", 1, 0, 0,
125 "Returns #t if MIME is a multipart object.\n") 127 "Returns #t if MIME is a multipart object.\n")
126 #define FUNC_NAME s_mu_mime_multipart_p 128 #define FUNC_NAME s_mu_mime_multipart_p
127 { 129 {
128 mime_t mime;
129
130 SCM_ASSERT (mu_scm_is_mime (MIME), MIME, SCM_ARG1, FUNC_NAME); 130 SCM_ASSERT (mu_scm_is_mime (MIME), MIME, SCM_ARG1, FUNC_NAME);
131 return mime_is_multipart (mu_scm_mime_get (MIME)) ? SCM_BOOL_T : SCM_BOOL_F; 131 return mime_is_multipart (mu_scm_mime_get (MIME)) ? SCM_BOOL_T : SCM_BOOL_F;
132 } 132 }
......