Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ed17d24f
Commit
ed17d24f
authored
Mar 12, 1995
by
Richard M. Stallman
Browse files
(news-reply-mode-map): Add menu bar menus.
parent
bc8661ca
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
30 additions
and
1 deletion
+30
-1
lisp/mail/rnewspost.el
lisp/mail/rnewspost.el
+30
-1
No files found.
lisp/mail/rnewspost.el
View file @
ed17d24f
...
...
@@ -74,7 +74,36 @@
(
define-key
news-reply-mode-map
"\C-c\C-y"
'news-reply-yank-original
)
(
define-key
news-reply-mode-map
"\C-c\C-q"
'mail-fill-yanked-message
)
(
define-key
news-reply-mode-map
"\C-c\C-c"
'news-inews
)
(
define-key
news-reply-mode-map
"\C-c\C-s"
'news-inews
)))
(
define-key
news-reply-mode-map
"\C-c\C-s"
'news-inews
)
(
define-key
news-reply-mode-map
[menu-bar]
(
make-sparse-keymap
))
(
define-key
news-reply-mode-map
[menu-bar
fields]
(
cons
"Fields"
(
make-sparse-keymap
"Fields"
)))
(
define-key
news-reply-mode-map
[menu-bar
fields
news-reply-distribution]
'
(
"Distribution"
.
news-reply-distribution
))
(
define-key
news-reply-mode-map
[menu-bar
fields
news-reply-keywords]
'
(
"Keywords"
.
news-reply-keywords
))
(
define-key
news-reply-mode-map
[menu-bar
fields
news-reply-newsgroups]
'
(
"Newsgroups"
.
news-reply-newsgroups
))
(
define-key
news-reply-mode-map
[menu-bar
fields
news-reply-followup-to]
'
(
"Followup-to"
.
news-reply-followup-to
))
(
define-key
news-reply-mode-map
[menu-bar
fields
mail-subject]
'
(
"Subject"
.
mail-subject
))
(
define-key
news-reply-mode-map
[menu-bar
fields
news-reply-summary]
'
(
"Summary"
.
news-reply-summary
))
(
define-key
news-reply-mode-map
[menu-bar
fields
mail-text]
'
(
"Text"
.
mail-text
))
(
define-key
news-reply-mode-map
[menu-bar
news]
(
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]
'
(
"Fill Yanked Messages"
.
mail-fill-yanked-message
))
(
define-key
news-reply-mode-map
[menu-bar
news
news-inews]
'
(
"Send"
.
news-inews
))))
(
defun
news-reply-mode
()
"Major mode for editing news to be posted on USENET.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment