(gnus-fetch-group): Provide default from thing at point.
* gnus-group.el (gnus-group-catchup-current): Change
if-then-else-if-then-else into cond.
(gnus-group-catchup): Indent.
* 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>
2006-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
(gnus-group-read-ephemeral-group
(gnus-group-prefixed-name group method) method)))
(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."
;;;###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))
(unless (get-buffer gnus-group-buffer)
(gnus-no-server))
(gnus-group-read-group articles nil group))