Mercurial > emacs
comparison lisp/mail/sendmail.el @ 54278:e83b2d0cd614
(mail-mode): Set comment-start-skip.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 04 Mar 2004 19:58:24 +0000 |
| parents | 79093b308520 |
| children | 1395db493830 |
comparison
equal
deleted
inserted
replaced
| 54277:d6041d05bc86 | 54278:e83b2d0cd614 |
|---|---|
| 1 ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- | 1 ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- |
| 2 | 2 |
| 3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002, 2003 | 3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002, 03, 2004 |
| 4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Maintainer: FSF | 6 ;; Maintainer: FSF |
| 7 ;; Keywords: mail | 7 ;; Keywords: mail |
| 8 | 8 |
| 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) | |
| 516 (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*")) | |
| 515 (make-local-variable 'adaptive-fill-regexp) | 517 (make-local-variable 'adaptive-fill-regexp) |
| 516 (setq adaptive-fill-regexp | 518 (setq adaptive-fill-regexp |
| 517 (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" | 519 (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" |
| 518 adaptive-fill-regexp)) | 520 adaptive-fill-regexp)) |
| 519 (make-local-variable 'adaptive-fill-first-line-regexp) | 521 (make-local-variable 'adaptive-fill-first-line-regexp) |