Mercurial > emacs
comparison lisp/mh-e/mh-show.el @ 95843:c0e61b43cdb0
Check tool-bar-map is bound.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 12 Jun 2008 03:57:56 +0000 |
parents | 90c9ebd43589 |
children | 186e66f93b45 |
comparison
equal
deleted
inserted
replaced
95842:fbeceb242efd | 95843:c0e61b43cdb0 |
---|---|
1 ;;; mh-show.el --- MH-Show mode | 1 ;;; mh-show.el --- MH-Show mode |
2 | 2 |
3 ;; Copyright (C) 1993, 1995, 1997, | 3 ;; Copyright (C) 1993, 1995, 1997, 2000, 2001, 2002, 2003, 2004, 2005, |
4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. | 4 ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: Bill Wohler <wohler@newt.com> | 6 ;; Author: Bill Wohler <wohler@newt.com> |
7 ;; Maintainer: Bill Wohler <wohler@newt.com> | 7 ;; Maintainer: Bill Wohler <wohler@newt.com> |
8 ;; Keywords: mail | 8 ;; Keywords: mail |
9 ;; See: mh-e.el | 9 ;; See: mh-e.el |
845 | 845 |
846 See also `mh-folder-mode'. | 846 See also `mh-folder-mode'. |
847 | 847 |
848 \\{mh-show-mode-map}" | 848 \\{mh-show-mode-map}" |
849 (mh-do-in-gnu-emacs | 849 (mh-do-in-gnu-emacs |
850 (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map)) | 850 (if (boundp 'tool-bar-map) |
851 (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map))) | |
851 (mh-do-in-xemacs | 852 (mh-do-in-xemacs |
852 (mh-tool-bar-init :show)) | 853 (mh-tool-bar-init :show)) |
853 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator) | 854 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator) |
854 (setq paragraph-start (default-value 'paragraph-start)) | 855 (setq paragraph-start (default-value 'paragraph-start)) |
855 (mh-show-unquote-From) | 856 (mh-show-unquote-From) |