From aea38da98c0a7e4c363922add6a9c403e9a8e2ba Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Oct 1995 02:18:34 +0000
Subject: [PATCH] Remove definition of OS/NEWSRC-FILE-NAME, moving it to
 OS-specific files.

---
 v7/src/edwin/snr.scm  | 13 +------------
 v7/src/edwin/unix.scm | 12 ++++++++++--
 2 files changed, 11 insertions(+), 14 deletions(-)

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index bb1324a0a..f73792656 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.2 1995/05/06 02:21:51 cph Exp $
+;;;	$Id: snr.scm,v 1.3 1995/10/25 02:17:51 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995 Massachusetts Institute of Technology
 ;;;
@@ -1650,17 +1650,6 @@ C-c C-q  mail-fill-yanked-message (fill what was yanked)."
 (define (newsrc-file-buffer connection)
   (find-file-noselect (os/newsrc-file-name (nntp-connection:server connection))
 		      #f))
-
-(define (os/newsrc-file-name server)
-  (let ((homedir (user-homedir-pathname)))
-    (if (os2/fs-long-filenames? homedir)
-	(let ((specific
-	       (merge-pathnames (string-append ".newsrc-" server)
-				homedir)))
-	  (if (file-exists? specific)
-	      specific
-	      (merge-pathnames ".newsrc" homedir)))
-	(merge-pathnames "newsrc.ini" homedir))))
 
 ;;;; Miscellaneous
 
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 6d52e399a..7b812079d 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.60 1995/10/12 22:59:35 cph Exp $
+;;;	$Id: unix.scm,v 1.61 1995/10/25 02:18:34 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-95 Massachusetts Institute of Technology
 ;;;
@@ -777,4 +777,12 @@ option, instead taking -P <filename>."
 				      (ns (decoded-time/minute dt) 2 #\0))
 		       (string-append " "
 				      (number->string
-				       (decoded-time/year dt)))))))
\ No newline at end of file
+				       (decoded-time/year dt)))))))
+
+(define (os/newsrc-file-name server)
+  (let ((homedir (user-homedir-pathname)))
+    (let ((specific
+	   (merge-pathnames (string-append ".newsrc-" server) homedir)))
+      (if (file-exists? specific)
+	  specific
+	  (merge-pathnames ".newsrc" homedir)))))
\ No newline at end of file
-- 
2.25.1