From: Glenn Morris <rgm@gnu.org>
Date: Thu, 5 Mar 2009 03:44:04 +0000 (+0000)
Subject: (rmail-sort-messages): Use rmail-ensure-blank-line.
X-Git-Tag: emacs-pretest-23.0.92~340
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=137ea8af631cc8ce8ccf9be6d868791dac10ca43;p=emacs.git

(rmail-sort-messages): Use rmail-ensure-blank-line.
---

diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el
index cfc93985719..39244669928 100644
--- a/lisp/mail/rmailsort.el
+++ b/lisp/mail/rmailsort.el
@@ -220,10 +220,7 @@ Numeric keys are sorted numerically, all others as strings."
 	  (insert-buffer-substring
 	   (current-buffer) (nth 2 msginfo) (nth 3 msginfo))
 	  ;; The last message may not have \n\n after it.
-	  (unless (bolp)
-	    (insert "\n"))
-	  (unless (looking-back "\n\n")
-	    (insert "\n"))
+	  (rmail-ensure-blank-line)
 	  (delete-region (nth 2 msginfo) (nth 3 msginfo))
 	  ;; Is current message?
 	  (if (nth 1 msginfo)