From: morioka <morioka>
Date: Tue, 17 Feb 1998 20:20:11 +0000 (+0000)
Subject: Sync up with qgnus-0.28.
X-Git-Tag: gnus-6_7-tomo-199811302358~174
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bf0f6e14b9980532ea39803da00eef1b53890262;p=elisp%2Fgnus.git-

Sync up with qgnus-0.28.
---

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 1d6b013..0b77c87 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -250,7 +250,7 @@ is restarted, and sometimes reloaded."
   "Version number for this version of gnus.")
 
 (defconst gnus-version
-  (format "Semi-gnus %s (based on Quassia Gnus v0.27)" gnus-version-number)
+  (format "Semi-gnus %s (based on Quassia Gnus v0.28)" gnus-version-number)
   "Version string for this version of gnus.")
 
 (defcustom gnus-inhibit-startup-message nil
diff --git a/lisp/message.el b/lisp/message.el
index 40c6111..6d40194 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -234,7 +234,9 @@ any confusion."
   :group 'message-various)
 
 (defcustom message-elide-elipsis "\n[...]\n\n"
-  "*The string which is inserted for elided text.")
+  "*The string which is inserted for elided text."
+  :type 'string
+  :group 'message-various)
 
 (defcustom message-interactive nil
   "*Non-nil means when sending a message wait for and display errors.
@@ -1465,7 +1467,8 @@ With the prefix argument FORCE, insert the header anyway."
   (interactive)
   (let ((point (point)))
     (message-goto-signature)
-    (forward-line -2)
+    (unless (eobp)
+      (forward-line -2))
     (kill-region point (point))
     (unless (bolp)
       (insert "\n"))))
@@ -1524,8 +1527,9 @@ With the prefix argument FORCE, insert the header anyway."
       (or (bolp) (insert "\n")))))
 
 (defun message-elide-region (b e)
-  "Elide the text between point and mark.  An ellipsis (from
-message-elide-elipsis) will be inserted where the text was killed."
+  "Elide the text between point and mark.
+An ellipsis (from `message-elide-elipsis') will be inserted where the
+text was killed."
   (interactive "r")
   (kill-region b e)
   (unless (bolp)
@@ -1821,6 +1825,7 @@ The text will also be indented the normal way."
 (defun message-dont-send ()
   "Don't send the message you have been editing."
   (interactive)
+  (set-buffer-modified-p t)
   (save-buffer)
   (let ((actions message-postpone-actions))
     (message-bury (current-buffer))