;
; AWADmail
;
(defun nndoc-awadmail-type-p nil
  "Decide whether an article is an AWADmail digest"
  (let ((case-fold-search nil))
    (not (not
	  (and
	   (re-search-forward "^From: .*<wsmith@wordsmith.org>" nil t)
	   (re-search-forward "^Subject: AWADmail Issue" nil t)
	   (re-search-forward
	    "^ *A Compendium of Feedback on the Words in A.Word.A.Day$"
	    nil t)
	   )))
    ))
(nndoc-add-type
 '(awadmail
   (first-article . "^----------------------------\n\nFrom:")
   (article-begin . "^----------------------------\n\nFrom:")
   (head-end . "^\n")
   (body-begin . "^")
   (body-end . "^\n----------------------------$")
   (file-end . "^Send your comments to wordsATwordsmith.org.")
   ))