aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-02-21 21:24:40 +0000
committerKarl Heuer1996-02-21 21:24:40 +0000
commit7bf5350d2dfabe3fb130735b06091b0a2cf92a20 (patch)
treed5bd49bc2501afc972acb624a14df2fefe498be5
parent44bea10aefe0ac434e07aced765d7573db1cce08 (diff)
downloademacs-7bf5350d2dfabe3fb130735b06091b0a2cf92a20.tar.gz
emacs-7bf5350d2dfabe3fb130735b06091b0a2cf92a20.zip
(news-reply-mode-map): Delete news-reply-signature.
(news-reply-signature): Improve the message. (news-reply-yank-message-id, news-reply-yank-from): Fix swapped args in defvars.
-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."