(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'.
 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'.
 
        * 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 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
        ["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."
 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)))
   ;; Transform the select method into a unique server.
   (when (stringp method)
     (setq method (gnus-server-to-method method)))