Commit 9ae03487 9ae03487e1f68b8cca7a60cdb932efe1d21303b8 by Sergey Poznyakoff

(mu_message_set_header_fields): Bugfix.

1 parent c39ad56f
...@@ -449,6 +449,7 @@ SCM_DEFINE (mu_message_set_header_fields, "mu-message-set-header-fields", 2, 1, ...@@ -449,6 +449,7 @@ SCM_DEFINE (mu_message_set_header_fields, "mu-message-set-header-fields", 2, 1,
449 replace = REPLACE == SCM_BOOL_T; 449 replace = REPLACE == SCM_BOOL_T;
450 } 450 }
451 451
452 message_get_header (msg, &hdr);
452 for (list = LIST; list != SCM_EOL; list = SCM_CDR (list)) 453 for (list = LIST; list != SCM_EOL; list = SCM_CDR (list))
453 { 454 {
454 SCM cell = SCM_CAR (list); 455 SCM cell = SCM_CAR (list);
......