Mercurial > emacs

changeset 21861:d5d9362aa189

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Require sendmail.el. (sc-no-blank-line-or-header): Use mail-header-end.
author Richard M. Stallman <rms@gnu.org>
date Thu, 30 Apr 1998 06:11:39 +0000
parents 58d299618042
children c0569fcdef88
files lisp/mail/supercite.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/supercite.el	Thu Apr 30 04:23:59 1998 +0000
+++ b/lisp/mail/supercite.el	Thu Apr 30 06:11:39 1998 +0000
@@ -36,6 +36,7 @@
 
 
 (require 'regi)
+(require 'sendmail)	;; For mail-header-end.
 
 ;; start user configuration variables
 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
@@ -1577,8 +1578,7 @@
   (if (not (bobp))
       (if (and (eolp)
 	       (progn (forward-line -1)
-		      (or (looking-at
-			   (concat "^" (regexp-quote mail-header-separator) "$"))
+		      (or (= (point) (mail-header-end))
 			  (and (eq major-mode 'mh-letter-mode)
 			       (mh-in-header-p)))))
 	  (progn (forward-line)