Mercurial > emacs

comparison lisp/gnus/gnus-score.el @ 53876:39dd3ea9e1d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-summary-increase-score): Fix format string.
author Andreas Schwab <schwab@suse.de>
date Sun, 08 Feb 2004 22:45:11 +0000
parents 695cf19ef79e
children 20521edcb286
comparison
equal deleted inserted replaced
53875:cb0bc8ce8e5a 53876:39dd3ea9e1d1
1 ;;; gnus-score.el --- scoring code for Gnus 1 ;;; gnus-score.el --- scoring code for Gnus
2 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001 2 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2004
3 ;; Free Software Foundation, Inc. 3 ;; Free Software Foundation, Inc.
4 4
5 ;; Author: Per Abrahamsen <amanda@iesd.auc.dk> 5 ;; Author: Per Abrahamsen <amanda@iesd.auc.dk>
6 ;; Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Keywords: news 7 ;; Keywords: news
614 (when (or (= pchar ??) (= pchar ?\C-h)) 614 (when (or (= pchar ??) (= pchar ?\C-h))
615 (setq pchar nil) 615 (setq pchar nil)
616 (gnus-score-insert-help "Match permanence" char-to-perm 2))) 616 (gnus-score-insert-help "Match permanence" char-to-perm 2)))
617 617
618 (gnus-score-kill-help-buffer) 618 (gnus-score-kill-help-buffer)
619 (if mimic (message "%c %c %c" prefix hchar tchar pchar) 619 (if mimic (message "%c %c %c %c" prefix hchar tchar pchar)
620 (message "")) 620 (message ""))
621 (unless (setq temporary (cadr (assq pchar char-to-perm))) 621 (unless (setq temporary (cadr (assq pchar char-to-perm)))
622 ;; Deal with der(r)ided superannuated paradigms. 622 ;; Deal with der(r)ided superannuated paradigms.
623 (when (and (eq (1+ prefix) 77) 623 (when (and (eq (1+ prefix) 77)
624 (eq (+ hchar 12) 109) 624 (eq (+ hchar 12) 109)