From: morioka <morioka>
Date: Tue, 10 Feb 1998 07:52:25 +0000 (+0000)
Subject: Merge qgnus-0.23.
X-Git-Tag: gnus-6_7-tomo-199811302358~216
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ed3bf9d0a196148188da84f283fd3411e06f4997;p=elisp%2Fgnus.git-

Merge qgnus-0.23.
---

diff --git a/lisp/message.el b/lisp/message.el
index 8da00f2..09fb030 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -490,8 +490,11 @@ Used by `message-yank-original' via `message-yank-cite'."
 	   mail-citation-hook)
       mail-citation-hook
     'message-cite-original)
-  "*Function for citing an original message."
+  "*Function for citing an original message.
+Pre-defined functions include `message-cite-original' and
+`message-cite-original-without-signature'."
   :type '(radio (function-item message-cite-original)
+		(function-item message-cite-original-without-signature)
 		(function-item sc-cite-original)
 		(function :tag "Other"))
   :group 'message-insertion)
@@ -922,7 +925,7 @@ The cdr of ech entry is a function for applying the face to a region.")
     (Lines)
     (Expires)
     (Message-ID)
-    (References)
+    (References . message-fill-header)
     (X-Mailer)
     (X-Newsreader))
   "Alist used for formatting headers.")
@@ -1472,7 +1475,10 @@ With the prefix argument FORCE, insert the header anyway."
   (interactive)
   (let ((point (point)))
     (message-goto-signature)
-    (kill-region point (point))))
+    (forward-line -2)
+    (kill-region point (point))
+    (unless (bolp)
+      (insert "\n"))))
 
 (defun message-newline-and-reformat ()
   "Insert four newlines, and then reformat if inside quoted text."
@@ -1711,6 +1717,26 @@ prefix, and don't delete any headers."
       (unless modified
 	(setq message-checksum (cons (message-checksum) (buffer-size)))))))
 
+(defun message-cite-original-without-signature ()
+  "Cite function in the standard Message manner."
+  (let ((start (point))
+	(end (mark t))
+	(functions
+	 (when message-indent-citation-function
+	   (if (listp message-indent-citation-function)
+	       message-indent-citation-function
+	     (list message-indent-citation-function)))))
+    (goto-char end)
+    (when (re-search-backward "^-- $" start t)
+      (delete-region (point) end))
+    (goto-char start)
+    (while functions
+      (funcall (pop functions)))
+    (when message-citation-line-function
+      (unless (bolp)
+	(insert "\n"))
+      (funcall message-citation-line-function))))
+
 (defun message-cite-original ()
   "Cite function in the standard Message manner."
   (let ((start (point))
@@ -3918,6 +3944,7 @@ Do a `tab-to-tab-stop' if not in those headers."
 
 (defvar gnus-active-hashtb)
 (defun message-expand-group ()
+  "Expand the group name under point."
   (let* ((b (save-excursion
 	      (save-restriction
 		(narrow-to-region