Re: Group, Summary buffers: End of line contain whitespaces

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> Jari Aalto wrote:
> With setting:

>   (setq-default show-trailing-whitespace t)

> The *Group* and **Summary* buffers seem to have EOL whitespaces. It
> would be nice if these could be taken cared of (consider: copy/pasting
> the buffer contents/areas elsewhere).

> [2. Summary buffer --- image/png; gnus-1.png]
 => http://www.jpl.org/tmp/gnus-1.png

> [3. Group buffer --- image/png; gnus-2.png]
 => http://www.jpl.org/tmp/gnus-2.png

It is due to the space character that the default values of the
following variables contain:

`gnus-group-line-format'
  "%M\%S\%p\%P\%5y:%B%(%g%)%l %O\n" --- Gnus v5.11
  "%M\%S\%p\%P\%5y:%B%(%g%)%O\n"    --- Gnus v5.13

`gnus-summary-line-format'
  "%U%R%z%I%(%[%4L: %-23,23f%]%) %s\n" --- Gnus v5.11 and v5.13

You use Gnus v5.11.  So, for *Group* you can simply replace it with
that of Gnus v5.13 since GroupLens (i.e. %l) is no longer available.
For *Summary*, though it doesn't look good for me, this will work:

(setq gnus-summary-line-format "%U%R%z%I%(%[%4L: %-23,23f%]%)%s\n")

I'm not sure what is the best way but I have two ideas.  One is
to remove trailing whitespace after the group buffer and the summary
buffer have been generated or updated:

--8<---------------cut here---------------start------------->8---
(add-hook
 'gnus-group-prepare-hook
 (lambda nil
   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward " +$" nil t)
       (delete-region (match-beginning 0) (match-end 0))))))

(add-hook
 'gnus-group-update-group-hook
 (lambda nil
   (end-of-line)
   (skip-chars-backward " ")
   (delete-region (point) (point-at-eol))))

(add-hook
 'gnus-summary-prepare-hook
 (lambda nil
   (while (re-search-forward " +$" nil t)
     (delete-region (match-beginning 0) (match-end 0)))
   (goto-char (point-min))))
--8<---------------cut here---------------end--------------->8---

The other is to make the format-spec (which is a Lisp form) remove
trailing whitespace by itself:

--8<---------------cut here---------------start------------->8---
--- gnus-spec.el~	2008-03-02 21:50:11 +0000
+++ gnus-spec.el	2008-08-13 08:25:45 +0000
@@ -703,7 +703,14 @@
 	(when result
 	  (if dontinsert
 	      result
-	    (cons 'insert result)))
+	    `(progn
+	       (insert ,@result)
+	       (if (bolp)
+		   (progn
+		     (end-of-line 0)
+		     (skip-chars-backward " ")
+		     (delete-region (point) (point-at-eol))
+		     (forward-line 1))))))
       (cond ((stringp result)
 	     result)
 	    ((consp result)
--8<---------------cut here---------------end--------------->8---

Maybe the former is faster than the later.  Before trying the later,
you need to eval the form:

(gnus-update-format-specifications t 'group 'summary)

Regards,