Add auto-loaded news reader.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 65899f795a8e80eadc4492688876fc1552d5ffcd..d27bd9575533216014f41893f8d1a6bb003544f2 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.54 1995/02/14 00:29:58 cph Exp $
+$Id: decls.scm,v 1.55 1995/05/03 07:49:58 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -90,6 +90,7 @@ MIT in each case. |#
              "key-x11"
              "macros"
              "make"
+             "nntp"
              "nvector"
              "os2term"
              "paths"
@@ -201,6 +202,7 @@ MIT in each case. |#
                "sercom"
                "shell"
                "simple"
+               "snr"
                "sort"
                "syntax"
                "tagutl"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index fd3b1e652c2d8deceeb53d8b24d34fb77322dfc6..b8daa835e46f177215ea3a8caafb20103c251233 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ed-ffi.scm,v 1.37 1995/02/14 00:30:28 cph Exp $
+$Id: ed-ffi.scm,v 1.38 1995/05/03 07:50:08 cph Exp $
 
 Copyright (c) 1990-95 Massachusetts Institute of Technology
 
@@ -191,6 +191,8 @@ of that license should have been included along with this file.
               edwin-syntax-table)
     ("motion"  (edwin)
               syntax-table/system-internal)
+    ("nntp"    (edwin nntp)
+              syntax-table/system-internal)
     ("notify"  (edwin)
               edwin-syntax-table)
     ("nvector" (edwin)
@@ -257,6 +259,8 @@ of that license should have been included along with this file.
               edwin-syntax-table)
     ("simple"  (edwin)
               syntax-table/system-internal)
+    ("snr"     (edwin news-reader)
+              edwin-syntax-table)
     ("sort"    (edwin)
               edwin-syntax-table)
     ("strpad"  (edwin)

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index fe7050a714addf6585bb3bfad5684b2894acaf73..b0b784f1cd2d0b2b183d55e908ed05a839cef066 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.171 1995/05/02 21:18:47 cph Exp $
+$Id: edwin.pkg,v 1.172 1995/05/03 07:50:39 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -1489,4 +1489,113 @@ MIT in each case. |#
          ynode-result-special
          ynode-type
          ynode-value-node)
-  (initialization (initialize-package!)))
\ No newline at end of file
+  (initialization (initialize-package!)))
+\f
+(define-package (edwin news-reader)
+  (files "snr")
+  (parent (edwin))
+  (export (edwin)
+         edwin-command$all-news-groups
+         edwin-command$catch-up-news-group
+         edwin-command$delete-news-article
+         edwin-command$delete-news-thread
+         edwin-command$expunge-news-group
+         edwin-command$news-kill-current-buffer
+         edwin-command$news-next-line
+         edwin-command$news-previous-line
+         edwin-command$next-news-article
+         edwin-command$output-news-article
+         edwin-command$output-news-article-to-rmail-file
+         edwin-command$previous-news-article
+         edwin-command$refresh-news-group
+         edwin-command$refresh-news-groups
+         edwin-command$reply-to-news-article
+         edwin-command$revert-news-group
+         edwin-command$rnews
+         edwin-command$save-news-server-data
+         edwin-command$select-news-article
+         edwin-command$select-news-group
+         edwin-command$subscribe-news-group
+         edwin-command$subscribe-news-group-by-name
+         edwin-command$toggle-news-article-context
+         edwin-command$toggle-news-article-header
+         edwin-command$undelete-news-article
+         edwin-command$undelete-news-thread
+         edwin-command$unsubscribe-news-group
+         edwin-mode$news-article
+         edwin-mode$news-group
+         edwin-mode$news-server
+         edwin-variable$news-article-context-lines
+         edwin-variable$news-server
+         edwin-variable$news-server-show-domain
+         edwin-variable$show-unsubscribed-news-groups))
+
+(define-package (edwin nntp)
+  (files "nntp")
+  (parent (edwin))
+#|
+  ;; This program doesn't need to be part of Edwin except for these
+  ;; two bindings.  MESSAGE could be easily implemented in any
+  ;; interface.  OS/FIND-PROGRAM has nothing to do with Edwin in the
+  ;; first place, and should be in the runtime system.
+  (parent ())
+  (import (edwin)
+         message
+         os/find-program)
+|#
+  (export (edwin news-reader)
+         canonicalize-subject
+         compare-subjects
+         find-active-news-group
+         find-news-group
+         make-news-group
+         news-group:<
+         news-group:active?
+         news-group:cached-header
+         news-group:cached-header-numbers
+         news-group:cached-headers
+         news-group:connection
+         news-group:discard-cached-header!
+         news-group:estimated-n-articles
+         news-group:first-article
+         news-group:header
+         news-group:headers
+         news-group:last-article
+         news-group:name
+         news-group:reader-hook
+         news-group:server
+         news-group:update-probe!
+         news-group?
+         news-header:<
+         news-header:dummy?
+         news-header:field-value
+         news-header:followup-to
+         news-header:followups
+         news-header:group
+         news-header:message-id
+         news-header:number
+         news-header:read-body
+         news-header:reader-hook
+         news-header:text
+         news-header:thread
+         news-header:xref
+         news-header?
+         news-thread:<
+         news-thread:for-each-header
+         news-thread:reader-hook
+         news-thread:root-headers
+         news-thread?
+         nntp-connection:active-groups
+         nntp-connection:close
+         nntp-connection:closed?
+         nntp-connection:discard-active-groups-cache!
+         nntp-connection:reader-hook
+         nntp-connection:reopen
+         nntp-connection:server
+         open-nntp-connection
+         organize-headers-into-threads
+         set-news-group:reader-hook!
+         set-news-header:reader-hook!
+         set-news-thread:reader-hook!
+         set-nntp-connection:reader-hook!
+         token->number))
\ No newline at end of file

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index fd88080f6efd1eb3c1b1af73b5e7c6b5e8d6f0e6..4737c9bfccea714511c1593e1d240eb9a6f030a4 100644 (file)
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: loadef.scm,v 1.27 1994/12/19 19:40:55 cph Exp $
+;;;    $Id: loadef.scm,v 1.28 1995/05/03 07:50:29 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -217,6 +217,17 @@ variable's value is #F, the text is printed using LPR-COMMAND."
 
 (define-autoload-command 'step-defun 'STEPPER
   "Single-step the definition that the point is in or before.")
+
+(define-library 'NEWS-READER
+  '("nntp" (EDWIN NNTP))
+  '("snr" (EDWIN NEWS-READER)))
+
+(define-autoload-command 'rnews 'NEWS-READER
+  "Start a News reader.
+Normally uses the server specified by the variable news-server,
+but with a prefix arg prompts for the server name.
+Only one News reader may be open per server; if a previous News reader
+is open the that server, its buffer is selected.")
 \f
 ;;;; DOS-specific commands