diff options
| author | Dave Abrahams <dave@boostpro.com> | 2012-08-31 04:39:30 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-08-31 04:39:30 +0000 |
| commit | c20643e2105117277d0b1d1880848e2ab31b967c (patch) | |
| tree | db11e3362bdc77f1b50027ce191b22f18bc399f8 /lisp/gnus/gnus-registry.el | |
| parent | 4e0f64791b6f38bfaa8d84addf7a472a15aac111 (diff) | |
| download | emacs-c20643e2105117277d0b1d1880848e2ab31b967c.tar.gz | |
[Gnus] Miscellaneous fixes by Dave Abrahams
Diffstat (limited to 'lisp/gnus/gnus-registry.el')
| -rw-r--r-- | lisp/gnus/gnus-registry.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el index 8aecc98ee86..71e00967548 100644 --- a/lisp/gnus/gnus-registry.el +++ b/lisp/gnus/gnus-registry.el @@ -1169,9 +1169,10 @@ data stored in the registry." ;; Try to activate the group. If that fails, just move ;; along. We may have more groups to work with - (ignore-errors - (gnus-select-group-with-message-id group message-id)) - (throw 'found t))))))) + (when + (ignore-errors + (gnus-select-group-with-message-id group message-id) t) + (throw 'found t)))))))) ;; TODO: a few things |