From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Thu, 20 Mar 2003 23:05:16 +0000 (+0000)
Subject: 2003-03-20  ShengHuo ZHU  <zsh@cs.rochester.edu>
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=7465c4371c1b54cda6b48d284ab7887ccb40a77f

2003-03-20  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* message.el (message-split-line): Ignore error.

	* lpath.el (split-line): Avoid split-line warning message.

2003-03-20  Kim F. Storm  <storm@cua.dk>

	* message.el (message-split-line): New function.
	(message-mode-map): Remap split-line to message-split-line.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 70ddcde08..2df077328 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2003-03-20  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* message.el (message-split-line): Ignore error.
+
+	* lpath.el (split-line): Avoid split-line warning message.
+
+2003-03-20  Kim F. Storm  <storm@cua.dk>
+
+	* message.el (message-split-line): New function.
+	(message-mode-map): Remap split-line to message-split-line.
+
 2003-03-20  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* message.el (message-make-overlay): Defalias it to make-overlay.
diff --git a/lisp/lpath.el b/lisp/lpath.el
index dd08e6152..4e2b1ecbb 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -71,4 +71,7 @@
 (defun nnkiboze-score-file (a)
   )
 
+(defun split-line (&optional arg)
+  )
+
 (provide 'lpath)
diff --git a/lisp/message.el b/lisp/message.el
index eb1ab4e2f..b58f3de60 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2091,6 +2091,7 @@ Point is left at the beginning of the narrowed-to 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 "\M-q" 'message-fill-paragraph)
+  (define-key message-mode-map [remap split-line]  'message-split-line)
 
   (define-key message-mode-map "\C-c\C-a" 'mml-attach-file)
 
@@ -4905,6 +4906,16 @@ Headers already prepared in the buffer are not modified."
     (widen)
     (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 "*")
+  (condition-case nil
+      (split-line message-yank-prefix) ;; Emacs 21.3.50+ supports arg.
+    (error
+     (split-line))))
+     
+
 (defun message-fill-header (header value)
   (let ((begin (point))
 	(fill-column 78)