unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#15939: [PATCH] nndoc.el: Add new debbugs-db nndoc type
@ 2013-11-20 20:07 Ivan Shmakov
  2013-11-21 16:19 ` Ted Zlatanov
  0 siblings, 1 reply; 5+ messages in thread
From: Ivan Shmakov @ 2013-11-20 20:07 UTC (permalink / raw)
  To: 15939

	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





^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2013-11-21 18:52 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-11-20 20:07 bug#15939: [PATCH] nndoc.el: Add new debbugs-db nndoc type Ivan Shmakov
2013-11-21 16:19 ` Ted Zlatanov
2013-11-21 16:27   ` Glenn Morris
2013-11-21 17:14     ` Ted Zlatanov
2013-11-21 18:52       ` Ted Zlatanov

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).