Subject: bug#15939: [PATCH] nndoc.el: Add new debbugs-db nndoc type

From: Ivan Shmakov <[email-masked]>
Date: Wed, 20 Nov 2013 20:07:54 +0000

Given that Debbugs is used for Emacs development itself, it
	seems quite appropriate to add Debbugs .log file support to the
	nndoc Gnus’ select method.  Please thus consider the following
	patch.

	An example Debbugs .log file to test the patched nndoc against
	could be retrieved with, say:

$ rsync -t -- \
      rsync://bugs-mirror.debian.org/bts-spool-db/83/688283.log \
      688283.log 

	(Then: G f 688283.log RET in the *Group* buffer.)

--- lisp/gnus/nndoc.el.~1~
+++ lisp/gnus/nndoc.el	2013-11-20 19:58:04.000000000 +0000
@@ -56,6 +56,10 @@ from the document.")
   `((mmdf
      (article-begin .  "^\^A\^A\^A\^A\n")
      (body-end .  "^\^A\^A\^A\^A\n"))
+    (debbugs-db
+     (file-begin    . "^\005")
+     (article-begin . "^[\005\007]\n")
+     (body-end      . "^\003"))
     (mime-digest
      (article-begin . "")
      (head-begin . "^ ?\n")
@@ -460,6 +464,10 @@ from the document.")
   (when (looking-at "\^A\^A\^A\^A$")
     t))
 
+(defun nndoc-debbugs-db-type-p ()
+  (when (looking-at "\006$")
+    t))
+
 (defun nndoc-news-type-p ()
   (when (looking-at "^Path:.*\n")
     t))

-- 
FSF associate member #7257