GNU bug report logs - #37022
27.0.50; gnus-1 and gnus have identical docstrings

Previous Next

Full log

Message #11 received at 37022 <at> debbugs.gnu.org (full text, mbox):

From: Alex Branham <alex.branham <at> gmail.com>
To: Eric Abrahamsen <eric <at> ericabrahamsen.net>
Cc: 37022 <at> debbugs.gnu.org, Alex Branham <alex.branham <at> gmail.com>
Subject: Re: bug#37022: 27.0.50; gnus-1 and gnus have identical docstrings
Date: Fri, 23 Aug 2019 10:55:31 -0500

[Message part 1 (text/plain, inline)]

tags 37022 + patch
quit

On Wed 14 Aug 2019 at 12:55, Eric Abrahamsen <eric <at> ericabrahamsen.net> wrote:

> Alex Branham <alex.branham <at> gmail.com> writes:
>
>> Hi -
>>
>> The commands gnus-1 and gnus have identical docstrings. gnus-1 should
>> probably specify how it differs from just M-x gnus (or be
>> noninterative).
>
> I'm inclined to think that gnus-1 (and gnus-no-server-1) shouldn't be
> interactive. I can't see any point to it -- the *-1 variants live in
> gnus-start.el and are not autoloaded. It seems like Gnus' entry points
> should be interactive and autoloaded, and what happens after that is
> internals.

Here's a patch that makes them noninteractive.

Alex

[0001-lisp-gnus-gnus-start.el-gnus-1-gnus-no-server-1-Make.patch (text/x-patch, inline)]

From 2c2411d94618d8c719c2583fe7ed1c19d02cbae9 Mon Sep 17 00:00:00 2001
From: Alex Branham <alex.branham <at> gmail.com>
Date: Fri, 23 Aug 2019 10:51:48 -0500
Subject: [PATCH] * lisp/gnus/gnus-start.el (gnus-1, gnus-no-server-1): Make
 noninteractive

bug#37022
---
 lisp/gnus/gnus-start.el | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 930d522c41..e8775c6667 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -738,7 +738,6 @@ gnus-no-server-1
 and not a positive number, Gnus will prompt the user for the name
 of an NNTP server to use.  As opposed to \\[gnus], this command
 will not connect to the local server."
-  (interactive "P")
   (let ((val (or arg (1- gnus-level-default-subscribed))))
     (gnus val t slave)
     (make-local-variable 'gnus-group-use-permanent-levels)
@@ -749,8 +748,6 @@ gnus-1
 If ARG is non-nil and a positive number, Gnus will use that as the
 startup level.  If ARG is non-nil and not a positive number, Gnus will
 prompt the user for the name of an NNTP server to use."
-  (interactive "P")
-
   (if (gnus-alive-p)
       (progn
 	(gnus-run-hooks 'gnus-before-resume-hook)
-- 
2.22.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.