diff options
| author | Karl Heuer | 1996-02-21 21:24:40 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-02-21 21:24:40 +0000 |
| commit | 7bf5350d2dfabe3fb130735b06091b0a2cf92a20 (patch) | |
| tree | d5bd49bc2501afc972acb624a14df2fefe498be5 | |
| parent | 44bea10aefe0ac434e07aced765d7573db1cce08 (diff) | |
| download | emacs-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.el | 14 |
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." |