changeset 11768:8f49fc89adcc

(sc-no-blank-line-or-header): Make mail-header-separator into a regexp.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 May 1995 04:05:54 +0000
parents 4166c8ea623d
children 4b5452f8ad12
files lisp/mail/supercite.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/supercite.el	Tue May 09 02:38:03 1995 +0000
+++ b/lisp/mail/supercite.el	Tue May 09 04:05:54 1995 +0000
@@ -1419,7 +1419,8 @@
   (if (not (bobp))
       (if (and (eolp)
 	       (progn (forward-line -1)
-		      (or (looking-at mail-header-separator)
+		      (or (looking-at
+			   (concat "^" (regexp-quote mail-header-separator) "$"))
 			  (and (eq major-mode 'mh-letter-mode)
 			       (mh-in-header-p)))))
 	  (progn (forward-line)