From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7583 Path: main.gmane.org!not-for-mail From: Jan Vroonhof Newsgroups: gmane.emacs.gnus.general Subject: nndoc.el & preprint patches Date: 13 Aug 1996 22:25:30 +0200 Sender: vroonhof@math.ethz.ch Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.71) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035147875 7705 80.91.224.250 (20 Oct 2002 21:04:35 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:04:35 +0000 (UTC) Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id NAA21519 for ; Tue, 13 Aug 1996 13:38:29 -0700 Original-Received: from frege.math.ethz.ch (root@frege-math-bb.math.ethz.ch [129.132.148.14]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id ; Tue, 13 Aug 1996 22:26:06 +0200 Original-Received: from fresnel.math.ethz.ch (vroonhof@fresnel-d-math-south-g-servers.math.ethz.ch [129.132.145.6]) by frege.math.ethz.ch (8.6.4/Main-mathdept-mailer) with ESMTP id WAA10753; Tue, 13 Aug 1996 22:26:00 +0200 Original-Received: (vroonhof@localhost) by fresnel.math.ethz.ch (8.6.9/D-MATH-client) id WAA07972; Tue, 13 Aug 1996 22:25:31 +0200 Original-To: ding@ifi.uio.no.larsi Original-Lines: 74 X-Mailer: Red Gnus v0.11/XEmacs 19.14 Xref: main.gmane.org gmane.emacs.gnus.general:7583 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7583 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 + + * 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 * 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 "^$"))