diff options
| author | Richard M. Stallman | 1998-08-08 21:28:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-08-08 21:28:09 +0000 |
| commit | 20cf0008edbf0a0bf1186adaeaf52b471f62e80a (patch) | |
| tree | d460fbccdf2cce943993452b52b7545e77567455 | |
| parent | 1bcedb3b6bf72ff4268da1dcd001948d051c3891 (diff) | |
| download | emacs-20cf0008edbf0a0bf1186adaeaf52b471f62e80a.tar.gz emacs-20cf0008edbf0a0bf1186adaeaf52b471f62e80a.zip | |
Require sendmail.
(message-fill-yanked-message): Use mail-citation-prefix-regexp
as an arg to fill-individual-paragraphs.
| -rw-r--r-- | lisp/gnus/message.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 042aede04d4..86d41cc00ad 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -31,6 +31,7 @@ | |||
| 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) |
| @@ -1556,7 +1557,8 @@ Numeric argument means justify as well." | |||
| 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. |