Synch to Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e257bb..03bafff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * nnheader.el (nnheader-directory-separator-character): Change the
+       way to compute the dafault value.
+
 2003-02-02  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus-util.el (gnus-kill-buffer): Use get-buffer.

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index cf3cc29..bfec6d8 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -120,14 +120,10 @@ This variable is a substitute for `mm-text-coding-system-for-write'.")
    (t nil))
   "Coding system of auto save file.")
 
-(defvar nnheader-directory-separator-character 
-  (let ((case-fold-search t))
-    (cond
-     ((string-match "windows-nt\\|os/2\\|emx\\|cygwin"
-                   (symbol-name system-type))
-      ?\\)
-     (t ?/))))
-  
+(defvar nnheader-directory-separator-character
+  (string-to-char (substring (file-name-as-directory ".") -1))
+  "*A character used to a directory separator.")
+
 (eval-and-compile
   (autoload 'nnmail-message-id "nnmail")
   (autoload 'mail-position-on-field "sendmail")