(gnus-article-add-button): Make a button overlay without the front stickiness.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7406a26..8457227 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-12  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-article-add-button): Make a button overlay without
+       the front stickiness.
+
 2007-10-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-button-alist): Exclude newline in RFC2396-compliant

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index cdfe3bd..488840e 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -7463,7 +7463,7 @@ url is put as the `gnus-button-url' overlay property on the button."
 (defun gnus-article-add-button (from to fun &optional data)
   "Create a button between FROM and TO with callback FUN and data DATA."
   (when gnus-article-button-face
-    (gnus-overlay-put (gnus-make-overlay from to)
+    (gnus-overlay-put (gnus-make-overlay from to nil t)
                      'face gnus-article-button-face))
   (gnus-add-text-properties
    from to