2001-11-25 09:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-util.el (gnus-directory-sep-char-regexp): New.
	* gnus-score.el (gnus-score-find-bnews): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87e7e16..636573c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-11-25 09:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-util.el (gnus-directory-sep-char-regexp): New.
+       * gnus-score.el (gnus-score-find-bnews): Use it.
+
        * gnus-sum.el (gnus-summary-limit-to-subject): An exclusion version.
        (gnus-summary-limit-to-author): Ditto.
        (gnus-summary-limit-to-extra): Ditto.

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 2dce72c..8c94611 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -2567,7 +2567,7 @@ GROUP using BNews sys file syntax."
              ;; too much.
              (delete-char (min (1- (point-max)) klen))
            (goto-char (point-max))
-           (if (search-backward (string directory-sep-char) nil t)
+           (if (re-search-backward gnus-directory-sep-char-regexp nil t)
                (delete-region (1+ (point)) (point-min))
              (gnus-message 1 "Can't find directory separator in %s"
                            (car sfiles))))

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index ed85597..2696795 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1145,6 +1145,11 @@ sure of changing the value of `foo'."
 (defun gnus-not-ignore (&rest args)
   t)
 
+(defvar gnus-directory-sep-char-regexp "/"
+  "The regexp of directory separator character.
+If you find some problem with the directory separator character, try
+\"[/\\\\\]\" for some systems.")
+
 (provide 'gnus-util)
 
 ;;; gnus-util.el ends here