Mercurial > emacs
comparison lisp/gnus/gnus-salt.el @ 64307:487eee037b09
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-484
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 88-91)
- Merge from emacs--cvs-trunk--0
- Update FSF's address in GPL notices
- Update from CVS
2005-07-13 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-salt.el (gnus-pick-mode): Remove the 5th arg of
gnus-add-minor-mode.
(gnus-binary-mode): Ditto.
* lisp/gnus/gnus-topic.el (gnus-topic-mode): Ditto.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 14 Jul 2005 05:45:24 +0000 |
| parents | 18a818a2ee7c |
| children | fafd692d1e40 fbb2bea03df9 |
comparison
equal
deleted
inserted
replaced
| 64306:c7d6013c38b6 | 64307:487eee037b09 |
|---|---|
| 126 (add-hook 'gnus-message-setup-hook 'gnus-pick-setup-message) | 126 (add-hook 'gnus-message-setup-hook 'gnus-pick-setup-message) |
| 127 (set (make-local-variable 'gnus-summary-goto-unread) 'never) | 127 (set (make-local-variable 'gnus-summary-goto-unread) 'never) |
| 128 ;; Set up the menu. | 128 ;; Set up the menu. |
| 129 (when (gnus-visual-p 'pick-menu 'menu) | 129 (when (gnus-visual-p 'pick-menu 'menu) |
| 130 (gnus-pick-make-menu-bar)) | 130 (gnus-pick-make-menu-bar)) |
| 131 (gnus-add-minor-mode 'gnus-pick-mode " Pick" gnus-pick-mode-map | 131 (gnus-add-minor-mode 'gnus-pick-mode " Pick" gnus-pick-mode-map) |
| 132 nil 'gnus-pick-mode) | |
| 133 (gnus-run-hooks 'gnus-pick-mode-hook)))) | 132 (gnus-run-hooks 'gnus-pick-mode-hook)))) |
| 134 | 133 |
| 135 (defun gnus-pick-setup-message () | 134 (defun gnus-pick-setup-message () |
| 136 "Make Message do the right thing on exit." | 135 "Make Message do the right thing on exit." |
| 137 (when (and (gnus-buffer-live-p gnus-summary-buffer) | 136 (when (and (gnus-buffer-live-p gnus-summary-buffer) |
| 360 (make-local-variable 'gnus-summary-display-article-function) | 359 (make-local-variable 'gnus-summary-display-article-function) |
| 361 (setq gnus-summary-display-article-function 'gnus-binary-display-article) | 360 (setq gnus-summary-display-article-function 'gnus-binary-display-article) |
| 362 ;; Set up the menu. | 361 ;; Set up the menu. |
| 363 (when (gnus-visual-p 'binary-menu 'menu) | 362 (when (gnus-visual-p 'binary-menu 'menu) |
| 364 (gnus-binary-make-menu-bar)) | 363 (gnus-binary-make-menu-bar)) |
| 365 (gnus-add-minor-mode 'gnus-binary-mode " Binary" | 364 (gnus-add-minor-mode 'gnus-binary-mode " Binary" gnus-binary-mode-map) |
| 366 gnus-binary-mode-map nil 'gnus-binary-mode) | |
| 367 (gnus-run-hooks 'gnus-binary-mode-hook)))) | 365 (gnus-run-hooks 'gnus-binary-mode-hook)))) |
| 368 | 366 |
| 369 (defun gnus-binary-display-article (article &optional all-header) | 367 (defun gnus-binary-display-article (article &optional all-header) |
| 370 "Run ARTICLE through the binary decode functions." | 368 "Run ARTICLE through the binary decode functions." |
| 371 (when (gnus-summary-goto-subject article) | 369 (when (gnus-summary-goto-subject article) |