diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-08-20 14:54:53 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-08-20 14:54:53 +0000 |
commit | e8a09b3f9ce08238cfb77ca52629f891a6ea69b4 (patch) | |
tree | 27f3cab7c6ae9eaa2a2a6db77cbed4458201155b /libmu_scm | |
parent | 544820d6a3a922c946da30f07fe42b48abdac71d (diff) | |
download | mailutils-e8a09b3f9ce08238cfb77ca52629f891a6ea69b4.tar.gz mailutils-e8a09b3f9ce08238cfb77ca52629f891a6ea69b4.tar.bz2 |
Properly access mu-mailer and mu-message values.
Diffstat (limited to 'libmu_scm')
-rw-r--r-- | libmu_scm/mu_message.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/libmu_scm/mu_message.c b/libmu_scm/mu_message.c index 5de35f121..dab71cf50 100644 --- a/libmu_scm/mu_message.c +++ b/libmu_scm/mu_message.c | |||
@@ -801,7 +801,7 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0, | |||
801 | mailer_t mailer = NULL; | 801 | mailer_t mailer = NULL; |
802 | message_t msg; | 802 | message_t msg; |
803 | int status; | 803 | int status; |
804 | 804 | ||
805 | SCM_ASSERT (mu_scm_is_message (MESG), MESG, SCM_ARG1, FUNC_NAME); | 805 | SCM_ASSERT (mu_scm_is_message (MESG), MESG, SCM_ARG1, FUNC_NAME); |
806 | msg = mu_scm_message_get (MESG); | 806 | msg = mu_scm_message_get (MESG); |
807 | 807 | ||
@@ -812,8 +812,11 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0, | |||
812 | mailer_name = SCM_STRING_CHARS (MAILER); | 812 | mailer_name = SCM_STRING_CHARS (MAILER); |
813 | } | 813 | } |
814 | else | 814 | else |
815 | mailer_name = SCM_STRING_CHARS(_mu_scm_mailer); | 815 | { |
816 | 816 | SCM val = MU_SCM_SYMBOL_VALUE("mu-mailer"); | |
817 | mailer_name = SCM_STRING_CHARS(val); | ||
818 | } | ||
819 | |||
817 | if (!SCM_UNBNDP (FROM) && FROM != SCM_BOOL_F) | 820 | if (!SCM_UNBNDP (FROM) && FROM != SCM_BOOL_F) |
818 | { | 821 | { |
819 | SCM_ASSERT (SCM_NIMP (FROM) && SCM_STRINGP (FROM) | 822 | SCM_ASSERT (SCM_NIMP (FROM) && SCM_STRINGP (FROM) |
@@ -833,7 +836,7 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0, | |||
833 | return SCM_BOOL_F; | 836 | return SCM_BOOL_F; |
834 | } | 837 | } |
835 | 838 | ||
836 | if (SCM_INUM(_mu_scm_debug)) | 839 | if (SCM_INUM(MU_SCM_SYMBOL_VALUE("mu-debug"))) |
837 | { | 840 | { |
838 | mu_debug_t debug = NULL; | 841 | mu_debug_t debug = NULL; |
839 | mailer_get_debug (mailer, &debug); | 842 | mailer_get_debug (mailer, &debug); |