Commit 1ae03cd5 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

* gnus-group.el (gnus-group-make-useful-group): Don't use the compiler

macro caddr in the interactive form since it won't be expanded.
parent c0ccb0d6
2008-09-10 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-group.el (gnus-group-make-useful-group): Don't use the compiler
macro caddr in the interactive form since it won't be expanded.
2008-09-09 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-mime-set-charset-parameters): Add new argument
......
......@@ -2925,7 +2925,10 @@ 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)
;; Don't use `caddr' here since macros within the `interactive'
;; form won't be expanded.
(car (cddr entry)))))
(setq method (gnus-copy-sequence method))
(let (entry)
(while (setq entry (memq (assq 'eval method) method))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment