[PATCH] remove only empty lines

["Łukasz Stelmach" <lukasz.stelmach@iem.pw.edu.pl>]

[-- Attachment #1: Type: text/plain, Size: 1214 bytes --]

Hi.

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)).

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/message.el b/lisp/message.el
index 1fcd12f..cc8e73b 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)
--8<---------------cut here---------------end--------------->8---

-- 
Miłego dnia,
Łukasz Stelmach

... Winogrona w popłochu tulą się do połówek cytryn. Jazda...

[-- Attachment #2: Type: application/pgp-signature, Size: 489 bytes --]