109 |
(list (cons "X-Processed-By" "GNU Anubis"))) |
(list (cons "X-Processed-By" "GNU Anubis"))) |
110 |
(rot-13 body))) |
(rot-13 body))) |
111 |
|
|
112 |
(define (anubis-rot-13-header hdr body) |
(define (anubis-rot-13-header hdr body . rest) |
113 |
"Encode the \"Subject\" header using ROT-13." |
"Encode the \"Subject\" header using ROT-13." |
114 |
(DEBUG 1 "anubis-rot-13-header called with hdr=" hdr |
(DEBUG 1 "anubis-rot-13-header called with hdr=" hdr |
115 |
" and body=\"" body "\"") |
" and body=\"" body "\" and rest=" rest ";") |
116 |
(cons (map (lambda (x) |
(cons (map (lambda (x) |
117 |
(if (string-ci=? (car x) "subject") |
(if (string-ci=? (car x) "subject") |
118 |
(cons (car x) (rot-13 (cdr x))) |
(cons (car x) (rot-13 (cdr x))) |