(group-name-at-point): New function.

(gnus-fetch-group): Provide default from thing at point.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66cfd96..9ba718e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
        * gnus-group.el (gnus-group-catchup-current): Change
        if-then-else-if-then-else into cond.
        (gnus-group-catchup): Indent.
+       (group-name-at-point): New function.
+       (gnus-fetch-group): Provide default from thing at point.
 
 2006-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index be73806..6e4de2c 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2108,11 +2108,26 @@ be permanent."
     (gnus-group-read-ephemeral-group
      (gnus-group-prefixed-name group method) method)))
 
+(defun group-name-at-point ()
+  (let ((regexp "[^-a-zA-Z+.:_]"))
+    (save-excursion
+      (buffer-substring
+       (progn
+        (re-search-backward regexp nil t)
+        (forward-char 1)
+        (point))
+       (progn
+        (re-search-forward regexp nil t)
+        (forward-char -1)
+        (point))))))
+
 ;;;###autoload
 (defun gnus-fetch-group (group &optional articles)
   "Start Gnus if necessary and enter GROUP.
 Returns whether the fetching was successful or not."
-  (interactive (list (completing-read "Group name: " gnus-active-hashtb)))
+  (interactive (list (completing-read "Group name: " gnus-active-hashtb
+                                     nil nil nil nil
+                                     (group-name-at-point))))
   (unless (get-buffer gnus-group-buffer)
     (gnus-no-server))
   (gnus-group-read-group articles nil group))