From 1cf525ad7287cff411afb390560163641e9d43d8 Mon Sep 17 00:00:00 2001 From: Ivan Shmakov Date: Thu, 21 Nov 2013 22:15:30 +0000 Subject: [PATCH] lisp/gnus/nndoc.el (nndoc-type-alist, nndoc-debbugs-db-type-p): Support debbugs .log files --- lisp/gnus/ChangeLog | 9 +++++++++ lisp/gnus/nndoc.el | 8 ++++++++ 2 files changed, 17 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index fceeeb2bd23..11f9e59c478 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,12 @@ +2013-11-21 Ivan Shmakov (tiny change) + + * nndoc.el (nndoc-type-alist, nndoc-debbugs-db-type-p): Support debbugs + .log files. + +2013-11-20 David Engster + + * lpath.el: Fix XEmacs warning for `beginning-of-visual-line'. + 2013-11-20 Dave Goldberg * message.el (message-beginning-of-line): diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el index b17a7a6ecd8..69ac2e8fad8 100644 --- a/lisp/gnus/nndoc.el +++ b/lisp/gnus/nndoc.el @@ -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)) -- 2.39.2