From fe3c7b28c882d8a0e6849a59ee4f18d916bb460c Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Sun, 25 Nov 2001 15:08:52 +0000 Subject: [PATCH] 2001-11-25 09:00:00 ShengHuo ZHU * gnus-util.el (gnus-directory-sep-char-regexp): New. * gnus-score.el (gnus-score-find-bnews): Use it. --- lisp/ChangeLog | 3 +++ lisp/gnus-score.el | 2 +- lisp/gnus-util.el | 5 +++++ 3 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 87e7e1607..636573ce5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-11-25 09:00:00 ShengHuo ZHU + * 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 2dce72c3d..8c946111d 100644 --- 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 ed85597a1..2696795b4 100644 --- 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 -- 2.34.1