Mercurial > emacs
changeset 110599:eae9fd6b889d
gnus-art.el (gnus-mime-delete-part): Fix Lisp type of byte(s).
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 27 Sep 2010 03:16:55 +0000 |
| parents | 05784eb30748 |
| children | 0e84d4500f6b 1d759828bb3d |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el |
| diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Sep 26 23:15:50 2010 +0000 +++ b/lisp/gnus/ChangeLog Mon Sep 27 03:16:55 2010 +0000 @@ -1,3 +1,7 @@ +2010-09-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * gnus-art.el (gnus-mime-delete-part): Fix Lisp type of byte(s). + 2010-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org> * nndoc.el (nndoc-request-list): Return success always.
--- a/lisp/gnus/gnus-art.el Sun Sep 26 23:15:50 2010 +0000 +++ b/lisp/gnus/gnus-art.el Mon Sep 27 03:16:55 2010 +0000 @@ -5072,7 +5072,7 @@ (unless data (error "No MIME part under point")) (with-current-buffer (mm-handle-buffer data) - (let ((bsize (format "%s" (buffer-size)))) + (let ((bsize (buffer-size))) (erase-buffer) (insert (concat @@ -5081,8 +5081,8 @@ "|\n" "| Type: " type "\n" "| Filename: " filename "\n" - "| Size (encoded): " bsize (format " byte%s\n" - (if (= bsize 1) + "| Size (encoded): " (format "%s byte%s\n" + bsize (if (= bsize 1) "" "s")) (when description