48 |
(port (mu-message-get-port mesg "w"))) |
(port (mu-message-get-port mesg "w"))) |
49 |
(mu-message-set-header mesg "Content-Type" "message/delivery-status") |
(mu-message-set-header mesg "Content-Type" "message/delivery-status") |
50 |
|
|
51 |
(display "Reporting-UA: guimb; GNU Mailutils 0.0.9\n" port) |
(display (string-append "Reporting-UA: sieve; GNU " |
52 |
|
mu-package-string "\n") port) |
53 |
(display (string-append "Arrival-Date: " datestr "\n") port) |
(display (string-append "Arrival-Date: " datestr "\n") port) |
54 |
(newline port) |
(newline port) |
55 |
|
|