# HG changeset patch # User Richard M. Stallman # Date 774375832 0 # Node ID 44773d8bee3e0f9904f015bc6e79299b19fd6c49 # Parent bbf6304598d9f011dbcbe4dc72539d2e437ad0a4 Clean up menu item string format. Add a few menu items and separators. (gnus-mouse-pick-group): New function, on mouse-2 in Group mode. (gnus-mouse-pick-article): New function, on mouse-2 in Summary mode. diff -r bbf6304598d9 -r 44773d8bee3e lisp/=gnus.el --- a/lisp/=gnus.el Fri Jul 15 22:10:07 1994 +0000 +++ b/lisp/=gnus.el Sat Jul 16 16:23:52 1994 +0000 @@ -971,6 +971,7 @@ (define-key gnus-group-mode-map "Q" 'gnus-group-quit) (define-key gnus-group-mode-map "?" 'gnus-group-describe-briefly) (define-key gnus-group-mode-map "\C-c\C-i" 'gnus-info-find-node) + (define-key gnus-group-mode-map [mouse-2] 'gnus-mouse-pick-group) ;; Make a menu bar item. (define-key gnus-group-mode-map [menu-bar GNUS] @@ -1232,6 +1233,11 @@ (setq buffer-read-only t) ;Disable modification (run-hooks 'gnus-group-mode-hook)) +(defun gnus-mouse-pick-group (e) + (interactive "e") + (mouse-set-point e) + (gnus-group-read-group nil)) + ;;;###autoload (defun gnus (&optional confirm) "Read network news. @@ -1845,6 +1851,7 @@ (define-key gnus-summary-mode-map "Q" 'gnus-summary-quit) (define-key gnus-summary-mode-map "?" 'gnus-summary-describe-briefly) (define-key gnus-summary-mode-map "\C-c\C-i" 'gnus-info-find-node) + (define-key gnus-summary-mode-map [mouse-2] 'gnus-mouse-pick-article) (define-key gnus-summary-mode-map [menu-bar misc] (cons "Misc" (make-sparse-keymap "misc"))) @@ -1862,9 +1869,9 @@ '("Mark as Read" . gnus-summary-mark-as-read)) (define-key gnus-summary-mode-map [menu-bar misc quit] - '("Quit GNUS" . gnus-summary-quit)) + '("Quit Group" . gnus-summary-quit)) (define-key gnus-summary-mode-map [menu-bar misc exit] - '("Exit GNUS" . gnus-summary-exit)) + '("Exit Group" . gnus-summary-exit)) (define-key gnus-summary-mode-map [menu-bar sort] (cons "Sort" (make-sparse-keymap "sort"))) @@ -1906,51 +1913,65 @@ (cons "Action" (make-sparse-keymap "action"))) (define-key gnus-summary-mode-map [menu-bar action kill-same-subject] - '("kill-same-subject" . gnus-summary-kill-same-subject)) + '("Kill Same Subject" . gnus-summary-kill-same-subject)) (define-key gnus-summary-mode-map [menu-bar action kill-thread] - '("kill-thread" . gnus-summary-kill-thread)) + '("Kill Thread" . gnus-summary-kill-thread)) (define-key gnus-summary-mode-map [menu-bar action delete-marked-with] - '("delete-marked-with" . gnus-summary-delete-marked-with)) + '("Delete Marked With" . gnus-summary-delete-marked-with)) (define-key gnus-summary-mode-map [menu-bar action delete-marked-as-read] - '("delete-marked-as-read" . gnus-summary-delete-marked-as-read)) + '("Delete Marked As Read" . gnus-summary-delete-marked-as-read)) (define-key gnus-summary-mode-map [menu-bar action catchup-and-exit] - '("catchup-and-exit" . gnus-summary-catchup-and-exit)) + '("Catchup And Exit" . gnus-summary-catchup-and-exit)) (define-key gnus-summary-mode-map [menu-bar action catchup-to-here] - '("catchup-to-here" . gnus-summary-catchup-to-here)) + '("Catchup to Here" . gnus-summary-catchup-to-here)) + + (define-key gnus-summary-mode-map [menu-bar action ignore] + '("---")) (define-key gnus-summary-mode-map [menu-bar action save-in-file] - '("save-in-file" . gnus-summary-save-in-file)) + '("Save in File" . gnus-summary-save-in-file)) (define-key gnus-summary-mode-map [menu-bar action save-article] - '("save-article" . gnus-summary-save-article)) - + '("Save Article" . gnus-summary-save-article)) + + (define-key gnus-summary-mode-map [menu-bar action lambda] + '("---")) + + (define-key gnus-summary-mode-map [menu-bar action forward] + '("Forward" . gnus-summary-mail-forward)) (define-key gnus-summary-mode-map [menu-bar action followup-with-original] - '("followup-with-original" . gnus-summary-followup-with-original)) + '("Followup with Original" . gnus-summary-followup-with-original)) (define-key gnus-summary-mode-map [menu-bar action followup] - '("followup" . gnus-summary-followup)) + '("Followup" . gnus-summary-followup)) (define-key gnus-summary-mode-map [menu-bar action reply-with-original] - '("reply-with-original" . gnus-summary-reply-with-original)) + '("Reply with Original" . gnus-summary-reply-with-original)) (define-key gnus-summary-mode-map [menu-bar action reply] - '("reply" . gnus-summary-reply)) + '("Reply" . gnus-summary-reply)) + (define-key gnus-summary-mode-map [menu-bar action post] + '("Post News" . gnus-summary-post-news)) (define-key gnus-summary-mode-map [menu-bar move] (cons "Move" (make-sparse-keymap "move"))) + (define-key gnus-summary-mode-map [menu-bar move isearch-article] + '("Search in Article" . gnus-summary-isearch-article)) + (define-key gnus-summary-mode-map [menu-bar move search-through-articles] + '("Search through Articles" . gnus-summary-search-article-forward)) (define-key gnus-summary-mode-map [menu-bar move down-thread] - '("down-thread" . gnus-summary-down-thread)) + '("Down Thread" . gnus-summary-down-thread)) (define-key gnus-summary-mode-map [menu-bar move prev-same-subject] - '("prev-same-subject" . gnus-summary-prev-same-subject)) + '("Prev Same Subject" . gnus-summary-prev-same-subject)) (define-key gnus-summary-mode-map [menu-bar move prev-group] - '("prev-group" . gnus-summary-prev-group)) + '("Prev Group" . gnus-summary-prev-group)) (define-key gnus-summary-mode-map [menu-bar move next-unread-same-subject] - '("next-unread-same-subject" . gnus-summary-next-unread-same-subject)) + '("Next Unread Same Subject" . gnus-summary-next-unread-same-subject)) (define-key gnus-summary-mode-map [menu-bar move next-unread-article] - '("next-unread-article" . gnus-summary-next-unread-article)) + '("Next Unread Article" . gnus-summary-next-unread-article)) (define-key gnus-summary-mode-map [menu-bar move next-thread] - '("next-thread" . gnus-summary-next-thread)) + '("Next Thread" . gnus-summary-next-thread)) (define-key gnus-summary-mode-map [menu-bar move next-group] - '("next-group" . gnus-summary-next-group)) + '("Next Group" . gnus-summary-next-group)) (define-key gnus-summary-mode-map [menu-bar move first-unread-article] - '("first-unread-article" . gnus-summary-first-unread-article)) + '("First Unread Article" . gnus-summary-first-unread-article)) ) @@ -2282,6 +2303,11 @@ ;;(setq case-fold-search t) (run-hooks 'gnus-summary-mode-hook)) +(defun gnus-mouse-pick-article (e) + (interactive "e") + (mouse-set-point e) + (gnus-summary-next-page nil)) + (defun gnus-summary-setup-buffer () "Initialize Summary buffer." (if (get-buffer gnus-summary-buffer)