Mercurial > emacs
comparison lisp/mail/sendmail.el @ 3859:7e2410ba8e41
(mail-mode-map): Add local menu bar bindings.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 21 Jun 1993 20:08:39 +0000 |
parents | 231b935db22c |
children | d95172e91f4e |
comparison
equal
deleted
inserted
replaced
3858:e07d474bdba9 | 3859:7e2410ba8e41 |
---|---|
214 paragraph-start)) | 214 paragraph-start)) |
215 (setq paragraph-separate (concat "^" mail-header-separator | 215 (setq paragraph-separate (concat "^" mail-header-separator |
216 "$\\|^[ \t]*[-_][-_][-_]+$\\|" | 216 "$\\|^[ \t]*[-_][-_][-_]+$\\|" |
217 paragraph-separate)) | 217 paragraph-separate)) |
218 (run-hooks 'text-mode-hook 'mail-mode-hook)) | 218 (run-hooks 'text-mode-hook 'mail-mode-hook)) |
219 | |
220 ;;; Set up keymap. | |
219 | 221 |
220 (if mail-mode-map | 222 (if mail-mode-map |
221 nil | 223 nil |
222 (setq mail-mode-map (nconc (make-sparse-keymap) text-mode-map)) | 224 (setq mail-mode-map (nconc (make-sparse-keymap) text-mode-map)) |
223 (define-key mail-mode-map "\C-c?" 'describe-mode) | 225 (define-key mail-mode-map "\C-c?" 'describe-mode) |
231 (define-key mail-mode-map "\C-c\C-q" 'mail-fill-yanked-message) | 233 (define-key mail-mode-map "\C-c\C-q" 'mail-fill-yanked-message) |
232 (define-key mail-mode-map "\C-c\C-w" 'mail-signature) | 234 (define-key mail-mode-map "\C-c\C-w" 'mail-signature) |
233 (define-key mail-mode-map "\C-c\C-v" 'mail-sent-via) | 235 (define-key mail-mode-map "\C-c\C-v" 'mail-sent-via) |
234 (define-key mail-mode-map "\C-c\C-c" 'mail-send-and-exit) | 236 (define-key mail-mode-map "\C-c\C-c" 'mail-send-and-exit) |
235 (define-key mail-mode-map "\C-c\C-s" 'mail-send)) | 237 (define-key mail-mode-map "\C-c\C-s" 'mail-send)) |
238 | |
239 (define-key mail-mode-map [menu-bar mail] | |
240 (cons "Mail" (make-sparse-keymap "Mail"))) | |
241 | |
242 (define-key mail-mode-map [menu-bar mail fill] | |
243 '("Fill Citation" . mail-fill-yanked-message)) | |
244 | |
245 (define-key mail-mode-map [menu-bar mail yank] | |
246 '("Cite Original" . mail-yank-original)) | |
247 | |
248 (define-key mail-mode-map [menu-bar mail signature] | |
249 '("Insert Signature" . mail-signature)) | |
250 | |
251 (define-key mail-mode-map [menu-bar mail send-stay] | |
252 '("Send, Keep Editing" . mail-send)) | |
253 | |
254 (define-key mail-mode-map [menu-bar mail send] | |
255 '("Send Message" . mail-send-and-exit)) | |
256 | |
257 (define-key mail-mode-map [menu-bar headers] | |
258 (cons "Headers" (make-sparse-keymap "Headers"))) | |
259 | |
260 (define-key mail-mode-map [menu-bar headers sent-via] | |
261 '("Sent Via" . mail-sent-via)) | |
262 | |
263 (define-key mail-mode-map [menu-bar headers text] | |
264 '("Text" . mail-text)) | |
265 | |
266 (define-key mail-mode-map [menu-bar headers bcc] | |
267 '("Bcc" . mail-bcc)) | |
268 | |
269 (define-key mail-mode-map [menu-bar headers fcc] | |
270 '("Fcc" . mail-fcc)) | |
271 | |
272 (define-key mail-mode-map [menu-bar headers cc] | |
273 '("Cc" . mail-cc)) | |
274 | |
275 (define-key mail-mode-map [menu-bar headers subject] | |
276 '("Subject" . mail-subject)) | |
277 | |
278 (define-key mail-mode-map [menu-bar headers to] | |
279 '("To" . mail-to)) | |
236 | 280 |
237 (defun mail-send-and-exit (arg) | 281 (defun mail-send-and-exit (arg) |
238 "Send message like `mail-send', then, if no errors, exit from mail buffer. | 282 "Send message like `mail-send', then, if no errors, exit from mail buffer. |
239 Prefix arg means don't delete this window." | 283 Prefix arg means don't delete this window." |
240 (interactive "P") | 284 (interactive "P") |