[Emacs-diffs] trunk r114970: lisp/gnus/gnus-cite.el (gnus-cite-add-face): Make non-sticky overlays

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 114970
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2013-11-05 09:56:02 +0000
message:
  lisp/gnus/gnus-cite.el (gnus-cite-add-face): Make non-sticky overlays
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-cite.el         
gnuscite.el-20091113204419-o5vbwnq5f7feedwu-1113

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-10-30 06:35:26 +0000
+++ b/lisp/gnus/ChangeLog       2013-11-05 09:56:02 +0000
@@ -1,3 +1,7 @@
+2013-11-05  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-cite.el (gnus-cite-add-face): Make non-sticky overlays.
+
 2013-10-30  Glenn Morris  <address@hidden>
 
        * gnus-group.el (gnus-group-browse-foreign-server):

=== modified file 'lisp/gnus/gnus-cite.el'
--- a/lisp/gnus/gnus-cite.el    2013-03-07 07:28:51 +0000
+++ b/lisp/gnus/gnus-cite.el    2013-11-05 09:56:02 +0000
@@ -1096,7 +1096,7 @@
        (skip-chars-backward " \t")
        (setq to (point))
        (when (< from to)
-         (push (setq overlay (gnus-make-overlay from to))
+         (push (setq overlay (gnus-make-overlay from to nil t))
                gnus-cite-overlay-list)
          (gnus-overlay-put overlay 'evaporate t)
          (gnus-overlay-put overlay 'face face))))))