2001-09-29 Simon Josefsson <jas@extundo.com>

	* nndoc.el (nndoc-article-type): Add mailman.
	(nndoc-type-alist): Ditto.
	(nndoc-mailman-type-p): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14b9a91..d8602ba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-29  Simon Josefsson  <jas@extundo.com>
+
+       * nndoc.el (nndoc-article-type): Add mailman.
+       (nndoc-type-alist): Ditto.
+       (nndoc-mailman-type-p): New function.
+
 2001-09-28 07:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-xmas.el (gnus-article-x-face-command): Merge it into

diff --git a/lisp/nndoc.el b/lisp/nndoc.el
index efea5b9..8d2b79c 100644 (file)
--- a/lisp/nndoc.el
+++ b/lisp/nndoc.el
@@ -43,8 +43,8 @@
   "*Type of the file.
 One of `mbox', `babyl', `digest', `news', `rnews', `mmdf', `forward',
 `rfc934', `rfc822-forward', `mime-parts', `standard-digest',
-`slack-digest', `clari-briefs', `nsmail', `outlook', `oe-dbx' or
-`guess'.")
+`slack-digest', `clari-briefs', `nsmail', `outlook', `oe-dbx',
+`mailman' or `guess'.")
 
 (defvoo nndoc-post-type 'mail
   "*Whether the nndoc group is `mail' or `post'.")
@@ -81,6 +81,10 @@ from the document.")
      (article-begin . "^--.*\n+")
      (body-end . "^--.*$")
      (prepare-body-function . nndoc-unquote-dashes))
+    (mailman
+     (article-begin . "^--__--__--\n\nMessage:")
+     (body-end . "^--__--__--$")
+     (prepare-body-function . nndoc-unquote-dashes))
     (clari-briefs
      (article-begin . "^ \\*")
      (body-end . "^\t------*[ \t]^*\n^ \\*")
@@ -469,6 +473,10 @@ from the document.")
             (not (re-search-forward "^From:" nil t 2)))
     t))
 
+(defun nndoc-mailman-type-p ()
+  (when (re-search-forward "^--__--__--\n+" nil t)
+    t))
+
 (defun nndoc-rfc822-forward-type-p ()
   (save-restriction
     (message-narrow-to-head)