Mercurial > emacs
comparison lisp/mail/mh-e.el @ 29120:64ad20494e87
*** empty log message ***
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 23 May 2000 20:10:46 +0000 |
parents | 2e20146198ce |
children | e5b3af28990a |
comparison
equal
deleted
inserted
replaced
29119:c411f27154ee | 29120:64ad20494e87 |
---|---|
1 ;;; mh-e.el --- GNU Emacs interface to the MH mail system | 1 ;;; mh-e.el --- GNU Emacs interface to the MH mail system |
2 | 2 |
3 ;; Copyright (C) 1985,86,87,88,90,92,93,94,95,97 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985,86,87,88,90,92,93,94,95,97,2000 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Maintainer: None | 5 ;; Maintainer: None |
6 ;; Version: 5.0.2 | 6 ;; Version: 5.0.2 |
7 ;; Keywords: mail | 7 ;; Keywords: mail |
8 ;; Bug-reports: include `M-x mh-version' output in any correspondence | 8 ;; Bug-reports: include `M-x mh-version' output in any correspondence |
58 | 58 |
59 ;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. | 59 ;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. |
60 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. | 60 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. |
61 ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu | 61 ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu |
62 ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu | 62 ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu |
63 (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.23 2000/03/07 12:36:39 gerd Exp $") | 63 (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.24 2000/05/22 17:33:32 fx Exp $") |
64 | 64 |
65 ;;; Code: | 65 ;;; Code: |
66 | 66 |
67 (provide 'mh-e) | 67 (provide 'mh-e) |
68 (require 'mh-utils) | 68 (require 'mh-utils) |
160 :type 'boolean | 160 :type 'boolean |
161 :group 'mh) | 161 :group 'mh) |
162 | 162 |
163 (defcustom mh-do-not-confirm nil | 163 (defcustom mh-do-not-confirm nil |
164 "*Non-nil means do not prompt for confirmation before some mh-e commands. | 164 "*Non-nil means do not prompt for confirmation before some mh-e commands. |
165 Affects non-recoverable commands such as mh-kill-folder and mh-undo-folder." | 165 Affects non-recoverable commands such as `mh-kill-folder' and `mh-undo-folder'." |
166 :type 'boolean | 166 :type 'boolean |
167 :group 'mh) | 167 :group 'mh) |
168 | 168 |
169 (defcustom mh-store-default-directory nil | 169 (defcustom mh-store-default-directory nil |
170 "*Last directory used by \\[mh-store-msg]; default for next store. | 170 "*Last directory used by \\[mh-store-msg]; default for next store. |
755 Here are all the commands with their current binding, listed in key order: | 755 Here are all the commands with their current binding, listed in key order: |
756 \\{mh-folder-mode-map} | 756 \\{mh-folder-mode-map} |
757 | 757 |
758 Variables controlling mh-e operation are (defaults in parentheses): | 758 Variables controlling mh-e operation are (defaults in parentheses): |
759 | 759 |
760 mh-recursive-folders (nil) | 760 `mh-recursive-folders' (nil) |
761 Non-nil means commands which operate on folders do so recursively. | 761 Non-nil means commands which operate on folders do so recursively. |
762 | 762 |
763 mh-bury-show-buffer (t) | 763 `mh-bury-show-buffer' (t) |
764 Non-nil means that the buffer used to display message is buried. | 764 Non-nil means that the buffer used to display message is buried. |
765 It will never be offered as the default other buffer. | 765 It will never be offered as the default other buffer. |
766 | 766 |
767 mh-clean-message-header (nil) | 767 `mh-clean-message-header' (nil) |
768 Non-nil means remove header lines matching the regular expression | 768 Non-nil means remove header lines matching the regular expression |
769 specified in mh-invisible-headers from messages. | 769 specified in mh-invisible-headers from messages. |
770 | 770 |
771 mh-visible-headers (nil) | 771 `mh-visible-headers' (nil) |
772 If non-nil, it contains a regexp specifying the headers that are shown in | 772 If non-nil, it contains a regexp specifying the headers that are shown in |
773 a message if mh-clean-message-header is non-nil. Setting this variable | 773 a message if mh-clean-message-header is non-nil. Setting this variable |
774 overrides mh-invisible-headers. | 774 overrides `mh-invisible-headers'. |
775 | 775 |
776 mh-do-not-confirm (nil) | 776 `mh-do-not-confirm' (nil) |
777 Non-nil means do not prompt for confirmation before executing some | 777 Non-nil means do not prompt for confirmation before executing some |
778 non-recoverable commands such as mh-kill-folder and mh-undo-folder. | 778 non-recoverable commands such as `mh-kill-folder' and `mh-undo-folder'. |
779 | 779 |
780 mhl-formfile (nil) | 780 `mhl-formfile' (nil) |
781 Name of format file to be used by mhl to show messages. | 781 Name of format file to be used by mhl to show messages. |
782 A value of T means use the default format file. | 782 A value of T means use the default format file. |
783 Nil means don't use mhl to format messages. | 783 Nil means don't use mhl to format messages. |
784 | 784 |
785 mh-lpr-command-format (\"lpr -p -J '%s'\") | 785 `mh-lpr-command-format' (\"lpr -p -J '%s'\") |
786 Format for command used to print a message on a system printer. | 786 Format for command used to print a message on a system printer. |
787 | 787 |
788 mh-scan-prog (\"scan\") | 788 `mh-scan-prog' (\"scan\") |
789 Program to run to generate one-line-per-message listing of a folder. | 789 Program to run to generate one-line-per-message listing of a folder. |
790 Normally \"scan\" or a file name linked to scan. This file is searched | 790 Normally \"scan\" or a file name linked to scan. This file is searched |
791 for relative to the mh-progs directory unless it is an absolute pathname. | 791 for relative to the mh-progs directory unless it is an absolute pathname. |
792 Automatically becomes buffer-local when set in any fashion. | 792 Automatically becomes buffer-local when set in any fashion. |
793 | 793 |
794 mh-print-background (nil) | 794 `mh-print-background' (nil) |
795 Print messages in the background if non-nil. | 795 Print messages in the background if non-nil. |
796 WARNING: do not delete the messages until printing is finished; | 796 WARNING: do not delete the messages until printing is finished; |
797 otherwise, your output may be truncated. | 797 otherwise, your output may be truncated. |
798 | 798 |
799 mh-recenter-summary-p (nil) | 799 `mh-recenter-summary-p' (nil) |
800 If non-nil, then the scan listing is recentered when the window displaying | 800 If non-nil, then the scan listing is recentered when the window displaying |
801 a messages is toggled off. | 801 a messages is toggled off. |
802 | 802 |
803 mh-summary-height (4) | 803 `mh-summary-height' (4) |
804 Number of lines in the summary window including the mode line. | 804 Number of lines in the summary window including the mode line. |
805 | 805 |
806 The value of mh-folder-mode-hook is called when a new folder is set up." | 806 The value of mh-folder-mode-hook is called when a new folder is set up." |
807 | 807 |
808 (kill-all-local-variables) | 808 (kill-all-local-variables) |