diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-05-09 04:05:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-05-09 04:05:54 +0000 |
| commit | 07e4a20d3f4e5c9a34eae28849d22f61c265d368 (patch) | |
| tree | c051ae76cbd50e1194123cc3464b60e4fe4f68f4 /lisp/mail/supercite.el | |
| parent | 3450d04cc892c34ca7223a5ee3e80068510f992c (diff) | |
| download | emacs-07e4a20d3f4e5c9a34eae28849d22f61c265d368.tar.gz emacs-07e4a20d3f4e5c9a34eae28849d22f61c265d368.tar.bz2 emacs-07e4a20d3f4e5c9a34eae28849d22f61c265d368.zip | |
(sc-no-blank-line-or-header): Make mail-header-separator into a regexp.
Diffstat (limited to 'lisp/mail/supercite.el')
| -rw-r--r-- | lisp/mail/supercite.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 71698549d3e..fb31e4cb4e2 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -1419,7 +1419,8 @@ non-nil." (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) |