"a"ing in the group buffer cont'd

"a"ing in the group buffer cont'd

[Robert Nicholson]

I've made a start on adding some trivial support to allow "a"ing ...

However perhaps the reason this was never there in the first place is because
this assumes to much about the format of the group lines?

Is there anyway to map from the line number in the group buffer to list
of newsgroups be they sorted or not?

(defun gnus-group-post-news ()
  "Post an article."
  (interactive)
  (save-excursion
    (let ((gnus-newsgroup-name nil))
      (beginning-of-line)
      (if (looking-at ".*: \\(.*\\)")
	  (progn 
	    (setq gnus-newsgroup-name 
		  (buffer-substring (match-beginning 1) (match-end 1)))))
      (gnus-post-news 'post gnus-newsgroup-name nil gnus-article-buffer))))

Re: "a"ing in the group buffer cont'd

[Lars Magne Ingebrigtsen]

Robert Nicholson <robert@steffi.accessone.com> writes:

> I've made a start on adding some trivial support to allow "a"ing ...
> 
> However perhaps the reason this was never there in the first place is because
> this assumes to much about the format of the group lines?
> 
> Is there anyway to map from the line number in the group buffer to list
> of newsgroups be they sorted or not?

You don't really need that.  `gnus-group-group-name' always returns
the current group name.

Anyways, with Sudish's patch(eses) and some additional tinkering,
everything seems to work as one would expect -- prompting with the
current group name as the default.  Which will pop you into a *mail*
buffer when posting to a mail group, etc.

-- 
Home is where the cat is.