Mercurial > hg > xemacs-beta
comparison lisp/gnus/gnus-salt.el @ 173:8eaf7971accc r20-3b13
Import from CVS: tag r20-3b13
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:49:09 +0200 |
| parents | 85ec50267440 |
| children | 2d532a89d707 |
comparison
equal
deleted
inserted
replaced
| 172:a38aed19690b | 173:8eaf7971accc |
|---|---|
| 128 (add-hook 'gnus-message-setup-hook 'gnus-pick-setup-message) | 128 (add-hook 'gnus-message-setup-hook 'gnus-pick-setup-message) |
| 129 (set (make-local-variable 'gnus-summary-goto-unread) 'never) | 129 (set (make-local-variable 'gnus-summary-goto-unread) 'never) |
| 130 ;; Set up the menu. | 130 ;; Set up the menu. |
| 131 (when (gnus-visual-p 'pick-menu 'menu) | 131 (when (gnus-visual-p 'pick-menu 'menu) |
| 132 (gnus-pick-make-menu-bar)) | 132 (gnus-pick-make-menu-bar)) |
| 133 (unless (assq 'gnus-pick-mode minor-mode-alist) | 133 (gnus-add-minor-mode 'gnus-pick-mode " Pick" gnus-pick-mode-map) |
| 134 (push '(gnus-pick-mode " Pick") minor-mode-alist)) | |
| 135 (unless (assq 'gnus-pick-mode minor-mode-map-alist) | |
| 136 (push (cons 'gnus-pick-mode gnus-pick-mode-map) | |
| 137 minor-mode-map-alist)) | |
| 138 (run-hooks 'gnus-pick-mode-hook)))) | 134 (run-hooks 'gnus-pick-mode-hook)))) |
| 139 | 135 |
| 140 (defun gnus-pick-setup-message () | 136 (defun gnus-pick-setup-message () |
| 141 "Make Message do the right thing on exit." | 137 "Make Message do the right thing on exit." |
| 142 (when (and (gnus-buffer-live-p gnus-summary-buffer) | 138 (when (and (gnus-buffer-live-p gnus-summary-buffer) |
| 335 (make-local-variable 'gnus-summary-display-article-function) | 331 (make-local-variable 'gnus-summary-display-article-function) |
| 336 (setq gnus-summary-display-article-function 'gnus-binary-display-article) | 332 (setq gnus-summary-display-article-function 'gnus-binary-display-article) |
| 337 ;; Set up the menu. | 333 ;; Set up the menu. |
| 338 (when (gnus-visual-p 'binary-menu 'menu) | 334 (when (gnus-visual-p 'binary-menu 'menu) |
| 339 (gnus-binary-make-menu-bar)) | 335 (gnus-binary-make-menu-bar)) |
| 340 (unless (assq 'gnus-binary-mode minor-mode-alist) | 336 (gnus-add-minor-mode 'gnus-binary-mode " Binary" gnus-binary-mode-map) |
| 341 (push '(gnus-binary-mode " Binary") minor-mode-alist)) | |
| 342 (unless (assq 'gnus-binary-mode minor-mode-map-alist) | |
| 343 (push (cons 'gnus-binary-mode gnus-binary-mode-map) | |
| 344 minor-mode-map-alist)) | |
| 345 (run-hooks 'gnus-binary-mode-hook)))) | 337 (run-hooks 'gnus-binary-mode-hook)))) |
| 346 | 338 |
| 347 (defun gnus-binary-display-article (article &optional all-header) | 339 (defun gnus-binary-display-article (article &optional all-header) |
| 348 "Run ARTICLE through the binary decode functions." | 340 "Run ARTICLE through the binary decode functions." |
| 349 (when (gnus-summary-goto-subject article) | 341 (when (gnus-summary-goto-subject article) |