[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-score.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/gnus-score.el
diff -c emacs/lisp/gnus/gnus-score.el:1.11 emacs/lisp/gnus/gnus-score.el:1.12
*** emacs/lisp/gnus/gnus-score.el:1.11  Wed Nov 14 15:22:13 2001
--- emacs/lisp/gnus/gnus-score.el       Sun Nov 25 10:17:24 2001
***************
*** 2560,2567 ****
              ;; too much.
              (delete-char (min (1- (point-max)) klen))
            (goto-char (point-max))
!           (search-backward (string directory-sep-char))
!           (delete-region (1+ (point)) (point-min)))
          ;; If short file names were used, we have to translate slashes.
          (goto-char (point-min))
          (let ((regexp (concat
--- 2560,2569 ----
              ;; too much.
              (delete-char (min (1- (point-max)) klen))
            (goto-char (point-max))
!           (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))))
          ;; If short file names were used, we have to translate slashes.
          (goto-char (point-min))
          (let ((regexp (concat
***************
*** 2595,2604 ****
          ;; we add this score file to the list of score files
          ;; applicable to this group.
          (when (or (and not-match
!                        (ignore-errors
                           (not (string-match regexp group-trans))))
!                   (and (not not-match)
!                        (ignore-errors (string-match regexp group-trans))))
            (push (car sfiles) ofiles)))
        (setq sfiles (cdr sfiles)))
        (kill-buffer (current-buffer))
--- 2597,2606 ----
          ;; we add this score file to the list of score files
          ;; applicable to this group.
          (when (or (and not-match
!                        (ignore-errors
                           (not (string-match regexp group-trans))))
!                   (and (not not-match)
!                        (ignore-errors (string-match regexp group-trans))))
            (push (car sfiles) ofiles)))
        (setq sfiles (cdr sfiles)))
        (kill-buffer (current-buffer))