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

[Richard M. Stallman]

    --- /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.