From c2201b0bd9252718f7e5087b123708e3db78c65d Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Sun, 2 Feb 2003 04:36:48 +0000 Subject: [PATCH] (nnheader-directory-separator-character): Change the way to compute the dafault value. --- lisp/nnheader.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 7a4c95477..930806f17 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -88,14 +88,10 @@ on your system, you could say something like: \(setq nnheader-file-name-translation-alist '((?: . ?_)))") -(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") -- 2.25.1