From: yamaoka <yamaoka>
Date: Sun, 2 Feb 2003 04:37:32 +0000 (+0000)
Subject: Synch to Oort Gnus.
X-Git-Tag: t-gnus-6_15_16-00-quimby~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cd5628fe0814df1fc7068725c41b0aa367795d85;p=elisp%2Fgnus.git-

Synch to Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e257bb..03bafff 100644
--- 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
--- 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")