Indent.

[gnus] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 48a6ec6..ac8e251 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2009,7 +2009,7 @@ Point is left at the beginning of the narrowed-to region."
   (define-key message-mode-map "\C-c\C-i" 'message-goto-signature)
 
   (define-key message-mode-map "\C-c\C-t" 'message-insert-to)
-  (define-key message-mode-map "\C-c\C-p" 'message-insert-wide-reply)
+  (define-key message-mode-map "\C-c\M-t" 'message-insert-wide-reply)
   (define-key message-mode-map "\C-c\C-n" 'message-insert-newsgroups)
   (define-key message-mode-map "\C-c\C-l" 'message-to-list-only)
 
@@ -2066,7 +2066,7 @@ Point is left at the beginning of the narrowed-to region."
     ["Request Receipt"
      message-insert-disposition-notification-to
      ,@(if (featurep 'xemacs) '(t)
-        '(:help "Request a Disposition Notification of this article"))]
+        '(:help "Request a receipt notification"))]
     ["Spellcheck" ispell-message
      ,@(if (featurep 'xemacs) '(t)
         '(:help "Spellcheck this message"))]
@@ -3776,12 +3776,14 @@ Otherwise, generate and save a value for `canlock-password' first."
      (let ((start (point))
           found)
        (while (and (not found)
-                  (re-search-forward "^[^ \t:]+: " nil t))
+                  (re-search-forward "^\\([^ \t:]+\\): " nil t))
         (when (> (- (point) start) 998)
           (setq found t))
+        (setq start (match-beginning 0))
         (forward-line 1))
        (if found
-          (y-or-n-p "You have a header that's too long.  Really post? ")
+          (y-or-n-p (format "Your %s header is too long.  Really post? "
+                            (match-string 1)))
         t)))
    ;; Check for multiple identical headers.
    (message-check 'multiple-headers