/[anubis]/anubis/examples/anubis.scm
ViewVC logotype

Diff of /anubis/examples/anubis.scm

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

revision 1.4 by gray, Tue Feb 11 16:46:02 2003 UTC revision 1.5 by gray, Thu Mar 6 18:30:46 2003 UTC
# Line 109  X-Processed-By header." Line 109  X-Processed-By header."
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)))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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