[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-inc.el
From: |
Bill Wohler |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-inc.el |
Date: |
Mon, 16 Aug 2004 09:37:04 -0400 |
Index: emacs/lisp/mh-e/mh-inc.el
diff -c emacs/lisp/mh-e/mh-inc.el:1.2 emacs/lisp/mh-e/mh-inc.el:1.3
*** emacs/lisp/mh-e/mh-inc.el:1.2 Mon Sep 1 15:45:33 2003
--- emacs/lisp/mh-e/mh-inc.el Sun Aug 15 22:00:06 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'"))))
- [Emacs-diffs] Changes to emacs/lisp/mh-e/mh-inc.el,
Bill Wohler <=