/[emacs]/emacs/lisp/gnus/gnus-score.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-score.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by sds, Wed Nov 14 20:22:13 2001 UTC revision 1.12 by zsh, Sun Nov 25 15:17:24 2001 UTC
# Line 2560  GROUP using BNews sys file syntax." Line 2560  GROUP using BNews sys file syntax."
2560                ;; too much.                ;; too much.
2561                (delete-char (min (1- (point-max)) klen))                (delete-char (min (1- (point-max)) klen))
2562              (goto-char (point-max))              (goto-char (point-max))
2563              (search-backward (string directory-sep-char))              (if (re-search-backward gnus-directory-sep-char-regexp nil t)
2564              (delete-region (1+ (point)) (point-min)))                  (delete-region (1+ (point)) (point-min))
2565                  (gnus-message 1 "Can't find directory separator in %s"
2566                                (car sfiles))))
2567            ;; If short file names were used, we have to translate slashes.            ;; If short file names were used, we have to translate slashes.
2568            (goto-char (point-min))            (goto-char (point-min))
2569            (let ((regexp (concat            (let ((regexp (concat
# Line 2595  GROUP using BNews sys file syntax." Line 2597  GROUP using BNews sys file syntax."
2597            ;; we add this score file to the list of score files            ;; we add this score file to the list of score files
2598            ;; applicable to this group.            ;; applicable to this group.
2599            (when (or (and not-match            (when (or (and not-match
2600                           (ignore-errors                           (ignore-errors
2601                             (not (string-match regexp group-trans))))                             (not (string-match regexp group-trans))))
2602                      (and (not not-match)                      (and (not not-match)
2603                           (ignore-errors (string-match regexp group-trans))))                           (ignore-errors (string-match regexp group-trans))))
2604              (push (car sfiles) ofiles)))              (push (car sfiles) ofiles)))
2605          (setq sfiles (cdr sfiles)))          (setq sfiles (cdr sfiles)))
2606        (kill-buffer (current-buffer))        (kill-buffer (current-buffer))

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26