(gnus-group-group-map): Added `gnus-group-read-ephemeral-group'

(already in previous commit inadvertently).
(gnus-group-make-menu-bar): Added `gnus-group-read-ephemeral-group'.
(gnus-group-read-ephemeral-group): Made interactive.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a0bc616..fb3b4c8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,10 @@
 2003-12-30  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-group.el: Removed `(when t ...)' around `gnus-define-keys'.
+       (gnus-group-group-map): Added `gnus-group-read-ephemeral-group'
+       (already in previous commit inadvertently).
+       (gnus-group-make-menu-bar): Added `gnus-group-read-ephemeral-group'.
+       (gnus-group-read-ephemeral-group): Made interactive.
 
        * gnus-score.el (gnus-score-find-trace): Added comment on sync
        with `gnus-score-edit-file-at-point'.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 24bdfae..8275284 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -891,6 +891,7 @@ simple manner.")
        ["Make a kiboze group..." gnus-group-make-kiboze-group t]
        ["Make a virtual group..." gnus-group-make-empty-virtual t]
        ["Add a group to a virtual..." gnus-group-add-to-virtual t]
+       ["Make an ephemeral group..." gnus-group-read-ephemeral-group t]
        ["Make an RSS group..." gnus-group-make-rss-group t]
        ["Rename group..." gnus-group-rename-group
         (gnus-check-backend-function
@@ -1985,6 +1986,14 @@ If SELECT-ARTICLES, only select those articles.
 If PARAMETERS, use those as the group parameters.
 
 Return the name of the group if selection was successful."
+  (interactive
+   (list
+    ;; (gnus-read-group "Group name: ")
+    (completing-read
+     "Group: " gnus-active-hashtb
+     nil nil nil
+     'gnus-group-history)
+    (gnus-read-method "From method: ")))
   ;; Transform the select method into a unique server.
   (when (stringp method)
     (setq method (gnus-server-to-method method)))