Mercurial > hg > xemacs-beta
comparison lisp/gnus/gnus-score.el @ 173:8eaf7971accc r20-3b13
Import from CVS: tag r20-3b13
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:49:09 +0200 |
| parents | 15872534500d |
| children |
comparison
equal
deleted
inserted
replaced
| 172:a38aed19690b | 173:8eaf7971accc |
|---|---|
| 1273 () | 1273 () |
| 1274 (setq score (setcdr entry (delq (assq 'touched score) score))) | 1274 (setq score (setcdr entry (delq (assq 'touched score) score))) |
| 1275 (erase-buffer) | 1275 (erase-buffer) |
| 1276 (let (emacs-lisp-mode-hook) | 1276 (let (emacs-lisp-mode-hook) |
| 1277 (if (string-match | 1277 (if (string-match |
| 1278 (concat (regexp-quote gnus-adaptive-file-suffix) | 1278 (concat (regexp-quote gnus-adaptive-file-suffix) "$") |
| 1279 "$") | |
| 1280 file) | 1279 file) |
| 1281 ;; This is an adaptive score file, so we do not run | 1280 ;; This is an adaptive score file, so we do not run |
| 1282 ;; it through `pp'. These files can get huge, and | 1281 ;; it through `pp'. These files can get huge, and |
| 1283 ;; are not meant to be edited by human hands. | 1282 ;; are not meant to be edited by human hands. |
| 1284 (gnus-prin1 score) | 1283 (gnus-prin1 score) |