[Emacs-diffs] emacs-25 896f993: Allow customising the article mode cursor behavior

[Lars Ingebrigtsen]

branch: emacs-25
commit 896f993dec0e7b18ed701a5dee6c224083d6e1dd
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Allow customising the article mode cursor behavior
    
    * doc/misc/gnus.texi (HTML): Mention gnus-article-show-cursor.
    
    * lisp/gnus/gnus-art.el (gnus-article-show-cursor): New variable.
    (gnus-article-mode): Use it.
---
 doc/misc/gnus.texi    |    4 ++++
 lisp/gnus/gnus-art.el |    9 ++++++++-
 2 files changed, 12 insertions(+), 1 deletions(-)

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 7bcf1cd..2ae2e18 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -11828,6 +11828,10 @@ A value of 0.7 (the default) means that they are 
allowed to take up
 this, and Emacs supports it, then the images will be rescaled down to
 fit these criteria.
 
address@hidden gnus-article-show-cursor
address@hidden gnus-article-show-cursor
+If address@hidden, display the cursor in the article buffer even when
+the article buffer isn't the current buffer.
 @end table
 
 To use this, make sure that you have @code{w3m} and @code{curl}
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 079d16b..4ea8bae 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -527,6 +527,12 @@ each invocation of the saving commands."
                 (item :tag "never" nil)
                 (sexp :tag "once" :format "%t\n" :value t)))
 
+(defcustom gnus-article-show-cursor nil
+  "If non-nil, show the cursor in the Article buffer even when not selected."
+  :version "25.1"
+  :group 'gnus-article
+  :type 'bool)
+
 (defcustom gnus-saved-headers gnus-visible-headers
   "Headers to keep if `gnus-save-all-headers' is nil.
 If `gnus-save-all-headers' is non-nil, this variable will be ignored.
@@ -4521,7 +4527,8 @@ commands:
   (set (make-local-variable 'nobreak-char-display) nil)
   ;; Enable `gnus-article-remove-images' to delete images shr.el renders.
   (set (make-local-variable 'shr-put-image-function) 'gnus-shr-put-image)
-  (setq cursor-in-non-selected-windows nil)
+  (unless gnus-article-show-cursor
+    (setq cursor-in-non-selected-windows nil))
   (gnus-set-default-directory)
   (buffer-disable-undo)
   (setq buffer-read-only t