/[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.2 by gray, Sat Feb 1 21:06:53 2003 UTC revision 1.3 by gray, Thu Feb 6 15:46:32 2003 UTC
# Line 75  is preserved in X-Anubis-Preserved-Heade Line 75  is preserved in X-Anubis-Preserved-Heade
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,
# Line 96  is preserved in X-Anubis-Preserved-Heade Line 96  is preserved in X-Anubis-Preserved-Heade
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 "\"")

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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