--- a/lisp/menubar-items.el	Mon Aug 13 10:46:01 2007 +0200
+++ b/lisp/menubar-items.el	Mon Aug 13 10:46:44 2007 +0200
@@ -231,9 +231,22 @@
        ["Saved..." customize-saved]
        ["Set..." customize-customized]
        ["Apropos..." customize-apropos]
-       ["Browse..." customize-browse]
-       ["List Packages" pui-list-packages]
-       ["Update Packages" package-get-custom])
+       ["Browse..." customize-browse])
+      
+      ("Manage Packages"
+       ("Add Download Site"
+        :filter (lambda (&rest junk)
+                  (package-get-download-menu)))
+       ["Update Package Index" package-get-update-base]
+       ["List & Install" pui-list-packages]
+       ("Using Custom"
+	("Select" :filter (lambda (&rest junk)
+			  (cdr (custom-menu-create 'packages))))
+	["Update" package-get-custom])
+       ["Help" (Info-goto-node "(xemacs)Packages")])
+
+      "---"
+      
       ("Editing Options"
        ["Overstrike"
 	(progn