[gnus git] branch master updated: n0-17-311-g1b53ab6 =1= message: fix indent citation

       via  1b53ab636f0852054bc27624f086bb524f71667f (commit)
      from  94946a475f811199022b55efe3ba26302c17b1a4 (commit)


- Log -----------------------------------------------------------------
commit 1b53ab636f0852054bc27624f086bb524f71667f
Author: Łukasz Stelmach <[email protected]>
Date:   Tue Sep 20 23:12:20 2011 +0200

    message: fix indent citation
    
    There is a very little problem with the current implementation of
    message-indent-citation function. In a signature like mine, with an empty
    line in the middle, the empty line gets removed. The following patch fixes
    the problem.
    
    The "(unless (eolp)..." expression is pointless right after (goto-char
    (point-max)).
    
    Signed-off-by: Julien Danjou <[email protected]>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1a7adf..edaced7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-20  Łukasz Stelmach  <[email protected]>  (tiny change)
+
+	* message.el (message-indent-citation): Fix empty line removal at the
+	end of the citation.
+
 2011-09-20  Julien Danjou  <[email protected]>
 
 	* auth-source.el (auth-source-netrc-create): Use default value for
diff --git a/lisp/message.el b/lisp/message.el
index 0183b87..51c3864 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3723,10 +3723,9 @@ However, if `message-yank-prefix' is non-nil, insert that prefix on each line."
       (message-delete-line))
     ;; Delete blank lines at the end of the buffer.
     (goto-char (point-max))
-    (unless (eolp)
-      (insert "\n"))
-    (while (and (zerop (forward-line -1))
-		(looking-at "$"))
+    (beginning-of-line)
+    (while (and (looking-at "$")
+		(zerop (forward-line -1)))
       (message-delete-line)))
   ;; Do the indentation.
   (if (null message-yank-prefix)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    5 +++++
 lisp/message.el |    7 +++----
 2 files changed, 8 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project