Mercurial > emacs
comparison lisp/mail/supercite.el @ 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 | 771bd7ddd4cc |
| children | 47c3aac35700 |
comparison
equal
deleted
inserted
replaced
| 11767:4166c8ea623d | 11768:8f49fc89adcc |
|---|---|
| 1417 (defun sc-no-blank-line-or-header() | 1417 (defun sc-no-blank-line-or-header() |
| 1418 "Similar to `sc-no-header' except it removes the preceeding blank line." | 1418 "Similar to `sc-no-header' except it removes the preceeding blank line." |
| 1419 (if (not (bobp)) | 1419 (if (not (bobp)) |
| 1420 (if (and (eolp) | 1420 (if (and (eolp) |
| 1421 (progn (forward-line -1) | 1421 (progn (forward-line -1) |
| 1422 (or (looking-at mail-header-separator) | 1422 (or (looking-at |
| 1423 (concat "^" (regexp-quote mail-header-separator) "$")) | |
| 1423 (and (eq major-mode 'mh-letter-mode) | 1424 (and (eq major-mode 'mh-letter-mode) |
| 1424 (mh-in-header-p))))) | 1425 (mh-in-header-p))))) |
| 1425 (progn (forward-line) | 1426 (progn (forward-line) |
| 1426 (let ((kill-lines-magic t)) | 1427 (let ((kill-lines-magic t)) |
| 1427 (kill-line)))))) | 1428 (kill-line)))))) |