unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#7103: Gnus thread indentation character customization
@ 2010-09-25 22:03 Esa Peuha
  2010-10-18 23:20 ` Lars Magne Ingebrigtsen
  0 siblings, 1 reply; 3+ messages in thread
From: Esa Peuha @ 2010-09-25 22:03 UTC (permalink / raw)
  To: 7103


[-- Attachment #1.1: Type: text/plain, Size: 245 bytes --]

The %I specifier of gnus-summary-line-format always indents with spaces
without any way to use a different character. It would be possible to
indent with %B instead of %I, but is seems better to add a customizable
variable (see attached patch).

[-- Attachment #1.2: Type: text/html, Size: 263 bytes --]

[-- Attachment #2: gnus.diff --]
[-- Type: application/octet-stream, Size: 852 bytes --]

=== modified file 'lisp/gnus/gnus-sum.el'
--- lisp/gnus/gnus-sum.el	2010-09-24 22:33:34 +0000
+++ lisp/gnus/gnus-sum.el	2010-09-25 14:28:37 +0000
@@ -326,6 +326,11 @@
   :group 'gnus-thread
   :type 'integer)
 
+(defcustom gnus-thread-indent-char ?    ;Whitespace
+  "*Character used for indenting sub-threads."
+  :group 'gnus-thread
+  :type 'character)
+
 (defcustom gnus-auto-extend-newsgroup t
   "*If non-nil, extend newsgroup forward and backward when requested."
   :group 'gnus-summary-choose
@@ -3588,7 +3593,7 @@
 	  gnus-thread-indent-array-level gnus-thread-indent-level)
     (while (>= n 0)
       (aset gnus-thread-indent-array n
-	    (make-string (* n gnus-thread-indent-level) ? ))
+	    (make-string (* n gnus-thread-indent-level) gnus-thread-indent-char))
       (setq n (1- n)))))
 
 (defun gnus-update-summary-mark-positions ()


^ permalink raw reply	[flat|nested] 3+ messages in thread
[parent not found: <mailman.15.1285452673.23917.bug-gnu-emacs@gnu.org>]

end of thread, other threads:[~2010-10-18 23:20 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-09-25 22:03 bug#7103: Gnus thread indentation character customization Esa Peuha
2010-10-18 23:20 ` Lars Magne Ingebrigtsen
     [not found] <mailman.15.1285452673.23917.bug-gnu-emacs@gnu.org>
2010-09-25 23:06 ` Lars Magne Ingebrigtsen

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).