[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-score.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-score.el
diff -c emacs/lisp/gnus/gnus-score.el:1.20 emacs/lisp/gnus/gnus-score.el:1.21
*** emacs/lisp/gnus/gnus-score.el:1.20  Wed Feb  9 15:50:38 2005
--- emacs/lisp/gnus/gnus-score.el       Mon May 30 17:13:57 2005
***************
*** 826,832 ****
      ;; If this is an integer comparison, we transform from string to int.
      (if (eq (nth 2 (assoc header gnus-header-index)) 'gnus-score-integer)
        (if (stringp match)
!           (setq match (string-to-int match)))
        (set-text-properties 0 (length match) nil match))
  
      (unless (eq date 'now)
--- 826,832 ----
      ;; If this is an integer comparison, we transform from string to int.
      (if (eq (nth 2 (assoc header gnus-header-index)) 'gnus-score-integer)
        (if (stringp match)
!           (setq match (string-to-number match)))
        (set-text-properties 0 (length match) nil match))
  
      (unless (eq date 'now)
***************
*** 891,897 ****
                                      t)
                     (read-string "Match: ")
                     (if (y-or-n-p "Use regexp match? ") 'r 's)
!                    (string-to-int (read-string "Score: "))))
    (save-excursion
      (unless (and (stringp match) (> (length match) 0))
        (error "No match"))
--- 891,897 ----
                                      t)
                     (read-string "Match: ")
                     (if (y-or-n-p "Use regexp match? ") 'r 's)
!                    (string-to-number (read-string "Score: "))))
    (save-excursion
      (unless (and (stringp match) (> (length match) 0))
        (error "No match"))
***************
*** 945,951 ****
    "Automatically mark articles with score below SCORE as read."
    (interactive
     (list (or (and current-prefix-arg (prefix-numeric-value 
current-prefix-arg))
!            (string-to-int (read-string "Mark below: ")))))
    (setq score (or score gnus-summary-default-score 0))
    (gnus-score-set 'mark (list score))
    (gnus-score-set 'touched '(t))
--- 945,951 ----
    "Automatically mark articles with score below SCORE as read."
    (interactive
     (list (or (and current-prefix-arg (prefix-numeric-value 
current-prefix-arg))
!            (string-to-number (read-string "Mark below: ")))))
    (setq score (or score gnus-summary-default-score 0))
    (gnus-score-set 'mark (list score))
    (gnus-score-set 'touched '(t))
***************
*** 979,985 ****
    "Automatically expunge articles with score below SCORE."
    (interactive
     (list (or (and current-prefix-arg (prefix-numeric-value 
current-prefix-arg))
!            (string-to-int (read-string "Set expunge below: ")))))
    (setq score (or score gnus-summary-default-score 0))
    (gnus-score-set 'expunge (list score))
    (gnus-score-set 'touched '(t)))
--- 979,985 ----
    "Automatically expunge articles with score below SCORE."
    (interactive
     (list (or (and current-prefix-arg (prefix-numeric-value 
current-prefix-arg))
!            (string-to-number (read-string "Set expunge below: ")))))
    (setq score (or score gnus-summary-default-score 0))
    (gnus-score-set 'expunge (list score))
    (gnus-score-set 'touched '(t)))