diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-04-07 06:36:45 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-04-07 06:36:45 +0000 |
commit | a2ac41c9a4f89197d4356309ee43a48601699604 (patch) | |
tree | f57c1e691b97107604f7dedb3a8536750e9f9a0e /lisp/mail/mail-hist.el | |
parent | 8f652d6ca38054e66c0acb4cf5f8a3e2877e1f27 (diff) | |
download | emacs-a2ac41c9a4f89197d4356309ee43a48601699604.tar.gz |
Use $ at end when searching for mail-header-separator.
Diffstat (limited to 'lisp/mail/mail-hist.el')
-rw-r--r-- | lisp/mail/mail-hist.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el index 3c9db59b502..6a80398fd46 100644 --- a/lisp/mail/mail-hist.el +++ b/lisp/mail/mail-hist.el @@ -3,7 +3,6 @@ ;; Author: Karl Fogel <kfogel@cs.oberlin.edu> ;; Created: March, 1994 -;; Version: 1.3 ;; Keywords: mail, history ;; This file is part of GNU Emacs. @@ -99,14 +98,15 @@ Oldest elements are dumped first.") Returns nil if not in a header, implying that point is in the body of the message." (if (save-excursion - (re-search-backward (concat "^" (regexp-quote mail-header-separator)) + (re-search-backward (concat "^" (regexp-quote mail-header-separator) + "$") nil t)) nil ; then we are in the body of the message (save-excursion (let* ((body-start ; limit possibility of false headers (save-excursion (re-search-forward - (concat "^" (regexp-quote mail-header-separator)) + (concat "^" (regexp-quote mail-header-separator) "$") nil t))) (name-start (re-search-backward mail-hist-header-regexp nil t)) @@ -127,7 +127,7 @@ colon after the header name, or on the second space following that if the header is empty." (let ((boundary (save-excursion (re-search-forward - (concat "^" (regexp-quote mail-header-separator)) + (concat "^" (regexp-quote mail-header-separator) "$") nil t)))) (and boundary @@ -174,7 +174,7 @@ colon, or just after the colon if it is not followed by whitespace." (let ((start (point))) (or (mail-hist-forward-header 1) (re-search-forward - (concat "^" (regexp-quote mail-header-separator)))) + (concat "^" (regexp-quote mail-header-separator) "$"))) (beginning-of-line) (buffer-substring start (1- (point)))))) @@ -219,7 +219,7 @@ This function normally would be called when the message is sent." (save-excursion (goto-char (point-min)) (re-search-forward - (concat "^" (regexp-quote mail-header-separator)) + (concat "^" (regexp-quote mail-header-separator) "$") nil) (forward-line 1) (buffer-substring (point) (point-max))))) |