Mercurial > emacs
comparison lisp/mail/sendmail.el @ 38911:99a7b10f0164
(mail-mode): Use adaptive-fill-regexp.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 22 Aug 2001 22:20:55 +0000 |
| parents | 2ec4983f57eb |
| children | 0c180a4e348d |
comparison
equal
deleted
inserted
replaced
| 38910:f56c0eb18cac | 38911:99a7b10f0164 |
|---|---|
| 495 ;; Allow using comment commands to add/remove quoting (this only does | 495 ;; Allow using comment commands to add/remove quoting (this only does |
| 496 ;; anything if mail-yank-prefix is set to a non-nil value). | 496 ;; anything if mail-yank-prefix is set to a non-nil value). |
| 497 (set (make-local-variable 'comment-start) mail-yank-prefix) | 497 (set (make-local-variable 'comment-start) mail-yank-prefix) |
| 498 (make-local-variable 'adaptive-fill-regexp) | 498 (make-local-variable 'adaptive-fill-regexp) |
| 499 (setq adaptive-fill-regexp | 499 (setq adaptive-fill-regexp |
| 500 (concat "[ \t]*\\([-|#;>*]+ *\\|(?[0-9]+[.)] *\\)+" | 500 (concat adaptive-fill-regexp |
| 501 "\\|[ \t]*[-[:alnum:]]*>+[ \t]*" | 501 "\\|[ \t]*[-[:alnum:]]*>+[ \t]*")) |
| 502 "\\|[ \t]*")) | |
| 503 (make-local-variable 'adaptive-fill-first-line-regexp) | 502 (make-local-variable 'adaptive-fill-first-line-regexp) |
| 504 (setq adaptive-fill-first-line-regexp | 503 (setq adaptive-fill-first-line-regexp |
| 505 (concat adaptive-fill-first-line-regexp | 504 (concat adaptive-fill-first-line-regexp |
| 506 "\\|[ \t]*[-[:alnum:]]*>+[ \t]*")) | 505 "\\|[ \t]*[-[:alnum:]]*>+[ \t]*")) |
| 507 ;; `-- ' precedes the signature. `-----' appears at the start of the | 506 ;; `-- ' precedes the signature. `-----' appears at the start of the |