Mercurial > emacs

comparison lisp/mail/sendmail.el @ 54286:1395db493830

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-mode): Fix last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 05 Mar 2004 12:56:03 +0000
parents e83b2d0cd614
children af2c1ea381f4
comparison
equal deleted inserted replaced
54285:73cd5983fdb9 54286:1395db493830
510 (make-local-variable 'fill-paragraph-function) 510 (make-local-variable 'fill-paragraph-function)
511 (setq fill-paragraph-function 'mail-mode-fill-paragraph) 511 (setq fill-paragraph-function 'mail-mode-fill-paragraph)
512 ;; Allow using comment commands to add/remove quoting (this only does 512 ;; Allow using comment commands to add/remove quoting (this only does
513 ;; anything if mail-yank-prefix is set to a non-nil value). 513 ;; anything if mail-yank-prefix is set to a non-nil value).
514 (set (make-local-variable 'comment-start) mail-yank-prefix) 514 (set (make-local-variable 'comment-start) mail-yank-prefix)
515 (set (make-local-variable 'comment-start-skip) 515 (if mail-yank-prefix
516 (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*")) 516 (set (make-local-variable 'comment-start-skip)
517 (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*")))
517 (make-local-variable 'adaptive-fill-regexp) 518 (make-local-variable 'adaptive-fill-regexp)
518 (setq adaptive-fill-regexp 519 (setq adaptive-fill-regexp
519 (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" 520 (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|"
520 adaptive-fill-regexp)) 521 adaptive-fill-regexp))
521 (make-local-variable 'adaptive-fill-first-line-regexp) 522 (make-local-variable 'adaptive-fill-first-line-regexp)