diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <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. 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 |