aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mail/rnewspost.el14
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el
index 36b6c1e2b9d..46becf890b5 100644
--- a/lisp/mail/rnewspost.el
+++ b/lisp/mail/rnewspost.el
@@ -96,8 +96,6 @@
96 (cons "News" (make-sparse-keymap "News"))) 96 (cons "News" (make-sparse-keymap "News")))
97 (define-key news-reply-mode-map [menu-bar news news-caesar-buffer-body] 97 (define-key news-reply-mode-map [menu-bar news news-caesar-buffer-body]
98 '("Rot13" . news-caesar-buffer-body)) 98 '("Rot13" . news-caesar-buffer-body))
99 (define-key news-reply-mode-map [menu-bar news news-reply-signature]
100 '("Signature" . news-reply-signature))
101 (define-key news-reply-mode-map [menu-bar news news-reply-yank-original] 99 (define-key news-reply-mode-map [menu-bar news news-reply-yank-original]
102 '("Yank Original" . news-reply-yank-original)) 100 '("Yank Original" . news-reply-yank-original))
103 (define-key news-reply-mode-map [menu-bar news mail-fill-yanked-message] 101 (define-key news-reply-mode-map [menu-bar news mail-fill-yanked-message]
@@ -140,13 +138,11 @@ C-c C-r caesar rotate all letters by 13 places in the article's body (rot13)."
140 paragraph-separate)) 138 paragraph-separate))
141 (run-hooks 'text-mode-hook 'news-reply-mode-hook)) 139 (run-hooks 'text-mode-hook 'news-reply-mode-hook))
142 140
143(defvar news-reply-yank-from 141(defvar news-reply-yank-from ""
144 "Save `From:' field for `news-reply-yank-original'." 142 "Save `From:' field for `news-reply-yank-original'.")
145 "")
146 143
147(defvar news-reply-yank-message-id 144(defvar news-reply-yank-message-id ""
148 "Save `Message-Id:' field for `news-reply-yank-original'." 145 "Save `Message-Id:' field for `news-reply-yank-original'.")
149 "")
150 146
151(defun news-reply-yank-original (arg) 147(defun news-reply-yank-original (arg)
152 "Insert the message being replied to, if any (in Mail mode). 148 "Insert the message being replied to, if any (in Mail mode).
@@ -222,7 +218,7 @@ summary (abstract) of the message."
222(defun news-reply-signature () 218(defun news-reply-signature ()
223 "The inews program appends `~/.signature' automatically." 219 "The inews program appends `~/.signature' automatically."
224 (interactive) 220 (interactive)
225 (message "`~/.signature' will be appended automatically.")) 221 (message "Posting news will append your signature automatically."))
226 222
227(defun news-setup (to subject in-reply-to newsgroups replybuffer) 223(defun news-setup (to subject in-reply-to newsgroups replybuffer)
228 "Set up the news reply or posting buffer with the proper headers and mode." 224 "Set up the news reply or posting buffer with the proper headers and mode."