From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/3849 Path: main.gmane.org!not-for-mail From: Sudish Joseph Newsgroups: gmane.emacs.gnus.general Subject: Re: Suggestion: support "a" from the group buffer. [patch] Date: 04 Nov 1995 19:42:42 -0500 Organization: The Ohio State University Dept. of Computer and Info. Science Sender: joseph@cis.ohio-state.edu Message-ID: References: <199511050011.QAA08604@steffi.accessone.com> NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035144673 27551 80.91.224.250 (20 Oct 2002 20:11:13 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:11:13 +0000 (UTC) Cc: Lars Magne Ingebrigtsen , Robert Nicholson X-From-Line: ding-request@ifi.uio.no Sat Nov 4 17:16:48 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 RAA17975 for ; Sat, 4 Nov 1995 17:16:43 -0800 Original-Received: from news.cis.ohio-state.edu (news.cis.ohio-state.edu [164.107.8.50]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id ; Sun, 5 Nov 1995 01:42:49 +0100 Original-Received: from crete.cis.ohio-state.edu (crete.cis.ohio-state.edu [164.107.138.7]) by news.cis.ohio-state.edu (8.6.8.1/8.6.4) with ESMTP id TAA07597; Sat, 4 Nov 1995 19:42:47 -0500 Original-Received: (joseph@localhost) by crete.cis.ohio-state.edu (8.6.7/8.6.4) id TAA19904; Sat, 4 Nov 1995 19:42:45 -0500 Original-To: The Ding List In-Reply-To: Sudish Joseph's message of 04 Nov 1995 19:28:28 -0500 Original-Lines: 58 Xref: main.gmane.org gmane.emacs.gnus.general:3849 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:3849 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 + + * 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."