diff options
| author | Richard M. Stallman | 1998-04-30 06:18:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-30 06:18:55 +0000 |
| commit | b89e2d3602dec2ae84207685536cb77fd5032ebc (patch) | |
| tree | bf57c960194a55c55ac953006c00c2914fd0acf3 /lisp | |
| parent | 92a3f23d5b60680de5afea9b1885d7ebc314ee6d (diff) | |
| download | emacs-b89e2d3602dec2ae84207685536cb77fd5032ebc.tar.gz emacs-b89e2d3602dec2ae84207685536cb77fd5032ebc.zip | |
Require sendmail.
(news-caesar-buffer-body): Use mail-text-start.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rnews.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/mail/rnews.el b/lisp/mail/rnews.el index 7fc67f73984..7688d0f7a7c 100644 --- a/lisp/mail/rnews.el +++ b/lisp/mail/rnews.el | |||
| @@ -54,6 +54,7 @@ | |||
| 54 | ;;; Code: | 54 | ;;; Code: |
| 55 | 55 | ||
| 56 | (require 'mail-utils) | 56 | (require 'mail-utils) |
| 57 | (require 'sendmail) | ||
| 57 | 58 | ||
| 58 | (autoload 'rmail-output "rmailout" | 59 | (autoload 'rmail-output "rmailout" |
| 59 | "Append this message to Unix mail file named FILE-NAME." | 60 | "Append this message to Unix mail file named FILE-NAME." |
| @@ -971,15 +972,10 @@ Mail and USENET news headers are not rotated." | |||
| 971 | (let ((buffer-status buffer-read-only)) | 972 | (let ((buffer-status buffer-read-only)) |
| 972 | (setq buffer-read-only nil) | 973 | (setq buffer-read-only nil) |
| 973 | ;; setup the region | 974 | ;; setup the region |
| 974 | (set-mark (if (progn (goto-char (point-min)) | 975 | (set-mark (if (equal major-mode 'news-mode) |
| 975 | (search-forward | 976 | (progn (goto-char (point-min)) |
| 976 | (concat "\n" | 977 | (search-forward "\n\n" nil t)) |
| 977 | (if (equal major-mode 'news-mode) | 978 | (mail-text-start))) |
| 978 | "" | ||
| 979 | mail-header-separator) | ||
| 980 | "\n") nil t)) | ||
| 981 | (point) | ||
| 982 | (point-min))) | ||
| 983 | (goto-char (point-max)) | 979 | (goto-char (point-max)) |
| 984 | (caesar-region rotnum) | 980 | (caesar-region rotnum) |
| 985 | (setq buffer-read-only buffer-status)))) | 981 | (setq buffer-read-only buffer-status)))) |