diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-01-06 17:01:10 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-01-06 17:01:10 +0200 |
commit | 91022df9ce5b2ffafaf1b602f028922dc77e35e4 (patch) | |
tree | e676e5e13211eb302de0d15b908e837fbb7a2e70 /scheme | |
parent | 284d8c5a28972234c51c8fa4a299e7f64b490d10 (diff) | |
download | mailutils-91022df9ce5b2ffafaf1b602f028922dc77e35e4.tar.gz mailutils-91022df9ce5b2ffafaf1b602f028922dc77e35e4.tar.bz2 |
Minor changes in scheme-related code.
* libmu_scm/mu_scm.c (_mu_scm_bugreport, mu-bugreport): New variable.
(format_table): Add pops and imaps.
* scheme/reject.scm: Minor changes.
* scheme/sieve2scm.scmi: Minor changes.
Diffstat (limited to 'scheme')
-rw-r--r-- | scheme/reject.scm | 2 | ||||
-rw-r--r-- | scheme/sieve2scm.scmi | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/scheme/reject.scm b/scheme/reject.scm index a418d4b77..117031f30 100644 --- a/scheme/reject.scm +++ b/scheme/reject.scm @@ -50,7 +50,7 @@ (port (mu-message-get-port mesg "w"))) (mu-message-set-header mesg "Content-Type" "message/delivery-status") - (display (string-append "Reporting-UA: sieve; GNU " + (display (string-append "Reporting-UA: sieve; " mu-package-string "\n") port) (display (string-append "Arrival-Date: " datestr "\n") port) (newline port) diff --git a/scheme/sieve2scm.scmi b/scheme/sieve2scm.scmi index 5c9cf4911..6ab1ace5a 100644 --- a/scheme/sieve2scm.scmi +++ b/scheme/sieve2scm.scmi @@ -995,7 +995,7 @@ exec ${GUILE-guile} -l $0 -c '(mailutils-main)'\n") (exit 0)) (define (sieve-version) - (display "sieve.scm (GNU %PACKAGE% %VERSION%)") + (display "sieve2scm (GNU %PACKAGE% %VERSION%)") (newline) (exit 0)) |