nndoc.el & preprint patches

nndoc.el & preprint patches

[Jan Vroonhof]

Now if we can make the exit from nnkiboze+nndoc work, things will be perfect

*** ChangeLog.orig	Mon Aug 12 03:59:10 1996
--- ChangeLog	Tue Aug 13 22:10:41 1996
***************
*** 1,3 ****
--- 1,11 ----
+ Tue Aug 13 22:07:11 1996  Jan Vroonhof  <vroonhof@math.ethz.ch>
+ 
+ 	* nndoc.el (nndoc-dissect-buffer): Went into infinite loop if end
+ 	of file token wasn't properly detected.
+ 	(nndoc-type-alist): Better end-of-header regexp for
+ 	lanl.gov preprints
+ 	(nndoc-article-type): Updated doc string
+ 
  Mon Aug 12 03:51:57 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  
  	* gnus-async.el (gnus-make-async-article-function): New function.
*** nndoc.el.orig	Sat Aug 10 01:24:21 1996
--- nndoc.el	Tue Aug 13 22:07:01 1996
***************
*** 100,106 ****
      (lanl-gov-announce
        (article-begin . "^\\\\\\\\\n")
        (head-begin . "^Paper.*:")
!       (head-end   . "^\\\\\\\\\n")
        (body-begin . "")  
        (body-end   . "-------------------------------------------------")     
        (file-end   . "^Title: Recent Seminal")
--- 100,106 ----
      (lanl-gov-announce
        (article-begin . "^\\\\\\\\\n")
        (head-begin . "^Paper.*:")
!       (head-end   . "\\(^\\\\\\\\.*\n\\|-----------------\\)")
        (body-begin . "")  
        (body-end   . "-------------------------------------------------")     
        (file-end   . "^Title: Recent Seminal")
***************
*** 489,495 ****
   	    (setq subject (concat (match-string 1) subject))
   	    (setq from (concat (match-string 2) " <" e-mail ">"))))
   	))
!     (while (string-match "(\[^)\]*)" from)
        (setq from (replace-match "" t t from)))
      (insert "From: "  (or from "unknown")
   	    "\nSubject: " (or subject "(no subject)") "\n")))
--- 489,495 ----
   	    (setq subject (concat (match-string 1) subject))
   	    (setq from (concat (match-string 2) " <" e-mail ">"))))
   	))
!     (while (and from (string-match "(\[^)\]*)" from))
        (setq from (replace-match "" t t from)))
      (insert "From: "  (or from "unknown")
   	    "\nSubject: " (or subject "(no subject)") "\n")))
***************
*** 526,533 ****
  	       (funcall nndoc-head-begin-function))
  	      (nndoc-head-begin 
  	       (nndoc-search nndoc-head-begin)))
!  	(if (and nndoc-file-end
! 		 (looking-at nndoc-file-end))
  	    (goto-char (point-max))
  	  (setq head-begin (point))
  	  (nndoc-search (or nndoc-head-end "^$"))
--- 526,533 ----
  	       (funcall nndoc-head-begin-function))
  	      (nndoc-head-begin 
  	       (nndoc-search nndoc-head-begin)))
!  	(if (or (>= (point) (point-max)) (and nndoc-file-end
! 		 (looking-at nndoc-file-end)))
  	    (goto-char (point-max))
  	  (setq head-begin (point))
  	  (nndoc-search (or nndoc-head-end "^$"))