Mercurial > emacs
comparison lisp/gnus/message.el @ 22952:cd40154f3c7a
Require sendmail.
(message-fill-yanked-message): Use mail-citation-prefix-regexp
as an arg to fill-individual-paragraphs.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 08 Aug 1998 21:28:09 +0000 |
| parents | e3dc0aa099e5 |
| children | e4419c63d4d7 |
comparison
equal
deleted
inserted
replaced
| 22951:19b3899582b4 | 22952:cd40154f3c7a |
|---|---|
| 29 | 29 |
| 30 ;;; Code: | 30 ;;; Code: |
| 31 | 31 |
| 32 (eval-when-compile (require 'cl)) | 32 (eval-when-compile (require 'cl)) |
| 33 | 33 |
| 34 (require 'sendmail) | |
| 34 (require 'mailheader) | 35 (require 'mailheader) |
| 35 (require 'rmail) | 36 (require 'rmail) |
| 36 (require 'nnheader) | 37 (require 'nnheader) |
| 37 (require 'timezone) | 38 (require 'timezone) |
| 38 (require 'easymenu) | 39 (require 'easymenu) |
| 1554 (interactive "P") | 1555 (interactive "P") |
| 1555 (save-excursion | 1556 (save-excursion |
| 1556 (goto-char (point-min)) | 1557 (goto-char (point-min)) |
| 1557 (search-forward (concat "\n" mail-header-separator "\n") nil t) | 1558 (search-forward (concat "\n" mail-header-separator "\n") nil t) |
| 1558 (let ((fill-prefix message-yank-prefix)) | 1559 (let ((fill-prefix message-yank-prefix)) |
| 1559 (fill-individual-paragraphs (point) (point-max) justifyp t)))) | 1560 (fill-individual-paragraphs (point) (point-max) justifyp |
| 1561 mail-citation-prefix-regexp)))) | |
| 1560 | 1562 |
| 1561 (defun message-indent-citation () | 1563 (defun message-indent-citation () |
| 1562 "Modify text just inserted from a message to be cited. | 1564 "Modify text just inserted from a message to be cited. |
| 1563 The inserted text should be the region. | 1565 The inserted text should be the region. |
| 1564 When this function returns, the region is again around the modified text. | 1566 When this function returns, the region is again around the modified text. |