From a5d0c44ef86760deba9b62954c5a6c173ff751e1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Aug 1997 06:30:41 +0000 Subject: [PATCH] (gnus-group-make-useful-group): Don't use caddr in interactive. --- lisp/gnus/gnus-group.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 30e3d01e21b..eec47aaa06e 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1961,7 +1961,7 @@ and NEW-NAME will be prompted for." (let ((entry (assoc (completing-read "Create group: " gnus-useful-groups nil t) gnus-useful-groups))) - (list (cadr entry) (caddr entry)))) + (list (cadr entry) (nth 2 entry)))) (setq method (gnus-copy-sequence method)) (let (entry) (while (setq entry (memq (assq 'eval method) method)) -- 2.39.5