Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-score.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents e04119814345
children 8d2a9b52c682
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
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 (gnus-buffer-live-p gnus-summary-buffer) 911 (when (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 (gnus-buffer-live-p gnus-summary-buffer) 926 (when (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