Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Change to scoring function

  • Loading branch information...
commit e0b36ca5b1ccd8fd1766a9a2e808167030dd9ed2 1 parent 048797f
John Wiegley authored

Showing 1 changed file with 4 additions and 5 deletions. Show diff stats Hide diff stats

  1. 9  lisp/my-gnus-score.el
9  lisp/my-gnus-score.el
@@ -206,17 +206,16 @@ instead."
206 206
   (when (gnus-buffer-live-p gnus-summary-buffer)
207 207
     (save-excursion
208 208
       (save-restriction
209  
-        (goto-char (point-min))
  209
+        (message-narrow-to-headers)
210 210
         (let ((refs (mail-fetch-field "references")))
211  
-          (if (and refs
212  
-                   (string-match "\\(<[^<]+>\\)\\'" refs))
  211
+          (if (and refs (string-match "\\(<[^<]+>\\)\\'" refs))
213 212
               (progn
214 213
                 (set-buffer gnus-summary-buffer)
215 214
                 (gnus-summary-score-entry
216 215
                  "references" (format "%s" (match-string 1 refs)) 's
217 216
                  score (current-time-string)))
218  
-            ;; if we didn't find a reference (probably due to no
219  
-            ;; parent article), we increase the score on subject:
  217
+            ;; if we didn't find a reference (probably due to no parent
  218
+            ;; article), we increase the score on subject:
220 219
             (let ((subj (mail-fetch-field "subject")))
221 220
               (when subj
222 221
                 (set-buffer gnus-summary-buffer)

0 notes on commit e0b36ca

Please sign in to comment.
Something went wrong with that request. Please try again.