Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-score.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8b8b7f3559a2
children 131b0175ea99
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
906 906
907 (defun gnus-score-followup-article (&optional score) 907 (defun gnus-score-followup-article (&optional score)
908 "Add SCORE to all followups to the article in the current buffer." 908 "Add SCORE to all followups to the article in the current buffer."
909 (interactive "P") 909 (interactive "P")
910 (setq score (gnus-score-default score)) 910 (setq score (gnus-score-default score))
911 (when (buffer-live-p gnus-summary-buffer) 911 (when (gnus-buffer-live-p gnus-summary-buffer)
912 (save-excursion 912 (save-excursion
913 (save-restriction 913 (save-restriction
914 (message-narrow-to-headers) 914 (message-narrow-to-headers)
915 (let ((id (mail-fetch-field "message-id"))) 915 (let ((id (mail-fetch-field "message-id")))
916 (when id 916 (when id
921 921
922 (defun gnus-score-followup-thread (&optional score) 922 (defun gnus-score-followup-thread (&optional score)
923 "Add SCORE to all later articles in the thread the current buffer is part of." 923 "Add SCORE to all later articles in the thread the current buffer is part of."
924 (interactive "P") 924 (interactive "P")
925 (setq score (gnus-score-default score)) 925 (setq score (gnus-score-default score))
926 (when (buffer-live-p gnus-summary-buffer) 926 (when (gnus-buffer-live-p gnus-summary-buffer)
927 (save-excursion 927 (save-excursion
928 (save-restriction 928 (save-restriction
929 (goto-char (point-min)) 929 (goto-char (point-min))
930 (let ((id (mail-fetch-field "message-id"))) 930 (let ((id (mail-fetch-field "message-id")))
931 (when id 931 (when id