Mercurial > emacs
annotate lisp/mh-e/mh-inc.el @ 68096:57c4e7929f99
* mh-alias.el (mh-alias-gecos-name): Use replace-regexp-in-string
instead of mh-replace-in-string as mh-replace-in-string was replaced
by a more appropriate defsubst in mh-xemacs.el.
* mh-comp.el: Require cleanup, wrap compiler-shushing defvars with
eval-when-compile.
(mh-file-is-vcard-p): Removed redundant test.
* mh-customize.el: Require cleanup, wrap compiler-shushing defvars
with eval-when-compile.
(mh-adaptive-cmd-note-flag, mh-invisible-header-fields)
(mh-invisible-header-fields-default): Add forward definitions.
(mh-invisible-header-fields-default): Alphabetize.
* mh-e.el: Require cleanup, wrap compiler-shushing defvars with
eval-when-compile.
(mh-thread-scan-line-map-stack, tool-bar-mode): Delete unused
variables.
(mh-colors-available-p): Just call display-color-cells. It's on all
supported Emacsen (and defaliased on XEmacs).
* mh-funcs.el: mh-inc.el: mh-init.el: Wrap compiler-shushing defvars
* with eval-when-compile.
* mh-identity.el: Don't need (mh-require-cl).
* mh-index.el: Don't need to load executable any more.
* mh-mime.el: Wrap compiler-shushing defvars with eval-when-compile.
(mh-have-file-command): Initialize variable to 'undefined. Add
docstring. Update function of same name accordingly. Also don't need
to load executable any more.
(mh-mime-content-types): Delete.
(mh-minibuffer-read-type): Prompt user for type if mh-file-mime-type
returns application/octet-stream. Assume we have mailcap-mime-types.
(mh-mime-display): Update error message.
* mh-seq.el: Require cleanup, and wrap compiler-shushing defvars with
eval-when-compile.
* mh-utils.el: Require cleanup, and wrap compiler-shushing defvars
with eval-when-compile.
(mh-clean-msg-header): Don't set after-change-functions to nil.
(mh-replace-in-string): Remove. Create defsubst in mh-xemacs.el
instead.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Mon, 09 Jan 2006 06:28:49 +0000 |
parents | 9c3504ae6060 |
children | 5772368fe15e |
rev | line source |
---|---|
67760
9c3504ae6060
Follow MH-E Developers Guide conventions. Use `' quotes for Help
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
1 ;;; mh-inc.el --- MH-E "inc" and separate mail spool handling |
50702 | 2 ;; |
68096
57c4e7929f99
* mh-alias.el (mh-alias-gecos-name): Use replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
67760
diff
changeset
|
3 ;; Copyright (C) 2003, 2004, 2006 Free Software Foundation, Inc. |
50702 | 4 |
5 ;; Author: Peter S. Galbraith <psg@debian.org> | |
6 ;; Maintainer: Bill Wohler <wohler@newt.com> | |
7 ;; Keywords: mail | |
8 ;; See: mh-e.el | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64085 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
50702 | 26 |
27 ;;; Commentary: | |
28 | |
29 ;; Support for inc. In addition to reading from the system mailbox, inc can | |
30 ;; also be used to incorporate mail from multiple spool files into separate | |
67760
9c3504ae6060
Follow MH-E Developers Guide conventions. Use `' quotes for Help
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
31 ;; folders. See "C-h v mh-inc-spool-list". |
50702 | 32 |
33 ;;; Change Log: | |
34 | |
35 ;;; Code: | |
36 | |
56673
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
52401
diff
changeset
|
37 (eval-when-compile (require 'mh-acros)) |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
52401
diff
changeset
|
38 (mh-require-cl) |
50702 | 39 |
40 (defvar mh-inc-spool-map (make-sparse-keymap) | |
41 "Keymap for MH-E's mh-inc-spool commands.") | |
42 | |
43 (defvar mh-inc-spool-map-help nil | |
44 "Help text to for `mh-inc-spool-map'.") | |
45 | |
46 (define-key mh-inc-spool-map "?" | |
47 '(lambda () | |
48 (interactive) | |
49 (if mh-inc-spool-map-help | |
56673
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
52401
diff
changeset
|
50 (let ((mh-help-messages (list (list nil mh-inc-spool-map-help)))) |
e9a6cbc8ca5e
Upgraded to MH-E version 7.4.80.
Bill Wohler <wohler@newt.com>
parents:
52401
diff
changeset
|
51 (mh-help)) |
50702 | 52 (mh-ephem-message |
53 "There are no keys defined yet. Customize `mh-inc-spool-list'")))) | |
54 | |
55 (defun mh-inc-spool-generator (folder spool) | |
56 "Create a command to inc into FOLDER from SPOOL file." | |
57 (let ((folder1 (make-symbol "folder")) | |
58 (spool1 (make-symbol "spool"))) | |
59 (set folder1 folder) | |
60 (set spool1 spool) | |
61 (setf (symbol-function (intern (concat "mh-inc-spool-" folder))) | |
62 `(lambda () | |
63 ,(format "Inc spool file %s into folder %s" spool folder) | |
64 (interactive) | |
65 (mh-inc-folder ,spool1 (concat "+" ,folder1)))))) | |
66 | |
67 (defun mh-inc-spool-def-key (key folder) | |
68 "Define a KEY in `mh-inc-spool-map' to inc FOLDER and collect help string." | |
69 (when (not (= 0 key)) | |
70 (define-key mh-inc-spool-map (format "%c" key) | |
71 (intern (concat "mh-inc-spool-" folder))) | |
72 (setq mh-inc-spool-map-help (concat mh-inc-spool-map-help "[" | |
73 (char-to-string key) | |
74 "] inc " folder " folder\n")))) | |
75 | |
68096
57c4e7929f99
* mh-alias.el (mh-alias-gecos-name): Use replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
67760
diff
changeset
|
76 (eval-when-compile (defvar mh-inc-spool-list)) ;shush compiler |
50702 | 77 |
78 (defun mh-inc-spool-make () | |
79 "Make all commands and defines keys for contents of `mh-inc-spool-list'." | |
80 (when mh-inc-spool-list | |
81 (setq mh-inc-spool-map-help nil) | |
82 (loop for elem in mh-inc-spool-list | |
83 do (let ((spool (nth 0 elem)) | |
84 (folder (nth 1 elem)) | |
85 (key (nth 2 elem))) | |
86 (progn | |
87 (mh-inc-spool-generator folder spool) | |
88 (mh-inc-spool-def-key key folder)))))) | |
89 | |
90 ;;;###mh-autoload | |
91 (defun mh-inc-spool-list-set (symbol value) | |
92 "Set-default SYMBOL to VALUE to update the `mh-inc-spool-list' variable. | |
93 Also rebuilds the user commands. | |
94 This is called after 'customize is used to alter `mh-inc-spool-list'." | |
95 (set-default symbol value) | |
96 (mh-inc-spool-make)) | |
97 | |
98 (provide 'mh-inc) | |
99 | |
67681 | 100 ;; Local Variables: |
101 ;; indent-tabs-mode: nil | |
102 ;; sentence-end-double-space: nil | |
103 ;; End: | |
50702 | 104 |
67681 | 105 ;; arch-tag: 3713cf2a-6082-4cb4-8ce2-99d9acaba835 |
50702 | 106 ;;; mh-inc.el ends here |