Mercurial > emacs

comparison lisp/=gnus.el @ 8258:44773d8bee3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Jul 1994 16:23:52 +0000
parents a24fad61dbac
children 425ac5eebc19
comparison
equal deleted inserted replaced
8257:bbf6304598d9 8258:44773d8bee3e
969 (define-key gnus-group-mode-map "z" 'gnus-group-suspend) 969 (define-key gnus-group-mode-map "z" 'gnus-group-suspend)
970 (define-key gnus-group-mode-map "q" 'gnus-group-exit) 970 (define-key gnus-group-mode-map "q" 'gnus-group-exit)
971 (define-key gnus-group-mode-map "Q" 'gnus-group-quit) 971 (define-key gnus-group-mode-map "Q" 'gnus-group-quit)
972 (define-key gnus-group-mode-map "?" 'gnus-group-describe-briefly) 972 (define-key gnus-group-mode-map "?" 'gnus-group-describe-briefly)
973 (define-key gnus-group-mode-map "\C-c\C-i" 'gnus-info-find-node) 973 (define-key gnus-group-mode-map "\C-c\C-i" 'gnus-info-find-node)
974 (define-key gnus-group-mode-map [mouse-2] 'gnus-mouse-pick-group)
974 975
975 ;; Make a menu bar item. 976 ;; Make a menu bar item.
976 (define-key gnus-group-mode-map [menu-bar GNUS] 977 (define-key gnus-group-mode-map [menu-bar GNUS]
977 (cons "GNUS" (make-sparse-keymap "GNUS"))) 978 (cons "GNUS" (make-sparse-keymap "GNUS")))
978 979
1229 (setq mode-line-process nil) 1230 (setq mode-line-process nil)
1230 (use-local-map gnus-group-mode-map) 1231 (use-local-map gnus-group-mode-map)
1231 (buffer-flush-undo (current-buffer)) 1232 (buffer-flush-undo (current-buffer))
1232 (setq buffer-read-only t) ;Disable modification 1233 (setq buffer-read-only t) ;Disable modification
1233 (run-hooks 'gnus-group-mode-hook)) 1234 (run-hooks 'gnus-group-mode-hook))
1235
1236 (defun gnus-mouse-pick-group (e)
1237 (interactive "e")
1238 (mouse-set-point e)
1239 (gnus-group-read-group nil))
1234 1240
1235 ;;;###autoload 1241 ;;;###autoload
1236 (defun gnus (&optional confirm) 1242 (defun gnus (&optional confirm)
1237 "Read network news. 1243 "Read network news.
1238 If optional argument CONFIRM is non-nil, ask NNTP server." 1244 If optional argument CONFIRM is non-nil, ask NNTP server."
1843 (define-key gnus-summary-mode-map "V" 'gnus-version) 1849 (define-key gnus-summary-mode-map "V" 'gnus-version)
1844 (define-key gnus-summary-mode-map "q" 'gnus-summary-exit) 1850 (define-key gnus-summary-mode-map "q" 'gnus-summary-exit)
1845 (define-key gnus-summary-mode-map "Q" 'gnus-summary-quit) 1851 (define-key gnus-summary-mode-map "Q" 'gnus-summary-quit)
1846 (define-key gnus-summary-mode-map "?" 'gnus-summary-describe-briefly) 1852 (define-key gnus-summary-mode-map "?" 'gnus-summary-describe-briefly)
1847 (define-key gnus-summary-mode-map "\C-c\C-i" 'gnus-info-find-node) 1853 (define-key gnus-summary-mode-map "\C-c\C-i" 'gnus-info-find-node)
1854 (define-key gnus-summary-mode-map [mouse-2] 'gnus-mouse-pick-article)
1848 1855
1849 (define-key gnus-summary-mode-map [menu-bar misc] 1856 (define-key gnus-summary-mode-map [menu-bar misc]
1850 (cons "Misc" (make-sparse-keymap "misc"))) 1857 (cons "Misc" (make-sparse-keymap "misc")))
1851 1858
1852 (define-key gnus-summary-mode-map [menu-bar misc caesar-message] 1859 (define-key gnus-summary-mode-map [menu-bar misc caesar-message]
1860 '("Mark as Unread" . gnus-summary-mark-as-unread-forward)) 1867 '("Mark as Unread" . gnus-summary-mark-as-unread-forward))
1861 (define-key gnus-summary-mode-map [menu-bar misc mark-as-read] 1868 (define-key gnus-summary-mode-map [menu-bar misc mark-as-read]
1862 '("Mark as Read" . gnus-summary-mark-as-read)) 1869 '("Mark as Read" . gnus-summary-mark-as-read))
1863 1870
1864 (define-key gnus-summary-mode-map [menu-bar misc quit] 1871 (define-key gnus-summary-mode-map [menu-bar misc quit]
1865 '("Quit GNUS" . gnus-summary-quit)) 1872 '("Quit Group" . gnus-summary-quit))
1866 (define-key gnus-summary-mode-map [menu-bar misc exit] 1873 (define-key gnus-summary-mode-map [menu-bar misc exit]
1867 '("Exit GNUS" . gnus-summary-exit)) 1874 '("Exit Group" . gnus-summary-exit))
1868 1875
1869 (define-key gnus-summary-mode-map [menu-bar sort] 1876 (define-key gnus-summary-mode-map [menu-bar sort]
1870 (cons "Sort" (make-sparse-keymap "sort"))) 1877 (cons "Sort" (make-sparse-keymap "sort")))
1871 1878
1872 (define-key gnus-summary-mode-map [menu-bar sort sort-by-author] 1879 (define-key gnus-summary-mode-map [menu-bar sort sort-by-author]
1904 1911
1905 (define-key gnus-summary-mode-map [menu-bar action] 1912 (define-key gnus-summary-mode-map [menu-bar action]
1906 (cons "Action" (make-sparse-keymap "action"))) 1913 (cons "Action" (make-sparse-keymap "action")))
1907 1914
1908 (define-key gnus-summary-mode-map [menu-bar action kill-same-subject] 1915 (define-key gnus-summary-mode-map [menu-bar action kill-same-subject]
1909 '("kill-same-subject" . gnus-summary-kill-same-subject)) 1916 '("Kill Same Subject" . gnus-summary-kill-same-subject))
1910 (define-key gnus-summary-mode-map [menu-bar action kill-thread] 1917 (define-key gnus-summary-mode-map [menu-bar action kill-thread]
1911 '("kill-thread" . gnus-summary-kill-thread)) 1918 '("Kill Thread" . gnus-summary-kill-thread))
1912 (define-key gnus-summary-mode-map [menu-bar action delete-marked-with] 1919 (define-key gnus-summary-mode-map [menu-bar action delete-marked-with]
1913 '("delete-marked-with" . gnus-summary-delete-marked-with)) 1920 '("Delete Marked With" . gnus-summary-delete-marked-with))
1914 (define-key gnus-summary-mode-map [menu-bar action delete-marked-as-read] 1921 (define-key gnus-summary-mode-map [menu-bar action delete-marked-as-read]
1915 '("delete-marked-as-read" . gnus-summary-delete-marked-as-read)) 1922 '("Delete Marked As Read" . gnus-summary-delete-marked-as-read))
1916 (define-key gnus-summary-mode-map [menu-bar action catchup-and-exit] 1923 (define-key gnus-summary-mode-map [menu-bar action catchup-and-exit]
1917 '("catchup-and-exit" . gnus-summary-catchup-and-exit)) 1924 '("Catchup And Exit" . gnus-summary-catchup-and-exit))
1918 (define-key gnus-summary-mode-map [menu-bar action catchup-to-here] 1925 (define-key gnus-summary-mode-map [menu-bar action catchup-to-here]
1919 '("catchup-to-here" . gnus-summary-catchup-to-here)) 1926 '("Catchup to Here" . gnus-summary-catchup-to-here))
1927
1928 (define-key gnus-summary-mode-map [menu-bar action ignore]
1929 '("---"))
1920 1930
1921 (define-key gnus-summary-mode-map [menu-bar action save-in-file] 1931 (define-key gnus-summary-mode-map [menu-bar action save-in-file]
1922 '("save-in-file" . gnus-summary-save-in-file)) 1932 '("Save in File" . gnus-summary-save-in-file))
1923 (define-key gnus-summary-mode-map [menu-bar action save-article] 1933 (define-key gnus-summary-mode-map [menu-bar action save-article]
1924 '("save-article" . gnus-summary-save-article)) 1934 '("Save Article" . gnus-summary-save-article))
1925 1935
1936 (define-key gnus-summary-mode-map [menu-bar action lambda]
1937 '("---"))
1938
1939 (define-key gnus-summary-mode-map [menu-bar action forward]
1940 '("Forward" . gnus-summary-mail-forward))
1926 (define-key gnus-summary-mode-map [menu-bar action followup-with-original] 1941 (define-key gnus-summary-mode-map [menu-bar action followup-with-original]
1927 '("followup-with-original" . gnus-summary-followup-with-original)) 1942 '("Followup with Original" . gnus-summary-followup-with-original))
1928 (define-key gnus-summary-mode-map [menu-bar action followup] 1943 (define-key gnus-summary-mode-map [menu-bar action followup]
1929 '("followup" . gnus-summary-followup)) 1944 '("Followup" . gnus-summary-followup))
1930 (define-key gnus-summary-mode-map [menu-bar action reply-with-original] 1945 (define-key gnus-summary-mode-map [menu-bar action reply-with-original]
1931 '("reply-with-original" . gnus-summary-reply-with-original)) 1946 '("Reply with Original" . gnus-summary-reply-with-original))
1932 (define-key gnus-summary-mode-map [menu-bar action reply] 1947 (define-key gnus-summary-mode-map [menu-bar action reply]
1933 '("reply" . gnus-summary-reply)) 1948 '("Reply" . gnus-summary-reply))
1949 (define-key gnus-summary-mode-map [menu-bar action post]
1950 '("Post News" . gnus-summary-post-news))
1934 1951
1935 (define-key gnus-summary-mode-map [menu-bar move] 1952 (define-key gnus-summary-mode-map [menu-bar move]
1936 (cons "Move" (make-sparse-keymap "move"))) 1953 (cons "Move" (make-sparse-keymap "move")))
1937 1954
1955 (define-key gnus-summary-mode-map [menu-bar move isearch-article]
1956 '("Search in Article" . gnus-summary-isearch-article))
1957 (define-key gnus-summary-mode-map [menu-bar move search-through-articles]
1958 '("Search through Articles" . gnus-summary-search-article-forward))
1938 (define-key gnus-summary-mode-map [menu-bar move down-thread] 1959 (define-key gnus-summary-mode-map [menu-bar move down-thread]
1939 '("down-thread" . gnus-summary-down-thread)) 1960 '("Down Thread" . gnus-summary-down-thread))
1940 (define-key gnus-summary-mode-map [menu-bar move prev-same-subject] 1961 (define-key gnus-summary-mode-map [menu-bar move prev-same-subject]
1941 '("prev-same-subject" . gnus-summary-prev-same-subject)) 1962 '("Prev Same Subject" . gnus-summary-prev-same-subject))
1942 (define-key gnus-summary-mode-map [menu-bar move prev-group] 1963 (define-key gnus-summary-mode-map [menu-bar move prev-group]
1943 '("prev-group" . gnus-summary-prev-group)) 1964 '("Prev Group" . gnus-summary-prev-group))
1944 (define-key gnus-summary-mode-map [menu-bar move next-unread-same-subject] 1965 (define-key gnus-summary-mode-map [menu-bar move next-unread-same-subject]
1945 '("next-unread-same-subject" . gnus-summary-next-unread-same-subject)) 1966 '("Next Unread Same Subject" . gnus-summary-next-unread-same-subject))
1946 (define-key gnus-summary-mode-map [menu-bar move next-unread-article] 1967 (define-key gnus-summary-mode-map [menu-bar move next-unread-article]
1947 '("next-unread-article" . gnus-summary-next-unread-article)) 1968 '("Next Unread Article" . gnus-summary-next-unread-article))
1948 (define-key gnus-summary-mode-map [menu-bar move next-thread] 1969 (define-key gnus-summary-mode-map [menu-bar move next-thread]
1949 '("next-thread" . gnus-summary-next-thread)) 1970 '("Next Thread" . gnus-summary-next-thread))
1950 (define-key gnus-summary-mode-map [menu-bar move next-group] 1971 (define-key gnus-summary-mode-map [menu-bar move next-group]
1951 '("next-group" . gnus-summary-next-group)) 1972 '("Next Group" . gnus-summary-next-group))
1952 (define-key gnus-summary-mode-map [menu-bar move first-unread-article] 1973 (define-key gnus-summary-mode-map [menu-bar move first-unread-article]
1953 '("first-unread-article" . gnus-summary-first-unread-article)) 1974 '("First Unread Article" . gnus-summary-first-unread-article))
1954 ) 1975 )
1955 1976
1956 1977
1957 (defun gnus-summary-mode () 1978 (defun gnus-summary-mode ()
1958 "Major mode for reading articles in this newsgroup. 1979 "Major mode for reading articles in this newsgroup.
2280 (setq selective-display t) 2301 (setq selective-display t)
2281 (setq selective-display-ellipses t) ;Display `...' 2302 (setq selective-display-ellipses t) ;Display `...'
2282 ;;(setq case-fold-search t) 2303 ;;(setq case-fold-search t)
2283 (run-hooks 'gnus-summary-mode-hook)) 2304 (run-hooks 'gnus-summary-mode-hook))
2284 2305
2306 (defun gnus-mouse-pick-article (e)
2307 (interactive "e")
2308 (mouse-set-point e)
2309 (gnus-summary-next-page nil))
2310
2285 (defun gnus-summary-setup-buffer () 2311 (defun gnus-summary-setup-buffer ()
2286 "Initialize Summary buffer." 2312 "Initialize Summary buffer."
2287 (if (get-buffer gnus-summary-buffer) 2313 (if (get-buffer gnus-summary-buffer)
2288 (set-buffer gnus-summary-buffer) 2314 (set-buffer gnus-summary-buffer)
2289 (set-buffer (get-buffer-create gnus-summary-buffer)) 2315 (set-buffer (get-buffer-create gnus-summary-buffer))