diff lisp/gnus-score.el @ 15559:8d8bf85d356a

Synched with Gnus 5.2.31.

--- a/lisp/gnus-score.el	Sat Jun 29 00:19:28 1996 +0000
+++ b/lisp/gnus-score.el	Sat Jun 29 00:29:17 1996 +0000
@@ -551,7 +551,7 @@
 	((eq type 'f)
 	 (setq match (gnus-simplify-subject-fuzzy match))))
   (let ((score (gnus-score-default score))
-	(header (downcase header))
+	(header (format "%s" (downcase header)))
 	new)
     (and prompt (setq match (read-string 
 			     (format "Match %s on %s, %s: " 
@@ -566,6 +566,9 @@
 				 (int-to-string match)
 			       match))))
 
+    ;; Get rid of string props.
+    (setq match (format "%s" match))
+
     ;; If this is an integer comparison, we transform from string to int. 
     (and (eq (nth 2 (assoc header gnus-header-index)) 'gnus-score-integer)
 	 (setq match (string-to-int match)))
@@ -720,11 +723,11 @@
   (setq score (gnus-score-default score))
   (when (gnus-buffer-live-p gnus-summary-buffer)
     (save-excursion
-      (set-buffer gnus-summary-buffer)
       (save-restriction
 	(goto-char (point-min))
 	(let ((id (mail-fetch-field "message-id")))
 	  (when id
+	    (set-buffer gnus-summary-buffer)
 	    (gnus-summary-score-entry
 	     "references" (concat id "[ \t]*$") 'r
 	     score (current-time-string) nil t)))))))
@@ -735,11 +738,11 @@
   (setq score (gnus-score-default score))
   (when (gnus-buffer-live-p gnus-summary-buffer)
     (save-excursion
-      (set-buffer gnus-summary-buffer)
       (save-restriction
 	(goto-char (point-min))
 	(let ((id (mail-fetch-field "message-id")))
 	  (when id
+	    (set-buffer gnus-summary-buffer)
 	    (gnus-summary-score-entry
 	     "references" id 's
 	     score (current-time-string))))))))