128 |
;; Set up the menu. |
;; Set up the menu. |
129 |
(when (gnus-visual-p 'pick-menu 'menu) |
(when (gnus-visual-p 'pick-menu 'menu) |
130 |
(gnus-pick-make-menu-bar)) |
(gnus-pick-make-menu-bar)) |
131 |
(gnus-add-minor-mode 'gnus-pick-mode " Pick" gnus-pick-mode-map |
(gnus-add-minor-mode 'gnus-pick-mode " Pick" gnus-pick-mode-map) |
|
nil 'gnus-pick-mode) |
|
132 |
(gnus-run-hooks 'gnus-pick-mode-hook)))) |
(gnus-run-hooks 'gnus-pick-mode-hook)))) |
133 |
|
|
134 |
(defun gnus-pick-setup-message () |
(defun gnus-pick-setup-message () |
361 |
;; Set up the menu. |
;; Set up the menu. |
362 |
(when (gnus-visual-p 'binary-menu 'menu) |
(when (gnus-visual-p 'binary-menu 'menu) |
363 |
(gnus-binary-make-menu-bar)) |
(gnus-binary-make-menu-bar)) |
364 |
(gnus-add-minor-mode 'gnus-binary-mode " Binary" |
(gnus-add-minor-mode 'gnus-binary-mode " Binary" gnus-binary-mode-map) |
|
gnus-binary-mode-map nil 'gnus-binary-mode) |
|
365 |
(gnus-run-hooks 'gnus-binary-mode-hook)))) |
(gnus-run-hooks 'gnus-binary-mode-hook)))) |
366 |
|
|
367 |
(defun gnus-binary-display-article (article &optional all-header) |
(defun gnus-binary-display-article (article &optional all-header) |