turn off Scribble e-mail address obfuscation

svn: r15989

collects/scribble/base.ss

@@ -134,14 +134,16 @@
                                     (make-element #f (list "," nl)))
                        (list "," nl "and " (car r))))]))))
 
-(define (author+email name email)
+(define (author+email name email #:obfuscate? [obfuscate? #f])
   (make-element #f
                 (list
                  name
                  " <" 
-                 (regexp-replace* #rx"[.]"
+                 (if obfuscate?
-                                  (regexp-replace* #rx"@" email " at ")
+                     (regexp-replace* #rx"[.]"
-                                  " dot ")
+                                      (regexp-replace* #rx"@" email " at ")
+                                      " dot ")
+                     email)
                  ">")))
 
 ;; ----------------------------------------

collects/scribblings/scribble/base.scrbl

@@ -123,10 +123,14 @@ show the author(s) of a document, where each author is represented by
 @scheme[title] for the beginning of a document. See also
 @scheme[author+email].}
 
-@defproc[(author+email [author elem] [email string?]) element?]{
+@defproc[(author+email [author elem] 
+                       [email string?] 
+                       [#:obfuscate? obfuscate? any/c #f])
+         element?]{
 
-Combines an author name with an e-mail address, obscuring the e-mail
+Combines an author name with an e-mail address. If @scheme[obfuscate?]
-address slightly to avoid address-harvesting robots.}
+is true, then the result obscures the e-mail address slightly to avoid
+address-harvesting robots.}
 
 @; ------------------------------------------------------------------------