Mercurial > emacs

changeset 18274:1614755e9b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-mode): mail-header-separator affects paragraphs only when there is nothing after it on the line. (mail-mode-auto-fill, mail-mode-fill-paragraph): Look for mail-header-separator only on a line by itself.
author Richard M. Stallman <rms@gnu.org>
date Tue, 17 Jun 1997 00:08:51 +0000
parents 41496911055d
children e3b0443b4bbb
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Mon Jun 16 23:20:46 1997 +0000
+++ b/lisp/mail/sendmail.el	Tue Jun 17 00:08:51 1997 +0000
@@ -347,7 +347,7 @@
   ;; Lines containing just >= 3 dashes, perhaps after whitespace,
   ;; are also sometimes used and should be separators.
   (setq paragraph-start (concat (regexp-quote mail-header-separator)
-				"\\|[ \t]*$\\|" page-delimiter))
+				"$\\|[ \t]*$\\|" page-delimiter))
   (setq paragraph-separate paragraph-start)
   (run-hooks 'text-mode-hook 'mail-mode-hook))
 
@@ -357,7 +357,7 @@
   (if (< (point)
 	 (save-excursion
 	   (goto-char (point-min))
-	   (if (search-forward mail-header-separator nil t)
+	   (if (search-forward (concat "^" mail-header-separator "$") nil t)
 	       (point)
 	     0)))
       (let ((old-line-start (save-excursion (beginning-of-line) (point))))
@@ -375,7 +375,7 @@
   (if (< (point)
 	 (save-excursion
 	   (goto-char (point-min))
-	   (if (search-forward mail-header-separator nil t)
+	   (if (search-forward (concat "^" mail-header-separator "$") nil t)
 	       (point)
 	     0)))
       (let (beg end fieldname)