* lisp/emacs-lisp/package.el (list-packages): Fix echo area message.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec867fee08b..50dccb43b3b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-27  Chong Yidong  <cyd@stupidchicken.com>
+
+        * emacs-lisp/package.el (list-packages): Fix echo area message.
+
 2011-09-27  Leo Liu  <sdl.web@gmail.com>
 
         * ido.el (ido-read-internal): Accept cons cell HIST arg.
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 4cab8f43480..2e340a442a6 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1658,10 +1658,11 @@ The list is displayed in a buffer named `*Packages*'."
     (switch-to-buffer buf))
   (let ((upgrades (package-menu--find-upgrades)))
     (if upgrades
-        (message "%d package%s can be upgraded; type `%s' to mark them for upgrading."
+        (message "%d package%s can be upgraded; type `%s' to mark %s for upgrading."
                  (length upgrades)
                  (if (= (length upgrades) 1) "" "s")
-                 (substitute-command-keys "\\[package-menu-mark-upgrades]")))))
+                 (substitute-command-keys "\\[package-menu-mark-upgrades]")
+                 (if (= (length upgrades) 1) "it" "them")))))
 
 ;;;###autoload
 (defalias 'package-list-packages 'list-packages)