Remove definition of OS/NEWSRC-FILE-NAME, moving it to OS-specific

files.

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index bb1324a0aa1efad1e6899b96332631df42d0f9c7..f73792656699646db4e7855fd147659bacf44b41 100644 (file)
--- 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))))
 \f
 ;;;; Miscellaneous
 

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 6d52e399a7ce3e129ee625f187d92e055246a8d7..7b812079d0ab4361ca7f0a72f2c21d522e4d3182 100644 (file)
--- 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