From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/3851
Path: main.gmane.org!not-for-mail
From: Robert Nicholson <robert@steffi.accessone.com>
Newsgroups: gmane.emacs.gnus.general
Subject: "a"ing in the group buffer cont'd
Date: Sat, 4 Nov 1995 17:22:56 -0800 (PST)
Message-ID: <199511050122.RAA00344@steffi.accessone.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035144675 27553 80.91.224.250 (20 Oct 2002 20:11:15 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:11:15 +0000 (UTC)
X-From-Line: ding-request@ifi.uio.no  Sat Nov  4 18:05:28 1995
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.6.11/8.6.9) with ESMTP id SAA18113 for <steve@miranova.com>; Sat, 4 Nov 1995 18:05:08 -0800
Original-Received: from pulm1.accessone.com (root@pulm1.accessone.com [198.68.191.10]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <CAA09334@ifi.uio.no> for <ding@ifi.uio.no> ; Sun, 5 Nov 1995 02:33:21 +0100
Original-Received: from steffi.accessone.com by pulm1.accessone.com (4.1/SMI-4.1)
	id AA01649; Sat, 4 Nov 95 17:33:31 PST
Original-Received: (from robert@localhost) by steffi.accessone.com (8.7.1/8.7.1) id RAA00344 for ding@ifi.uio.no; Sat, 4 Nov 1995 17:22:56 -0800 (PST)
Original-To: ding@ifi.uio.no
Original-Lines: 20
Xref: main.gmane.org gmane.emacs.gnus.general:3851
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:3851


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))))