[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 [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-inc.el [lexbind] |
Date: |
Sat, 04 Sep 2004 05:45:54 -0400 |
Index: emacs/lisp/mh-e/mh-inc.el
diff -c emacs/lisp/mh-e/mh-inc.el:1.2.2.1 emacs/lisp/mh-e/mh-inc.el:1.2.2.2
*** emacs/lisp/mh-e/mh-inc.el:1.2.2.1 Tue Oct 14 23:39:26 2003
--- emacs/lisp/mh-e/mh-inc.el Sat Sep 4 09:22:56 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 [lexbind],
Miles Bader <=