Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 35957:a35d9c07d074

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2001-02-07 ShengHuo ZHU <zsh@cs.rochester.edu> * message.el (message-make-forward-subject): Argument decoded. (message-forward): Use it when digest. * gnus-uu.el (gnus-uu-grab-articles): Shoot down original article buffer. * gnus-sum.el (gnus-summary-make-menu-bar): Don't share menu bar in Emacs. * gnus-art.el (gnus-article-make-menu-bar): Make gnus-article-post-menu.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Wed, 07 Feb 2001 22:08:26 +0000
parents 53eebdb81828
children 8b4e5c2b7d7f
comparison
equal deleted inserted replaced
35956:e4f3480df58c 35957:a35d9c07d074
1312 ;;; 1312 ;;;
1313 ;;; Gnus summary mode 1313 ;;; Gnus summary mode
1314 ;;; 1314 ;;;
1315 1315
1316 (put 'gnus-summary-mode 'mode-class 'special) 1316 (put 'gnus-summary-mode 'mode-class 'special)
1317
1318 (defvar gnus-article-commands-menu)
1317 1319
1318 (when t 1320 (when t
1319 ;; Non-orthogonal keys 1321 ;; Non-orthogonal keys
1320 1322
1321 (gnus-define-keys gnus-summary-mode-map 1323 (gnus-define-keys gnus-summary-mode-map
1813 ["Redisplay" gnus-summary-show-article t]))) 1815 ["Redisplay" gnus-summary-show-article t])))
1814 (easy-menu-define 1816 (easy-menu-define
1815 gnus-summary-article-menu gnus-summary-mode-map "" 1817 gnus-summary-article-menu gnus-summary-mode-map ""
1816 (cons "Article" innards)) 1818 (cons "Article" innards))
1817 1819
1818 (easy-menu-define 1820 (if (not (keymapp gnus-summary-article-menu))
1819 gnus-article-commands-menu gnus-article-mode-map "" 1821 (easy-menu-define
1820 (cons "Commands" innards))) 1822 gnus-article-commands-menu gnus-article-mode-map ""
1823 (cons "Commands" innards))
1824 ;; in Emacs, don't share menu.
1825 (setq gnus-article-commands-menu
1826 (copy-keymap gnus-summary-article-menu))
1827 (define-key gnus-article-mode-map [menu-bar commands]
1828 (cons "Commands" gnus-article-commands-menu))))
1821 1829
1822 (easy-menu-define 1830 (easy-menu-define
1823 gnus-summary-thread-menu gnus-summary-mode-map "" 1831 gnus-summary-thread-menu gnus-summary-mode-map ""
1824 '("Threads" 1832 '("Threads"
1825 ["Toggle threading" gnus-summary-toggle-threads t] 1833 ["Toggle threading" gnus-summary-toggle-threads t]