[Emacs-diffs] Changes to emacs/lisp/gnus/message.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/04/10 23:48:07

Index: message.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/message.el,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -b -r1.117 -r1.118
--- message.el  27 Mar 2007 14:12:33 -0000      1.117
+++ message.el  10 Apr 2007 23:48:06 -0000      1.118
@@ -3346,13 +3346,16 @@
       (delete-windows-on message-reply-buffer t)
       (push-mark (save-excursion
                   (insert-buffer-substring message-reply-buffer)
-                  (point)))
-      (unless arg
-       (funcall message-cite-function))
-      (unless (< (point) (mark-marker))
-        (message-exchange-point-and-mark))
       (unless (bolp)
        (insert ?\n))
+                  (point)))
+      (unless arg
+       (funcall message-cite-function)
+       (unless (eq (char-before (mark t)) ?\n)
+         (let ((pt (point)))
+           (goto-char (mark t))
+           (insert-before-markers ?\n)
+           (goto-char pt))))
       (unless modified
        (setq message-checksum (message-checksum))))))