Suggestion: support "a" from the group buffer.

Suggestion: support "a" from the group buffer.

[Robert Nicholson]

If I a from the group buffer I'm saying post the group the cursor is currently
on. If I need to post to a group not visible in the group buffer I can either
"L" to show all potential groups or just gnus-post-news and be prompted for
the group.

Anybody see anything wrong with this?

Re: Suggestion: support "a" from the group buffer. [patch]

[Sudish Joseph]

Robert Nicholson writes:
> If I a from the group buffer I'm saying post the group the cursor is currently
> on. If I need to post to a group not visible in the group buffer I can either
> "L" to show all potential groups or just gnus-post-news and be prompted for
> the group.

Here you go, it's a simple hack.

-Sudish

*** gnus/lisp/ChangeLog	Sun Oct 29 13:54:38 1995
--- lisp/ChangeLog	Sat Nov  4 19:26:23 1995
***************
*** 0 ****
--- 1,6 ----
+ Sat Nov  4 19:24:57 1995  sudish joseph  <joseph@cis.ohio-state.edu>
+ 
+ 	* gnus-msg.el (gnus-group-post-news): Use the group under point as
+ 	  the default when composing the post buffer.  (This means that
+ 	  `a' over a mail group will get you a *mail* buffer.)
+ 
diff -crx ChangeLog gnus/lisp/gnus-msg.el lisp/gnus-msg.el
*** gnus/lisp/gnus-msg.el	Sun Oct 29 13:54:30 1995
--- lisp/gnus-msg.el	Sat Nov  4 19:24:44 1995
***************
*** 330,336 ****
    "Post an article."
    (interactive)
    (let ((gnus-newsgroup-name nil))
!     (gnus-post-news 'post nil nil gnus-article-buffer)))
  
  (defun gnus-summary-post-news ()
    "Post an article."
--- 330,336 ----
    "Post an article."
    (interactive)
    (let ((gnus-newsgroup-name nil))
!     (gnus-post-news 'post (gnus-group-group-name) nil gnus-article-buffer)))
  
  (defun gnus-summary-post-news ()
    "Post an article."
diff -crx ChangeLog gnus/lisp/gnus-vis.el lisp/gnus-vis.el

Re: Suggestion: support "a" from the group buffer. [patch]

[Sudish Joseph]

Here's a slightly better patch--it lets you use a prefix arg to
override the use of a default.  Should it be the other way around?  I
imagine most of us post from within the summary buffer, so letting the
default behaviour in the Group buffer be to assume no defaults is
better, I think.  A prefix could then force using the group under
point. 

Anyways, Lars, you might consider switching the meaning around...

-Sudish

*** gnus/lisp/ChangeLog	Sun Oct 29 13:54:38 1995
--- lisp/ChangeLog	Sat Nov  4 19:36:30 1995
***************
*** 0 ****
--- 1,8 ----
+ Sat Nov  4 19:24:57 1995  sudish joseph  <joseph@cis.ohio-state.edu>
+ 
+ 	* gnus-msg.el (gnus-group-post-news): Use the group under point as
+ 	  the default when composing the post buffer.  (This means that
+ 	  `a' over a mail group will get you a *mail* buffer.)  Using a
+ 	  prefix ARG will force a fresh post buffer (i.e., no default
+ 	  group is used).
+ 
diff -crx ChangeLog gnus/lisp/gnus-msg.el lisp/gnus-msg.el
*** gnus/lisp/gnus-msg.el	Sun Oct 29 13:54:30 1995
--- lisp/gnus-msg.el	Sat Nov  4 19:35:31 1995
***************
*** 326,336 ****
    (interactive)
    (gnus-new-mail))
  
! (defun gnus-group-post-news ()
!   "Post an article."
!   (interactive)
    (let ((gnus-newsgroup-name nil))
!     (gnus-post-news 'post nil nil gnus-article-buffer)))
  
  (defun gnus-summary-post-news ()
    "Post an article."
--- 326,342 ----
    (interactive)
    (gnus-new-mail))
  
! (defun gnus-group-post-news (&optional arg)
!   "Post an article.
! The newsgroup under point is used as the group to post to.
! 
! If you wish to get an empty post buffer, use a prefix ARG.  You can
! also do this by calling this function from the bottom of the Group
! buffer."
!   (interactive "p")
    (let ((gnus-newsgroup-name nil))
!     (gnus-post-news 'post (if arg nil (gnus-group-group-name))
! 		    nil gnus-article-buffer)))
  
  (defun gnus-summary-post-news ()
    "Post an article."

Re: Suggestion: support "a" from the group buffer. [patch]

[Sudish Joseph]

Sudish Joseph writes:
> !   (interactive "p")

Whewps, that should be "P".  Corrected patch follows.

-Sudish
Whee!  Cascaded self-followups rewl.


*** gnus/lisp/ChangeLog	Sun Oct 29 13:54:38 1995
--- lisp/ChangeLog	Sat Nov  4 19:36:30 1995
***************
*** 0 ****
--- 1,8 ----
+ Sat Nov  4 19:24:57 1995  sudish joseph  <joseph@cis.ohio-state.edu>
+ 
+ 	* gnus-msg.el (gnus-group-post-news): Use the group under point as
+ 	  the default when composing the post buffer.  (This means that
+ 	  `a' over a mail group will get you a *mail* buffer.)  Using a
+ 	  prefix ARG will force a fresh post buffer (i.e., no default
+ 	  group is used).
+ 
diff -crx ChangeLog gnus/lisp/gnus-msg.el lisp/gnus-msg.el
*** gnus/lisp/gnus-msg.el	Sun Oct 29 13:54:30 1995
--- lisp/gnus-msg.el	Sat Nov  4 20:01:16 1995
***************
*** 326,336 ****
    (interactive)
    (gnus-new-mail))
  
! (defun gnus-group-post-news ()
!   "Post an article."
!   (interactive)
    (let ((gnus-newsgroup-name nil))
!     (gnus-post-news 'post nil nil gnus-article-buffer)))
  
  (defun gnus-summary-post-news ()
    "Post an article."
--- 326,342 ----
    (interactive)
    (gnus-new-mail))
  
! (defun gnus-group-post-news (&optional arg)
!   "Post an article.
! The newsgroup under the cursor is used as the group to post to.
! 
! If you wish to get an empty post buffer, use a prefix ARG.  You can
! also do this by calling this function from the bottom of the Group
! buffer."
!   (interactive "P")
    (let ((gnus-newsgroup-name nil))
!     (gnus-post-news 'post (if arg nil (gnus-group-group-name))
! 		    nil gnus-article-buffer)))
  
  (defun gnus-summary-post-news ()
    "Post an article."