From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 26 Aug 1997 06:30:41 +0000 (+0000)
Subject: (gnus-group-make-useful-group): Don't use caddr in interactive.
X-Git-Tag: emacs-20.1~410
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5d0c44ef86760deba9b62954c5a6c173ff751e1;p=emacs.git

(gnus-group-make-useful-group): Don't use caddr in interactive.
---

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))