diff options
| author | Richard M. Stallman | 1997-08-26 06:30:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-26 06:30:41 +0000 |
| commit | a5d0c44ef86760deba9b62954c5a6c173ff751e1 (patch) | |
| tree | a0477735ad9c762ae01f4a77381edfbcef4d3d91 | |
| parent | 8520b9bf5557c4f8d5a0106f3122fe056e20dd88 (diff) | |
| download | emacs-a5d0c44ef86760deba9b62954c5a6c173ff751e1.tar.gz emacs-a5d0c44ef86760deba9b62954c5a6c173ff751e1.zip | |
(gnus-group-make-useful-group): Don't use caddr in interactive.
| -rw-r--r-- | lisp/gnus/gnus-group.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1961 | (let ((entry (assoc (completing-read "Create group: " gnus-useful-groups | 1961 | (let ((entry (assoc (completing-read "Create group: " gnus-useful-groups |
| 1962 | nil t) | 1962 | nil t) |
| 1963 | gnus-useful-groups))) | 1963 | gnus-useful-groups))) |
| 1964 | (list (cadr entry) (caddr entry)))) | 1964 | (list (cadr entry) (nth 2 entry)))) |
| 1965 | (setq method (gnus-copy-sequence method)) | 1965 | (setq method (gnus-copy-sequence method)) |
| 1966 | (let (entry) | 1966 | (let (entry) |
| 1967 | (while (setq entry (memq (assq 'eval method) method)) | 1967 | (while (setq entry (memq (assq 'eval method) method)) |