From: 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/gitweb/?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))