1 |
;;; mh-inc.el --- MH-E `inc' and separate mail spool handling |
;;; mh-inc.el --- MH-E `inc' and separate mail spool handling |
2 |
;; |
;; |
3 |
;; Copyright (C) 2003 Free Software Foundation, Inc. |
;; Copyright (C) 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Peter S. Galbraith <psg@debian.org> |
;; Author: Peter S. Galbraith <psg@debian.org> |
6 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
34 |
|
|
35 |
;;; Code: |
;;; Code: |
36 |
|
|
37 |
(eval-when-compile (require 'cl)) |
(eval-when-compile (require 'mh-acros)) |
38 |
|
(mh-require-cl) |
39 |
|
|
40 |
(defvar mh-inc-spool-map (make-sparse-keymap) |
(defvar mh-inc-spool-map (make-sparse-keymap) |
41 |
"Keymap for MH-E's mh-inc-spool commands.") |
"Keymap for MH-E's mh-inc-spool commands.") |
47 |
'(lambda () |
'(lambda () |
48 |
(interactive) |
(interactive) |
49 |
(if mh-inc-spool-map-help |
(if mh-inc-spool-map-help |
50 |
(mh-ephem-message (substring mh-inc-spool-map-help 0 -1)) |
(let ((mh-help-messages (list (list nil mh-inc-spool-map-help)))) |
51 |
|
(mh-help)) |
52 |
(mh-ephem-message |
(mh-ephem-message |
53 |
"There are no keys defined yet. Customize `mh-inc-spool-list'")))) |
"There are no keys defined yet. Customize `mh-inc-spool-list'")))) |
54 |
|
|