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

[Richard M. Stallman]

Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.52 emacs/lisp/gnus/message.el:1.53
*** emacs/lisp/gnus/message.el:1.52     Fri Nov 29 10:57:52 2002
--- emacs/lisp/gnus/message.el  Fri Jan  3 17:48:19 2003
***************
*** 1414,1419 ****
--- 1414,1420 ----
    (define-key message-mode-map "\C-c\C-v" 'message-delete-not-region)
    (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
    (define-key message-mode-map "\M-\r" 'message-newline-and-reformat)
+   (define-key message-mode-map [remap split-line]  'message-split-line)
  
    (define-key message-mode-map "\C-c\C-a" 'mml-attach-file)
  
***************
*** 1777,1782 ****
--- 1778,1789 ----
      (fill-paragraph nil)
      (goto-char point)
      (forward-line 1)))
+ 
+ (defun message-split-line ()
+   "Split current line, moving portion beyond point vertically down.
+ If the current line has `message-yank-prefix', insert it on the new line."
+   (interactive "*")
+   (split-line message-yank-prefix))
  
  (defun message-insert-signature (&optional force)
    "Insert a signature.  See documentation for variable `message-signature'."