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 |
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)) |