Re: mouse-1-click-follows-link and mime messages

["Richard M. Stallman" <rms@gnu.org>]

    --- /home/cyd/emacs/lisp/wid-edit.el	2006-02-07 19:32:34.000000000 -0500
    ***************
    *** 1754,1760 ****
	"An embedded link."
	:button-prefix 'widget-link-prefix
	:button-suffix 'widget-link-suffix
    !   :follow-link "\C-m"
	:help-echo "Follow the link."
	:format "%[%t%]")

    --- 1754,1760 ----
	"An embedded link."
	:button-prefix 'widget-link-prefix
	:button-suffix 'widget-link-suffix
    !   :follow-link 'widget-button-click
	:help-echo "Follow the link."
	:format "%[%t%]")

If that fixes the problem, I suspect there may be a bug in
the code that implements :follow-link.  Maybe that code
needs to select the window that the link is in.
Could you take a look?

    Now,
    hover the mouse over one of the links in the header line.  An error is
    signalled:

      Debugger entered--Lisp error: (args-out-of-range 1875 1875)
      get-char-property(1875 follow-link)
      mouse-on-link-p((#<window 6 on *info*> header-line (118 . 13) 0
	(#("Next: Face Customization,  Prev: Changing a Variable,  Up: Easy
	    Customization" 0 6 ... 6 24 ... 24 27 nil 27 33 ... 33 52 ... 52 55
	    nil 55 59 ... 59 77 ...) . 16) 1875 (16 . -1) nil (6 . 13) (7 . 14)))

I suspect that is a simple bug in mouse-on-link-p, that it doesn't
handle all the possible formats of an event.