Mercurial > emacs

comparison lisp/mail/sendmail.el @ 11305:e39cb5447c68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-mode): Make mail-header-separator into regexp.
author Richard M. Stallman <rms@gnu.org>
date Sat, 08 Apr 1995 20:09:28 +0000
parents 67a8c8274784
children 4c3096cfd900
comparison
equal deleted inserted replaced
11304:97b1aef779dc 11305:e39cb5447c68
294 (setq buffer-offer-save t) 294 (setq buffer-offer-save t)
295 (make-local-variable 'font-lock-defaults) 295 (make-local-variable 'font-lock-defaults)
296 (setq font-lock-defaults '(mail-font-lock-keywords t)) 296 (setq font-lock-defaults '(mail-font-lock-keywords t))
297 (make-local-variable 'paragraph-separate) 297 (make-local-variable 'paragraph-separate)
298 (make-local-variable 'paragraph-start) 298 (make-local-variable 'paragraph-start)
299 (setq paragraph-start (concat mail-header-separator 299 (setq paragraph-start (concat (regexp-quote mail-header-separator)
300 "$\\|[ \t]*[-_][-_][-_]+$\\|" 300 "$\\|[ \t]*[-_][-_][-_]+$\\|"
301 paragraph-start)) 301 paragraph-start))
302 (setq paragraph-separate (concat mail-header-separator 302 (setq paragraph-separate (concat (regexp-quote mail-header-separator)
303 "$\\|[ \t]*[-_][-_][-_]+$\\|" 303 "$\\|[ \t]*[-_][-_][-_]+$\\|"
304 paragraph-separate)) 304 paragraph-separate))
305 (run-hooks 'text-mode-hook 'mail-mode-hook)) 305 (run-hooks 'text-mode-hook 'mail-mode-hook))
306 306
307 ;;; Set up keymap. 307 ;;; Set up keymap.