*** empty log message ***

[gnus] / lisp / gnus-sum.el

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 5393d65..1ea7d13 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1312,7 +1312,8 @@ increase the score of each group you read."
     "t" gnus-article-remove-trailing-blank-lines
     "l" gnus-article-strip-leading-blank-lines
     "m" gnus-article-strip-multiple-blank-lines
-    "a" gnus-article-strip-blank-lines)
+    "a" gnus-article-strip-blank-lines
+    "s" gnus-article-strip-leading-space)
 
   (gnus-define-keys (gnus-summary-help-map "H" gnus-summary-mode-map)
     "v" gnus-version
@@ -1514,7 +1515,8 @@ increase the score of each group you read."
         ["Leading" gnus-article-strip-leading-blank-lines t]
         ["Multiple" gnus-article-strip-multiple-blank-lines t]
         ["Trailing" gnus-article-remove-trailing-blank-lines t]
-        ["All of the above" gnus-article-strip-blank-lines t])
+        ["All of the above" gnus-article-strip-blank-lines t]
+        ["Leading space" gnus-article-strip-leading-space t])
        ["Overstrike" gnus-article-treat-overstrike t]
        ["Emphasis" gnus-article-emphasize t]
        ["Word wrap" gnus-article-fill-cited-article t]
@@ -3830,8 +3832,8 @@ If READ-ALL is non-nil, all articles in the group are selected."
          ;; default score.
          (when (and (eq (cdr type) 'score)
                     gnus-save-score
-                    articles)
-           (let* ((arts articles)
+                    list)
+           (let* ((arts list)
                   (prev (cons nil articles))
                   (all prev))
              (while arts
@@ -3840,7 +3842,7 @@ If READ-ALL is non-nil, all articles in the group are selected."
                    (setcdr prev (cdr arts))
                  (setq prev arts))
                (setq arts (cdr arts)))
-             (setq articles (cdr all))))
+             (setq list (cdr all))))
 
          (push (cons (cdr type)
                      (if (memq (cdr type) uncompressed) list