* gnus-mlspl.el (gnus-group-split-fancy): Doc fix.

[gnus] / lisp / gnus-sum.el

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 429f5fe..28cd1ee 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1089,8 +1089,7 @@ the MIME-Version header is missed."
     (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
     (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
     (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)
-    (?C (gnus-summary-line-message-size
-        (or (mail-header-chars gnus-tmp-header) 0)) ?s)
+    (?k (gnus-summary-line-message-size gnus-tmp-header) ?s)
     (?L gnus-tmp-lines ?s)
     (?I gnus-tmp-indentation ?s)
     (?T (if (= gnus-tmp-level 0) "" (make-string (frame-width) ? )) ?s)
@@ -2069,7 +2068,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
              ["Rot 13" gnus-summary-caesar-message
               ,@(if (featurep 'xemacs) '(t)
                   '(:help "\"Caesar rotate\" article by 13"))]
-             ["Unix pipe" gnus-summary-pipe-message t]
+             ["Unix pipe..." gnus-summary-pipe-message t]
              ["Add buttons" gnus-article-add-buttons t]
              ["Add buttons to head" gnus-article-add-buttons-to-head t]
              ["Stop page breaking" gnus-summary-stop-page-breaking t]
@@ -2265,7 +2264,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
         ["Author..." gnus-summary-limit-to-author t]
         ["Age..." gnus-summary-limit-to-age t]
         ["Extra..." gnus-summary-limit-to-extra t]
-        ["Score" gnus-summary-limit-to-score t]
+        ["Score..." gnus-summary-limit-to-score t]
         ["Display Predicate" gnus-summary-limit-to-display-predicate t]
         ["Unread" gnus-summary-limit-to-unread t]
         ["Non-dormant" gnus-summary-limit-exclude-dormant t]
@@ -3258,16 +3257,16 @@ the thread are to be displayed."
          gnus-empty-thread-mark)
       number)))
 
-(defsubst gnus-summary-line-message-size (c)
+(defsubst gnus-summary-line-message-size (head)
   "Return pretty-printed version of message size.
-Argument C is message size in number of characters.
 This function is intended to be used in
 `gnus-summary-line-format-alist', which see."
-  (cond ((< c 0) "n/a")                        ; chars not available
-       ((< c (* 1000 10)) (format "%1.1fk" (/ c 1024.0)))
-       ((< c (* 1000 100)) (format "%dk" (/ c 1024.0)))
-       ((< c (* 1000 10000)) (format "%1.1fM" (/ c (* 1024.0 1024))))
-       (t (format "%dM" (/ c (* 1024.0 1024))))))
+  (let ((c (or (mail-header-chars head) -1)))
+    (cond ((< c 0) "n/a")              ; chars not available
+         ((< c (* 1000 10)) (format "%1.1fk" (/ c 1024.0)))
+         ((< c (* 1000 100)) (format "%dk" (/ c 1024.0)))
+         ((< c (* 1000 10000)) (format "%1.1fM" (/ c (* 1024.0 1024))))
+         (t (format "%dM" (/ c (* 1024.0 1024)))))))
 
 
 (defun gnus-summary-set-local-parameters (group)