mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

gnus-group.el (gnus-group-read-ephemeral-group): Don't add a new address parameter if one already exists (bug#9676).

Browse Source
This commit is contained in:
Lars Ingebrigtsen 2012-02-02 11:07:55 +00:00 committed by Katsumi Yamaoka
parent 6631d4b635
commit dc637e3d37
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View File

@ -1,5 +1,8 @@
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).

13
lisp/gnus/gnus-group.el
View File

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