Synch to No Gnus 200410290525.

[elisp/gnus.git-] / lisp / gnus-msg.el

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index bd75b3c..f41a272 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -2165,8 +2165,8 @@ this is a reply."
        (setq v (with-temp-buffer
                  (insert-file-contents v)
                  (goto-char (point-max))
-                 (while (bolp)
-                   (delete-char -1))
+                 (skip-chars-backward "\n")
+                 (delete-region (+ (point) (if (bolp) 0 1)) (point-max))
                  (buffer-string))))
       (if (eq element 'import)
          (progn