mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(news-reply-mode-map): Delete news-reply-signature.

Browse Source 
(news-reply-signature): Improve the message.

(news-reply-yank-message-id, news-reply-yank-from):
Fix swapped args in defvars.
This commit is contained in:
Karl Heuer 1996-02-21 21:24:40 +00:00
parent 44bea10aef
commit 7bf5350d2d
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/mail/rnewspost.el
View File

@ -96,8 +96,6 @@
(cons "News" (make-sparse-keymap "News")))
(define-key news-reply-mode-map [menu-bar news news-caesar-buffer-body]
'("Rot13" . news-caesar-buffer-body))
(define-key news-reply-mode-map [menu-bar news news-reply-signature]
'("Signature" . news-reply-signature))
(define-key news-reply-mode-map [menu-bar news news-reply-yank-original]
'("Yank Original" . news-reply-yank-original))
(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)."
paragraph-separate))
(run-hooks 'text-mode-hook 'news-reply-mode-hook))
(defvar news-reply-yank-from
"Save `From:' field for `news-reply-yank-original'."
"")
(defvar news-reply-yank-from ""
"Save `From:' field for `news-reply-yank-original'.")
(defvar news-reply-yank-message-id
"Save `Message-Id:' field for `news-reply-yank-original'."
"")
(defvar news-reply-yank-message-id ""
"Save `Message-Id:' field for `news-reply-yank-original'.")
(defun news-reply-yank-original (arg)
"Insert the message being replied to, if any (in Mail mode).
@ -222,7 +218,7 @@ summary (abstract) of the message."
(defun news-reply-signature ()
"The inews program appends `~/.signature' automatically."
(interactive)
(message "`~/.signature' will be appended automatically."))
(message "Posting news will append your signature automatically."))
(defun news-setup (to subject in-reply-to newsgroups replybuffer)
"Set up the news reply or posting buffer with the proper headers and mode."