75 |
(else #t)))) |
(else #t)))) |
76 |
(else #t)))) |
(else #t)))) |
77 |
|
|
78 |
;;; This function illustrates the concept of Anubis postprocess |
;;; This function illustrates the concept of Anubis message processing |
79 |
;;; functions. |
;;; functions. |
80 |
;;; A postprocess function takes two arguments: |
;;; A processing function takes two arguments: |
81 |
;;; |
;;; |
82 |
;;; HDR -- A list of message headers. Each list element is a cons |
;;; HDR -- A list of message headers. Each list element is a cons |
83 |
;;; (NAME . VALUE), where NAME is the name of the header field, |
;;; (NAME . VALUE), where NAME is the name of the header field, |
96 |
;;; #f -- delete entire body. |
;;; #f -- delete entire body. |
97 |
;;; #t -- preserve the body as is. |
;;; #t -- preserve the body as is. |
98 |
|
|
99 |
(define (postprocess hdr body) |
(define (msg-process hdr body) |
100 |
"Encode the \"Subject\" header and the body using ROT-13. Add |
"Encode the \"Subject\" header and the body using ROT-13. Add |
101 |
X-Processed-By header." |
X-Processed-By header." |
102 |
(DEBUG 1 "postprocess called with hdr=" hdr " and body=\"" body "\"") |
(DEBUG 1 "postprocess called with hdr=" hdr " and body=\"" body "\"") |