/[mailutils]/mailutils/libmu_scm/mu_address.c
ViewVC logotype

Diff of /mailutils/libmu_scm/mu_address.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by gray, Sun Aug 25 12:43:30 2002 UTC revision 1.7 by gray, Tue Sep 10 12:03:42 2002 UTC
# Line 41  _get_address_part (const char *func_name Line 41  _get_address_part (const char *func_name
41    else    else
42      num = 1;      num = 1;
43    
44    str = SCM_CHARS (ADDRESS);    str = SCM_STRING_CHARS (ADDRESS);
45    length = strlen (str);    length = strlen (str);
46    if (length == 0)    if (length == 0)
47      return scm_makfrom0str("");      return scm_makfrom0str("");
48        
49    if (address_create (&addr, SCM_CHARS (ADDRESS)))    if (address_create (&addr, SCM_STRING_CHARS (ADDRESS)))
50      return SCM_BOOL_F;      return SCM_BOOL_F;
51    
52    str = malloc (length + 1);    str = malloc (length + 1);
# Line 126  SCM_DEFINE (mu_address_get_count, "mu-ad Line 126  SCM_DEFINE (mu_address_get_count, "mu-ad
126    SCM_ASSERT (SCM_NIMP (ADDRESS) && SCM_STRINGP (ADDRESS),    SCM_ASSERT (SCM_NIMP (ADDRESS) && SCM_STRINGP (ADDRESS),
127                ADDRESS, SCM_ARG1, FUNC_NAME);                ADDRESS, SCM_ARG1, FUNC_NAME);
128    
129    if (address_create (&addr, SCM_CHARS (ADDRESS)))    if (address_create (&addr, SCM_STRING_CHARS (ADDRESS)))
130      return SCM_MAKINUM(0);      return SCM_MAKINUM(0);
131    
132    address_get_count (addr, &count);    address_get_count (addr, &count);
# Line 150  SCM_DEFINE (mu_username_to_email, "mu-us Line 150  SCM_DEFINE (mu_username_to_email, "mu-us
150    else {    else {
151      SCM_ASSERT (SCM_NIMP (NAME) && SCM_STRINGP (NAME),      SCM_ASSERT (SCM_NIMP (NAME) && SCM_STRINGP (NAME),
152                  NAME, SCM_ARG1, FUNC_NAME);                  NAME, SCM_ARG1, FUNC_NAME);
153      name = SCM_CHARS (NAME);      name = SCM_STRING_CHARS (NAME);
154    }    }
155    
156    email = mu_get_user_email (name);    email = mu_get_user_email (name);

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26