(gnus-summary-set-article-display-arrow): Make overlay-arrow-position and

 overlay-arrow-string buffer-local;
 no need to check if those variables exist (first appeared in Emacs 18.50).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 042e445..75c73c4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-12-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-sum.el (gnus-summary-set-article-display-arrow): Make
+       overlay-arrow-position and overlay-arrow-string buffer-local; no need
+       to check if those variables exist (first appeared in Emacs 18.50).
+
 2008-12-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-util.el (mm-line-number-at-pos): New function.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index dc7bde6..5b3f433 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -3455,9 +3455,9 @@ display only a single character."
 
 (defun gnus-summary-set-article-display-arrow (pos)
   "Update the overlay arrow to point to line at position POS."
-  (when (and gnus-summary-display-arrow
-            (boundp 'overlay-arrow-position)
-            (boundp 'overlay-arrow-string))
+  (when gnus-summary-display-arrow
+    (make-local-variable 'overlay-arrow-position)
+    (make-local-variable 'overlay-arrow-string)
     (save-excursion
       (goto-char pos)
       (beginning-of-line)