From 16cae184c13f03515f1883555f4e22a541b0cc32 Mon Sep 17 00:00:00 2001 From: Alex Branham Date: Sun, 25 Aug 2019 08:05:48 +0200 Subject: [PATCH] The `gnus*-1' functions shouldn't be interactive * lisp/gnus/gnus-start.el (gnus-no-server-1): This function shouldn't be interactive (bug#37022). (gnus-1): Ditto. --- 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 930d522c41b..e8775c66673 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -738,7 +738,6 @@ level. If ARG is nil, Gnus will be started at level 2 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 @@ will not connect to the local server." 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.39.2