/[emacs]/emacs/lisp/mh-e/mh-inc.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-inc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2.2.1 by miles, Tue Oct 14 23:39:26 2003 UTC revision 1.2.2.2 by miles, Sat Sep 4 09:22:56 2004 UTC
# Line 1  Line 1 
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>
# Line 34  Line 34 
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.")
# Line 46  Line 47 
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    

Legend:
Removed from v.1.2.2.1  
changed lines
  Added in v.1.2.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26