Commit dc637e3d authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

gnus-group.el (gnus-group-read-ephemeral-group): Don't add a new address...

gnus-group.el (gnus-group-read-ephemeral-group): Don't add a new address parameter if one already exists (bug#9676).
parent 6631d4b6
2012-02-02 Lars Ingebrigtsen <larsi@gnus.org>
 
* gnus-group.el (gnus-group-read-ephemeral-group): Don't add a new
address parameter if one already exists (bug#9676).
* gnus-msg.el (gnus-summary-mail-forward): Respect the process marks,
not the prefix, as documented (bug#10689).
 
......
......@@ -2295,10 +2295,15 @@ Return the name of the group if selection was successful."
(gnus-no-server))
(when (stringp method)
(setq method (gnus-server-to-method method)))
(setq method
`(,(car method) ,(concat (cadr method) "-ephemeral")
(,(intern (format "%s-address" (car method))) ,(cadr method))
,@(cddr method)))
(let ((address-slot
(intern (format "%s-address" (car method)))))
(setq method
(if (assq address-slot (cddr method))
`(,(car method) ,(concat (cadr method) "-ephemeral")
,@(cddr method))
`(,(car method) ,(concat (cadr method) "-ephemeral")
(,address-slot ,(cadr method))
,@(cddr method)))))
(let ((group (if (gnus-group-foreign-p group) group
(gnus-group-prefixed-name (gnus-group-real-name group)
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