From ba1ea92b7514357cc76b475d2ae42eadc91bc7b1 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Fri, 29 Aug 2008 13:51:13 +0000 Subject: [PATCH] (gnus-parse-simple-format): Remove trailing whitespace. --- lisp/ChangeLog | 4 ++++ lisp/gnus-spec.el | 10 +++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a52f2c7d0..c392e5612 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-08-29 Katsumi Yamaoka + + * gnus-spec.el (gnus-parse-simple-format): Remove trailing whitespace. + 2008-08-21 Teodor Zlatanov * gnus-registry.el (gnus-registry-max-track-groups): New variable to diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index 95c6ea13e..40a63f856 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -709,7 +709,15 @@ are supported for %s." (when result (if dontinsert result - (cons 'insert result))) + `(progn + (insert ,@result) + (if (bolp) + ;; remove trailing whitespaces from the line + (progn + (end-of-line 0) + (skip-chars-backward " ") + (delete-region (point) (point-at-eol)) + (forward-line 1)))))) (cond ((stringp result) result) ((consp result) -- 2.34.1