(nndoc-dissect-buffer): Don't miss odd-numbered articles in digest.
+2003-10-24 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * nndoc.el (nndoc-guess-type): Reverse the sort order. Suggested
+ by ARISAWA Akihiro <ari@mbf.ocn.ne.jp>.
+ (nndoc-dissect-buffer): Don't miss odd-numbered articles in digest.
+
2003-10-24 Steve Youngs <sryoungs@bigpond.net.au>
* dgnushack.el (dgnushack-gnus-load-file): Set to
2003-10-24 Steve Youngs <sryoungs@bigpond.net.au>
* dgnushack.el (dgnushack-gnus-load-file): Set to
(error "Document is not of any recognized type"))
(if result
(car entry)
(error "Document is not of any recognized type"))
(if result
(car entry)
- (cadar (sort results 'car-less-than-car)))))
+ (cadar (last (sort results 'car-less-than-car))))))
;;;
;;; Built-in type predicates and functions
;;;
;;; Built-in type predicates and functions
"Go through the document and partition it into heads/bodies/articles."
(let ((i 0)
(first t)
"Go through the document and partition it into heads/bodies/articles."
(let ((i 0)
(first t)
- head-begin head-end body-begin body-end)
+ art-begin head-begin head-end body-begin body-end)
(setq nndoc-dissection-alist nil)
(save-excursion
(set-buffer nndoc-current-buffer)
(setq nndoc-dissection-alist nil)
(save-excursion
(set-buffer nndoc-current-buffer)
;; Go through the file.
(while (if (and first nndoc-first-article)
(nndoc-search nndoc-first-article)
;; Go through the file.
(while (if (and first nndoc-first-article)
(nndoc-search nndoc-first-article)
- (nndoc-article-begin))
- (setq first nil)
+ (if art-begin
+ (goto-char art-begin)
+ (nndoc-article-begin)))
+ (setq first nil
+ art-begin nil)
(cond (nndoc-head-begin-function
(funcall nndoc-head-begin-function))
(nndoc-head-begin
(cond (nndoc-head-begin-function
(funcall nndoc-head-begin-function))
(nndoc-head-begin
(funcall nndoc-body-end-function))
(and nndoc-body-end
(nndoc-search nndoc-body-end))
(funcall nndoc-body-end-function))
(and nndoc-body-end
(nndoc-search nndoc-body-end))
+ (and (nndoc-article-begin)
+ (setq art-begin (point)))
(progn
(goto-char (point-max))
(when nndoc-file-end
(progn
(goto-char (point-max))
(when nndoc-file-end