X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-score.el;h=3947cfd88efcafb55f21eb1d3935a0fa367563d5;hb=372a2066b50e43957fc5904254da04cf9d680535;hp=3dca790ab01770f1ae40bb31194e9fcb23743145;hpb=5862b933321c5ab0adeacd263f24d1e70c3e2b2f;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 3dca790..3947cfd 100644
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -385,7 +385,7 @@ If nil, the user will be asked for a duration."
 (defcustom gnus-score-after-write-file-function nil
   "Function called with the name of the score file just written to disk."
   :group 'gnus-score-files
-  :type 'function)
+  :type '(choice (const nil) function))
 
 (defcustom gnus-score-thread-simplify nil
   "If non-nil, subjects will simplified as in threading."
@@ -2495,7 +2495,7 @@ score in GNUS-NEWSGROUP-SCORED by SCORE."
 (defun gnus-summary-lower-thread (&optional score)
   "Lower score of articles in the current thread with SCORE."
   (interactive "P")
-  (gnus-summary-raise-thread (- (1- (gnus-score-delta-default score)))))
+  (gnus-summary-raise-thread (- (gnus-score-delta-default score))))
 
 ;;; Finding score files.