with `gnus-score-edit-file-at-point'.
* gnus-logic.el (gnus-score-advanced): Ditto.
* gnus-score.el (gnus-score-edit-file-at-point): Fix for advanced scoring.
+2003-12-30 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * gnus-score.el (gnus-score-find-trace): Added comment on sync
+ with `gnus-score-edit-file-at-point'.
+
+ * gnus-logic.el (gnus-score-advanced): Ditto.
+
+ * gnus-score.el (gnus-score-edit-file-at-point): Fix for
+ advanced scoring.
+
2003-12-30 Simon Josefsson <jas@extundo.com>
* gnus-score.el (gnus-score-edit-file-at-point): Use
gnus-newsgroup-scored)
(when trace
(push (cons "A file" rule)
+ ;; Must be synced with `gnus-score-edit-file-at-point'.
gnus-score-trace)))))))
(defun gnus-advanced-score-rule (rule)
(buffer-substring (point) (gnus-point-at-eol))
nil))))
(if (or (not file)
- (string-match "non-file" file)
+ (string-match "\\<\\(non-file rule\\|A file\\)\\>" file)
+ ;; (see `gnus-score-find-trace' and `gnus-score-advanced')
(string= "" file))
(gnus-error 3 "Can't find a score file in current line.")
(gnus-score-edit-file file)
(setq truncate-lines t)
(dolist (entry trace)
(setq file (or (car entry)
+ ;; Must be synced with
+ ;; `gnus-score-edit-file-at-point':
"(non-file rule)"))
(insert
(format frmt