Mercurial > emacs
comparison lisp/mail/sendmail.el @ 19171:2746f25df333
(mail-mode): Allow TAB after prefix in previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Aug 1997 17:25:06 +0000 |
| parents | 248ec4d8a5e6 |
| children | e32501a34d5c |
comparison
equal
deleted
inserted
replaced
| 19170:ecc4375537e3 | 19171:2746f25df333 |
|---|---|
| 346 (setq normal-auto-fill-function 'mail-mode-auto-fill) | 346 (setq normal-auto-fill-function 'mail-mode-auto-fill) |
| 347 (make-local-variable 'fill-paragraph-function) | 347 (make-local-variable 'fill-paragraph-function) |
| 348 (setq fill-paragraph-function 'mail-mode-fill-paragraph) | 348 (setq fill-paragraph-function 'mail-mode-fill-paragraph) |
| 349 (make-local-variable 'adaptive-fill-regexp) | 349 (make-local-variable 'adaptive-fill-regexp) |
| 350 (setq adaptive-fill-regexp | 350 (setq adaptive-fill-regexp |
| 351 (concat "[ \t]*[a-z0-9A-Z]*>+ *\\|" adaptive-fill-regexp)) | 351 (concat "[ \t]*[a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp)) |
| 352 (make-local-variable 'adaptive-fill-first-line-regexp) | 352 (make-local-variable 'adaptive-fill-first-line-regexp) |
| 353 (setq adaptive-fill-first-line-regexp adaptive-fill-regexp) | 353 (setq adaptive-fill-first-line-regexp adaptive-fill-regexp) |
| 354 ;; `-- ' precedes the signature. `-----' appears at the start of the | 354 ;; `-- ' precedes the signature. `-----' appears at the start of the |
| 355 ;; lines that delimit forwarded messages. | 355 ;; lines that delimit forwarded messages. |
| 356 ;; Lines containing just >= 3 dashes, perhaps after whitespace, | 356 ;; Lines containing just >= 3 dashes, perhaps after whitespace, |
| 357 ;; are also sometimes used and should be separators. | 357 ;; are also sometimes used and should be separators. |
| 358 (setq paragraph-start (concat (regexp-quote mail-header-separator) | 358 (setq paragraph-start (concat (regexp-quote mail-header-separator) |
| 359 "$\\|[ \t]*[a-z0-9A-Z]*>+ *$\\|[ \t]*$\\|" | 359 "$\\|[ \t]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|" |
| 360 page-delimiter)) | 360 page-delimiter)) |
| 361 (setq paragraph-separate paragraph-start) | 361 (setq paragraph-separate paragraph-start) |
| 362 (run-hooks 'text-mode-hook 'mail-mode-hook)) | 362 (run-hooks 'text-mode-hook 'mail-mode-hook)) |
| 363 | 363 |
| 364 (defun mail-mode-auto-fill () | 364 (defun mail-mode-auto-fill () |