* Suggestion: support "a" from the group buffer.
@ 1995-11-05 0:11 Robert Nicholson
1995-11-05 0:28 ` Suggestion: support "a" from the group buffer. [patch] Sudish Joseph
0 siblings, 1 reply; 4+ messages in thread
From: Robert Nicholson @ 1995-11-05 0:11 UTC (permalink / raw)
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?
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Suggestion: support "a" from the group buffer. [patch]
1995-11-05 0:11 Suggestion: support "a" from the group buffer Robert Nicholson
@ 1995-11-05 0:28 ` Sudish Joseph
1995-11-05 0:42 ` Sudish Joseph
0 siblings, 1 reply; 4+ messages in thread
From: Sudish Joseph @ 1995-11-05 0:28 UTC (permalink / raw)
Cc: Lars Magne Ingebrigtsen
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
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Suggestion: support "a" from the group buffer. [patch]
1995-11-05 0:28 ` Suggestion: support "a" from the group buffer. [patch] Sudish Joseph
@ 1995-11-05 0:42 ` Sudish Joseph
1995-11-05 1:05 ` Sudish Joseph
0 siblings, 1 reply; 4+ messages in thread
From: Sudish Joseph @ 1995-11-05 0:42 UTC (permalink / raw)
Cc: Lars Magne Ingebrigtsen, Robert Nicholson
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."
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Suggestion: support "a" from the group buffer. [patch]
1995-11-05 0:42 ` Sudish Joseph
@ 1995-11-05 1:05 ` Sudish Joseph
0 siblings, 0 replies; 4+ messages in thread
From: Sudish Joseph @ 1995-11-05 1:05 UTC (permalink / raw)
Cc: Lars Magne Ingebrigtsen, Robert Nicholson
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."
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~1995-11-05 1:05 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1995-11-05 0:11 Suggestion: support "a" from the group buffer Robert Nicholson
1995-11-05 0:28 ` Suggestion: support "a" from the group buffer. [patch] Sudish Joseph
1995-11-05 0:42 ` Sudish Joseph
1995-11-05 1:05 ` Sudish Joseph
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).