Mercurial > emacs

comparison lisp/mh-e/mh-show.el @ 95843:c0e61b43cdb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)