Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-score.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents d95e72db5c07
children 4103f0995bd7
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
827 (when (if (eq type 'f) 827 (when (if (eq type 'f)
828 (string-equal (gnus-simplify-subject-fuzzy content) 828 (string-equal (gnus-simplify-subject-fuzzy content)
829 regexp) 829 regexp)
830 (string-match regexp content)) 830 (string-match regexp content))
831 (gnus-summary-raise-score score)))) 831 (gnus-summary-raise-score score))))
832 (beginning-of-line 2))))) 832 (beginning-of-line 2))))
833 (gnus-set-mode-line 'summary))
833 834
834 (defun gnus-summary-score-crossposting (score date) 835 (defun gnus-summary-score-crossposting (score date)
835 ;; Enter score file entry for current crossposting. 836 ;; Enter score file entry for current crossposting.
836 ;; SCORE is the score to add. 837 ;; SCORE is the score to add.
837 ;; DATE is the expire date. 838 ;; DATE is the expire date.