Mercurial > emacs
changeset 102406:8717f0e9d25a
(rmail-sort-messages): Use rmail-ensure-blank-line.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 05 Mar 2009 03:44:04 +0000 |
| parents | 7289f3ee7996 |
| children | 4c603ec78d71 |
| files | lisp/mail/rmailsort.el |
| diffstat | 1 files changed, 1 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsort.el Thu Mar 05 03:43:32 2009 +0000 +++ b/lisp/mail/rmailsort.el Thu Mar 05 03:44:04 2009 +0000 @@ -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)