bug#25091: 26.0.50; shr-map hides gnus-article keys

[npostavs]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

>
> I'm not quite sure if it is the right way, but tried fixing it
> as follows:

[...]

> +      (let ((command (lookup-key (current-local-map) (this-command-keys))))
> +     (unless (and command
> +                  (condition-case nil
> +                      (progn (call-interactively command) t)
> +                    (error nil)))
> +       (goto-char start)
> +       (message "No next link"))))

There's a similar attempt in yasnippet to try use the original binding.
It's generally been troublesome.  I'm planning to switch it to use a
conditional binding as described at [1].

(define-key <map> <key>
  `(menu-item "" <my-cmd> :filter ,(lambda (cmd) (if <my-predicate> cmd))))

[1]: 
http://stackoverflow.com/questions/16090517/elisp-conditionally-change-keybinding/22863701#22863701