From e5fa38990bca723fc3ef1d0ede792e8ff84b84f7 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 27 Sep 2010 03:16:55 +0000 Subject: [PATCH] gnus-art.el (gnus-mime-delete-part): Fix Lisp type of byte(s). --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-art.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index fdd8f8ec635..7efaa814e50 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2010-09-27 Katsumi Yamaoka + + * gnus-art.el (gnus-mime-delete-part): Fix Lisp type of byte(s). + 2010-09-26 Lars Magne Ingebrigtsen * nndoc.el (nndoc-request-list): Return success always. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 5662bfa5e8b..221af8c06cd 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -5072,7 +5072,7 @@ Deleting parts may malfunction or destroy the article; continue? ")) (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 @@ Deleting parts may malfunction or destroy the article; continue? ")) "|\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 -- 2.39.5