[Emacs-diffs] emacs/lisp/mail rmailsort.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/03/05 03:44:04

Modified files:
        lisp/mail      : rmailsort.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailsort.el?cvsroot=emacs&r1=1.47&r2=1.48

Patches:
Index: rmailsort.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailsort.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- rmailsort.el        4 Mar 2009 04:19:12 -0000       1.47
+++ rmailsort.el        5 Mar 2009 03:44:04 -0000       1.48
@@ -220,10 +220,7 @@
          (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)