procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow customising the article mode cursor behavior

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2016-02-20 19:05:45 +11:00
parent 24c1c1d5c3
commit 896f993dec
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
doc/misc/gnus.texi
View file

@ -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.
@item gnus-article-show-cursor
@vindex gnus-article-show-cursor
If non-@code{nil}, 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}

9
lisp/gnus/gnus-art.el
View file

@ -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