Fix previous change:

[gnu-emacs] / lisp / mail / mail-hist.el

diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el
index 3cecbba0a552b7d3da1a2cd2842ee69e877f2e3d..da27b726efa8bb6af6976f8e8f8ad89ff1c46863 100644 (file)
--- a/lisp/mail/mail-hist.el
+++ b/lisp/mail/mail-hist.el
@@ -1,4 +1,4 @@
-;;; mail-hist.el --- Headers and message body history for outgoing mail.
+;;; mail-hist.el --- headers and message body history for outgoing mail

 
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
 
 
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
 


@@ -122,7 +122,7 @@ the message."
 (defsubst mail-hist-forward-header (count)
   "Move forward COUNT headers (backward if COUNT is negative).
 If last/first header is encountered first, stop there and returns
 (defsubst mail-hist-forward-header (count)
   "Move forward COUNT headers (backward if COUNT is negative).
 If last/first header is encountered first, stop there and returns

-nil.  
+nil.

 
 Places point on the first non-whitespace on the line following the
 colon after the header name, or on the second space following that if
 
 Places point on the first non-whitespace on the line following the
 colon after the header name, or on the second space following that if


@@ -212,11 +212,11 @@ Optional argument CONTENTS is a string which will be the contents
 
 ;;;###autoload
 (defun mail-hist-put-headers-into-history ()
 
 ;;;###autoload
 (defun mail-hist-put-headers-into-history ()

-  "Put headers and contents of this message into mail header history. 
+  "Put headers and contents of this message into mail header history.

 Each header has its own independent history, as does the body of the
 message.
 
 Each header has its own independent history, as does the body of the
 message.
 

-This function normally would be called when the message is sent." 
+This function normally would be called when the message is sent."

   (and
    mail-hist-keep-history
    (save-excursion
   (and
    mail-hist-keep-history
    (save-excursion


@@ -245,7 +245,7 @@ This function normally would be called when the message is sent."
           (ding)
           (message "No history for \"%s\"." header))
       (if (ring-empty-p ring)
           (ding)
           (message "No history for \"%s\"." header))
       (if (ring-empty-p ring)

-          (error "\"%s\" ring is empty." header)
+          (error "\"%s\" ring is empty" header)

         (and repeat
              (delete-region (car mail-hist-last-bounds)
                             (cdr mail-hist-last-bounds)))
         (and repeat
              (delete-region (car mail-hist-last-bounds)
                             (cdr mail-hist-last-bounds)))


@@ -260,7 +260,7 @@ This function normally would be called when the message is sent."
           ;; bottom is often just the same quoted history for every
           ;; message in the thread, differing only in indentation
           ;; level.
           ;; bottom is often just the same quoted history for every
           ;; message in the thread, differing only in indentation
           ;; level.

-          (if (string-equal header "body") 
+          (if (string-equal header "body")

               (goto-char start)))
         ))))
 
               (goto-char start)))
         ))))
 


@@ -283,7 +283,7 @@ its own independent history, as does the body of the message.
 
 Although you can do so, it does not make much sense to call this
 without having called `mail-hist-previous-header' first
 
 Although you can do so, it does not make much sense to call this
 without having called `mail-hist-previous-header' first

-(\\[mail-hist-previous-header]).
+\(\\[mail-hist-previous-header]).

 
 The history only contains the contents of outgoing messages, not
 received mail."
 
 The history only contains the contents of outgoing messages, not
 received mail."


@@ -293,4 +293,4 @@ received mail."
 \f
 (provide 'mail-hist)
 
 \f
 (provide 'mail-hist)
 

-;; mail-hist.el ends here
+;;; mail-hist.el ends here