diff options
| author | Andrew Cohen | 2013-05-04 22:38:05 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2013-05-04 22:38:05 +0000 |
| commit | f4c7b20fc11370d032a915d67e3ad4150b162a10 (patch) | |
| tree | 36ae9dca6f488e49d1cce4c50dd80d917b03d4f2 | |
| parent | 0a6313f7e3062a1c4ed2b32b68122484e847dc0f (diff) | |
| download | emacs-f4c7b20fc11370d032a915d67e3ad4150b162a10.tar.gz emacs-f4c7b20fc11370d032a915d67e3ad4150b162a10.zip | |
gnus-sum.el (gnus-read-header): Ensure groups are prefixed when entering into the registry
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index bca0933437d..60abb3eef7e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -4,6 +4,11 @@ | |||
| 4 | (message-send-and-exit): Don't pass `buf' so as to hide the buffer | 4 | (message-send-and-exit): Don't pass `buf' so as to hide the buffer |
| 5 | (bug#14085). | 5 | (bug#14085). |
| 6 | 6 | ||
| 7 | 2013-05-04 Andrew Cohen <cohen@bu.edu> | ||
| 8 | |||
| 9 | * gnus-sum.el (gnus-read-header): Ensure groups are prefixed when | ||
| 10 | entering into the registry. | ||
| 11 | |||
| 7 | 2013-05-01 Katsumi Yamaoka <yamaoka@jpl.org> | 12 | 2013-05-01 Katsumi Yamaoka <yamaoka@jpl.org> |
| 8 | 13 | ||
| 9 | * gnus-util.el (gnus-emacs-completing-read): Fix a filter for XEmacs. | 14 | * gnus-util.el (gnus-emacs-completing-read): Fix a filter for XEmacs. |
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index e6366e775df..f0b17341e77 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -12415,7 +12415,9 @@ If REVERSE, save parts that do not match TYPE." | |||
| 12415 | (not (gnus-ephemeral-group-p (car where)))) | 12415 | (not (gnus-ephemeral-group-p (car where)))) |
| 12416 | (gnus-registry-handle-action | 12416 | (gnus-registry-handle-action |
| 12417 | (mail-header-id header) nil | 12417 | (mail-header-id header) nil |
| 12418 | (gnus-group-prefixed-name (car where) gnus-override-method) | 12418 | (gnus-group-prefixed-name |
| 12419 | (car where) | ||
| 12420 | (or gnus-override-method (gnus-find-method-for-group group))) | ||
| 12419 | (mail-header-subject header) | 12421 | (mail-header-subject header) |
| 12420 | (mail-header-from header))) | 12422 | (mail-header-from header))) |
| 12421 | (when (and (stringp id) | 12423 | (when (and (stringp id) |