[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 [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-inc.el [emacs-unicode-2] |
Date: |
Fri, 27 Aug 2004 03:24:48 -0400 |
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'"))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mh-e/mh-inc.el [emacs-unicode-2],
Miles Bader <=