[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-inc.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/mh-e/mh-inc.el
diff -c emacs/lisp/mh-e/mh-inc.el:1.1.4.1 emacs/lisp/mh-e/mh-inc.el:1.1.4.2
*** emacs/lisp/mh-e/mh-inc.el:1.1.4.1   Fri Apr 16 12:50:32 2004
--- emacs/lisp/mh-e/mh-inc.el   Fri Aug 27 07:00:23 2004
***************
*** 1,6 ****
  ;;; mh-inc.el --- MH-E `inc' and separate mail spool handling
  ;;
! ;; Copyright (C) 2003 Free Software Foundation, Inc.
  
  ;; Author: Peter S. Galbraith <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
--- 1,6 ----
  ;;; mh-inc.el --- MH-E `inc' and separate mail spool handling
  ;;
! ;; Copyright (C) 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Peter S. Galbraith <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
***************
*** 34,40 ****
  
  ;;; Code:
  
! (eval-when-compile (require 'cl))
  
  (defvar mh-inc-spool-map (make-sparse-keymap)
    "Keymap for MH-E's mh-inc-spool commands.")
--- 34,41 ----
  
  ;;; Code:
  
! (eval-when-compile (require 'mh-acros))
! (mh-require-cl)
  
  (defvar mh-inc-spool-map (make-sparse-keymap)
    "Keymap for MH-E's mh-inc-spool commands.")
***************
*** 46,52 ****
    '(lambda ()
       (interactive)
       (if mh-inc-spool-map-help
!          (mh-ephem-message (substring mh-inc-spool-map-help 0 -1))
         (mh-ephem-message
          "There are no keys defined yet.  Customize `mh-inc-spool-list'"))))
  
--- 47,54 ----
    '(lambda ()
       (interactive)
       (if mh-inc-spool-map-help
!          (let ((mh-help-messages (list (list nil mh-inc-spool-map-help))))
!            (mh-help))
         (mh-ephem-message
          "There are no keys defined yet.  Customize `mh-inc-spool-list'"))))