Do babyl before mime-parts.

Suggested by Jason Eisner.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9a3693..837845c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nndoc.el (nndoc-type-alist): Do babyl before mime-parts.  Suggested
+       by Jason Eisner.
+
        * gnus-async.el (gnus-async-delete-prefetched-entry): Remove from hash
        table, too.  Suggested by Stefan Wiens.
        (gnus-async-prefetched-article-entry): Use intern-soft to avoid growing

diff --git a/lisp/nndoc.el b/lisp/nndoc.el
index 588eeb1..46d775a 100644 (file)
--- a/lisp/nndoc.el
+++ b/lisp/nndoc.el
@@ -74,14 +74,14 @@ from the document.")
     (mbox
      (article-begin-function . nndoc-mbox-article-begin)
      (body-end-function . nndoc-mbox-body-end))
-    (mime-parts
-     (generate-head-function . nndoc-generate-mime-parts-head)
-     (article-transform-function . nndoc-transform-mime-parts))
     (babyl
      (article-begin . "\^_\^L *\n")
      (body-end . "\^_")
      (body-begin-function . nndoc-babyl-body-begin)
      (head-begin-function . nndoc-babyl-head-begin))
+    (mime-parts
+     (generate-head-function . nndoc-generate-mime-parts-head)
+     (article-transform-function . nndoc-transform-mime-parts))
     (exim-bounce
      (article-begin . "^------ This is a copy of the message, including all the headers. ------\n\n")
      (body-end-function . nndoc-exim-bounce-body-end-function))