Mercurial > emacs

comparison lisp/mail/rnews.el @ 21863:d84de2f4c38d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Require sendmail. (news-caesar-buffer-body): Use mail-text-start.
author Richard M. Stallman <rms@gnu.org>
date Thu, 30 Apr 1998 06:18:55 +0000
parents 440d5927ef18
children a0a1a3da1af4
comparison
equal deleted inserted replaced
21862:c0569fcdef88 21863:d84de2f4c38d
52 ;; added tower@prep 22 Apr 87 52 ;; added tower@prep 22 Apr 87
53 53
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."
60 t) 61 t)
61 62
969 (list nil))) 970 (list nil)))
970 (save-excursion 971 (save-excursion
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))))
986 982
987 (provide 'rnews) 983 (provide 'rnews)