Upgraded to mh-e version 6.1.1.
This commit is contained in:
Bill Wohler
parent
3dcdb054a0
commit
a1b4049dc2
29 changed files with 3187 additions and 998 deletions
|
|
@ -1,3 +1,7 @@
|
||||||
|
2002-10-01 Bill Wohler <wohler@newt.com>
|
||||||
|
|
||||||
|
* MH-E-NEWS: Upgraded to mh-e version 6.1.1.
|
||||||
|
|
||||||
2002-09-16 Jonathan Yavner <jyavner@engineer.com>
|
2002-09-16 Jonathan Yavner <jyavner@engineer.com>
|
||||||
|
|
||||||
* ses-example.ses: New file: example spreadsheet.
|
* ses-example.ses: New file: example spreadsheet.
|
||||||
|
|
|
||||||
746
etc/MH-E-NEWS
746
etc/MH-E-NEWS
|
|
@ -1,144 +1,744 @@
|
||||||
User-visible changes to mh-e in version 5.0 from 4.1.
|
* Changes in mh-e 6.1
|
||||||
|
|
||||||
Note: This being a major release, there are many internal changes.
|
This is a minor release which includes a few bug fixes. The
|
||||||
This document lists only changes to the external interfaces of mh-e.
|
distribution now includes the ChangeLog.
|
||||||
|
|
||||||
When upgrading, you must either explicitly reload the new versions of
|
** New Features in mh-e 6.1
|
||||||
all mh-e files that are already loaded or restart your Emacs.
|
|
||||||
|
|
||||||
mh-e 5.0.1 contains minor changes from mh-e 5.0 to integrate it with
|
*** Fontification
|
||||||
Emacs 19.29.
|
|
||||||
|
|
||||||
mh-e 5.0.2 contains additional minor changes to integrate it with
|
Unseen messages now displayed in bold.
|
||||||
|
|
||||||
|
*** Viewing folders and sequences
|
||||||
|
|
||||||
|
The folder and sequence listings that "F l (mh-list-folders)" and "S l
|
||||||
|
(mh-list-sequences)" create are now displayed in view mode.
|
||||||
|
|
||||||
|
** Bug Fixes in mh-e 6.1
|
||||||
|
|
||||||
|
*** mh-folder-unseen-seq-name
|
||||||
|
|
||||||
|
Byte compilation failed when initializing this variable when the
|
||||||
|
user's MH environment was not set up. This has been fixed (closes
|
||||||
|
Debian #140232 and Debian #140817).
|
||||||
|
|
||||||
|
*** mh-forward
|
||||||
|
|
||||||
|
When forwarding a sequence, the mode of the draft would not be set to
|
||||||
|
MH-Letter correctly. This has been fixed (closes SF #489448).
|
||||||
|
|
||||||
|
*** mh-insert-prefix-string
|
||||||
|
|
||||||
|
Fixed to work under XEmacs. Thanks to Will Partain
|
||||||
|
<partain at dcs.gla.ac.uk>.
|
||||||
|
|
||||||
|
*** mh-quit
|
||||||
|
|
||||||
|
mh-quit now cleans up the buffers named `mh-temp-buffer,
|
||||||
|
'mh-temp-folders-buffer' and 'mh-temp-sequences-buffer.'
|
||||||
|
|
||||||
|
|
||||||
|
* Changes in mh-e 6.0
|
||||||
|
|
||||||
|
mh-e is now maintained at SourceForge (see
|
||||||
|
http://mh-e.sourceforge.net/). This is where you need to go to obtain
|
||||||
|
new versions of mh-e, report bugs and receive support.
|
||||||
|
|
||||||
|
The maintainers have moved much of their personal configurations into
|
||||||
|
the codebase, so you may find that you may be able to reduce your mh-e
|
||||||
|
customizations as well.
|
||||||
|
|
||||||
|
There are several incompatibilities in this version from older
|
||||||
|
versions. Please read the following notes carefully for details. Pay
|
||||||
|
particular attention to the key binding changes in the MH-Folder
|
||||||
|
section. If you have customized your scan format, you will want to
|
||||||
|
read about the new variable `mh-scan-format-file'.
|
||||||
|
|
||||||
|
The manual could not be updated in time for this release. It will be
|
||||||
|
updated in the near future. If the Preface in your manual indicates
|
||||||
|
the older version (version 1.3, for mh-e version 5.0.2), please check
|
||||||
|
the following page occasionally for an update:
|
||||||
|
|
||||||
|
https://sourceforge.net/project/showfiles.php?group_id=13357
|
||||||
|
|
||||||
|
|
||||||
|
** New Features in mh-e 6.0
|
||||||
|
|
||||||
|
*** Customization
|
||||||
|
|
||||||
|
mh-e now uses the customize feature of Emacs. Use "M-x customize-group
|
||||||
|
mh RET" to customize mh-e.
|
||||||
|
|
||||||
|
*** Menus
|
||||||
|
|
||||||
|
All mh-e modes now provide menus that contain most mh-e functions.
|
||||||
|
|
||||||
|
*** Toolbars
|
||||||
|
|
||||||
|
All mh-e modes now have toolbar buttons for oft-used functions (Emacs 21).
|
||||||
|
|
||||||
|
*** Fontification
|
||||||
|
|
||||||
|
All mh-e buffers now have font-lock keywords. To use, either call
|
||||||
|
(turn-on-font-lock) from the appropriate hook, or set
|
||||||
|
`global-font-lock-mode' to t. To customize, use "M-x
|
||||||
|
customize-apropos-faces ^mh RET".
|
||||||
|
|
||||||
|
If you have customized your scan lines, you will have to update your
|
||||||
|
scan regexps. The existing regexps were changed to extract a match so
|
||||||
|
you will have to add appropriate grouping constructs to take advantage
|
||||||
|
of the fontification. Your old settings will continue to work, but the
|
||||||
|
folder will not be fontified. For example:
|
||||||
|
|
||||||
|
(setq mh-good-msg-regexp "^\\(.....\\)[^D^]")
|
||||||
|
|
||||||
|
You will most likely have to update the new variable
|
||||||
|
`mh-scan-subject-regexp' as well. There is another new variable
|
||||||
|
`mh-scan-date-regexp' which you may also find useful. Run "M-x apropos
|
||||||
|
mh.*regexp" for a complete list.
|
||||||
|
|
||||||
|
*** mail-user-agent support
|
||||||
|
|
||||||
|
You can now set `mail-user-agent' to `mh-e-user-agent' so that packages
|
||||||
|
that need to send mail will use mh-e (closes SF #406883, SF #470024).
|
||||||
|
|
||||||
|
*** replgroupcomps support
|
||||||
|
|
||||||
|
If you reply to `cc' or `all' and you use nmh, the nmh repl option
|
||||||
|
-group will be used. This means that the file `replgroupcomps' will be
|
||||||
|
used. If you have customized `replcomps', you will definitely want to
|
||||||
|
either copy `$NMH_LIB/replgroupcomps' to your mail directory and modify
|
||||||
|
it the same way that you modified your `replcomps' file, or simply
|
||||||
|
copy your `replcomps' file to `replgroupcomps'.
|
||||||
|
|
||||||
|
*** MH-Folder mode
|
||||||
|
|
||||||
|
The variable `mh-summary-height' used to have a default of 4. It now
|
||||||
|
varies from 4 to 10 depending on the height of the frame.
|
||||||
|
|
||||||
|
Clicking the mouse on a message shows that message.
|
||||||
|
|
||||||
|
Delete, refile and undo now operate on a region (but only if
|
||||||
|
`transient-mark-mode' is non-nil).
|
||||||
|
|
||||||
|
SPC (mh-page-msg) now displays the message if it is not already
|
||||||
|
visible. If the bottom of a message is showing, SPC (mh-page-msg)
|
||||||
|
moves to the next message (respecting the direction you are moving
|
||||||
|
through the folder).
|
||||||
|
|
||||||
|
The threading commands "T u (mh-next-unseen-subject-thread)",
|
||||||
|
"T t (mh-toggle-subject-thread)", "T s (mh-narrow-to-subject-thread)",
|
||||||
|
and "T k (mh-delete-subject-thread)" have been added. These functions
|
||||||
|
do not offer threading in the true sense of the word, but do allow
|
||||||
|
some manipulation by subject.
|
||||||
|
|
||||||
|
Major, major keymap changes. This was done to free up movement
|
||||||
|
commands in the buffer, and to provide for additional features, such
|
||||||
|
as the threading commands. At the same time, better and more
|
||||||
|
consistent mnemonics were realized that should make it easier to
|
||||||
|
remember key bindings.
|
||||||
|
|
||||||
|
Added new sub-keymaps for folder commands, sequence commands,
|
||||||
|
extraction commands, and digest commands which begin with with F, S,
|
||||||
|
X, and D, respectively. These sub-keymaps allowed some consistency
|
||||||
|
(e.g., especially with l(ist) and k(ill)).
|
||||||
|
|
||||||
|
Here are the actual changes and rationale:
|
||||||
|
|
||||||
|
Old New Rationale
|
||||||
|
|
||||||
|
e - Deleted. Already have x. Now used by mh-edit-again.
|
||||||
|
j - Deleted. Already have g.
|
||||||
|
|
||||||
|
M-a e Better mnemonic. Matches rmail. Frees movement command.
|
||||||
|
M-e E Better mnemonic. Consistent with e.
|
||||||
|
- S Why not? mh-sort-folder.
|
||||||
|
|
||||||
|
M-f Fv Frees movement command
|
||||||
|
M-f Ff Alias (keep?)
|
||||||
|
M-f Fo Alias (keep?)
|
||||||
|
M-k Fk No reason but to keep with folder commands
|
||||||
|
M-l Fl No reason but to keep with folder commands
|
||||||
|
M-p Fp No reason but to keep with folder commands
|
||||||
|
M-r Fr Frees movement command
|
||||||
|
M-s Fs No reason but to keep with folder commands
|
||||||
|
M-u Fu No reason but to keep with folder commands
|
||||||
|
|
||||||
|
M-% Sd Better mnemonic
|
||||||
|
M-# Sk Better mnemonic
|
||||||
|
M-q Sl Better mnemonic
|
||||||
|
C-xn Sn Frees up standard key binding
|
||||||
|
% Sp Better mnemonic for putting a message in a sequence
|
||||||
|
? Ss Shows sequences that message is in
|
||||||
|
C-xw Sw Frees up standard key binding
|
||||||
|
|
||||||
|
M-n Xs Better mnemonic (extract shar)
|
||||||
|
M-n Xu Better mnemonic (extract uuencode)
|
||||||
|
|
||||||
|
M-SPC D SPC Frees mark command
|
||||||
|
M-\177 D \177 No reason but to keep with digest commands
|
||||||
|
M-b Db Frees movement command
|
||||||
|
|
||||||
|
As the number of variables increases, it is becoming important to
|
||||||
|
organize the mh-e namespace. Several variables having to do with the
|
||||||
|
format of scan lines were renamed, as follows:
|
||||||
|
|
||||||
|
Old New
|
||||||
|
|
||||||
|
mh-good-msg-regexp mh-scan-good-msg-regexp
|
||||||
|
mh-deleted-msg-regexp mh-scan-deleted-msg-regexp
|
||||||
|
mh-refiled-msg-regexp mh-scan-refiled-msg-regexp
|
||||||
|
mh-valid-scan-line mh-scan-valid-regexp
|
||||||
|
mh-cur-scan-msg-regexp mh-scan-cur-msg-number-regexp
|
||||||
|
- mh-scan-cur-msg-regexp
|
||||||
|
- mh-scan-rcpt-regexp
|
||||||
|
- mh-scan-format-regexp
|
||||||
|
mh-msg-number-regexp mh-scan-msg-number-regexp
|
||||||
|
mh-msg-search-regexp mh-scan-msg-search-regexp
|
||||||
|
|
||||||
|
*** MH-Show mode
|
||||||
|
|
||||||
|
While the MIME support is not complete, quoted-printable body parts
|
||||||
|
are now decoded.
|
||||||
|
|
||||||
|
Some MTAs quote From at the beginning of the line with a ">". The ">"
|
||||||
|
is now removed in the display, but not on disk.
|
||||||
|
|
||||||
|
*** MH-Letter mode
|
||||||
|
|
||||||
|
New function "C-c C-o (mh-split-line)" splits lines in a draft
|
||||||
|
preserving the fill prefix and indentation. This is useful when
|
||||||
|
responding to several sentences in a single paragraph separately.
|
||||||
|
|
||||||
|
"M-q (fill-paragraph)" can now be used on the message that is being
|
||||||
|
replied to. The fill prefix such as "> " is preserved.
|
||||||
|
|
||||||
|
You no longer have to run "C-c C-e (mh-edit-mhn)" manually as this is
|
||||||
|
now done automatically when the message is sent.
|
||||||
|
|
||||||
|
The X-Mailer header field is now added to messages as they are sent.
|
||||||
|
|
||||||
|
"C-c C-m C-i (mh-mhn-compose-insertion)" now makes a pretty good guess
|
||||||
|
at the type of file using the `file' command and no longer asks the
|
||||||
|
user for the media type. If the necessary version of `file' is not
|
||||||
|
available, the user is asked for the media type as before; however,
|
||||||
|
the list of media types is now taken from the system mailcap if
|
||||||
|
available. Failing that, the built-in list of types has been
|
||||||
|
supplemented so in most cases the type you need should be present
|
||||||
|
(closes SF #406883, #441179).
|
||||||
|
|
||||||
|
** New Variables in mh-e 6.0
|
||||||
|
|
||||||
|
New variables not mentioned earlier include:
|
||||||
|
|
||||||
|
*** mh-insert-x-mailer-p
|
||||||
|
|
||||||
|
Default value of t means that an X-Mailer header field should be
|
||||||
|
added.
|
||||||
|
|
||||||
|
*** mh-reply-show-message-p
|
||||||
|
|
||||||
|
The setting of this variable determines whether the MH show-buffer is
|
||||||
|
displayed with the current message when using mh-reply without a prefix
|
||||||
|
argument. Set it to nil if you already include the message
|
||||||
|
automatically in your draft using "repl: -filter repl.filter" in
|
||||||
|
"~/.mh_profile."
|
||||||
|
|
||||||
|
*** mh-scan-format-file
|
||||||
|
|
||||||
|
Specifies the format file to pass to the scan program. If t, the
|
||||||
|
format string will be taken from the either `mh-scan-format-mh' or
|
||||||
|
`mh-scan-format-nmh' depending on whether MH or nmh is in use. If nil,
|
||||||
|
the default scan output will be used.
|
||||||
|
|
||||||
|
If you customize the scan format, you may need to modify a few
|
||||||
|
variables containing regexps that mh-e uses to identify specific
|
||||||
|
portions of the output. Use `M-x apropos RET mh-scan.*regexp' to
|
||||||
|
obtain a list of these variables.
|
||||||
|
|
||||||
|
*** mh-scan-format-mh
|
||||||
|
|
||||||
|
Scan format string for MH, provided to the scan program via the
|
||||||
|
-format arg. This format is identical to the default except that
|
||||||
|
additional hints for fontification have been added to the sixth
|
||||||
|
column.
|
||||||
|
|
||||||
|
*** mh-scan-format-nmh
|
||||||
|
|
||||||
|
Scan format string for nmh, provided to the scan program via the
|
||||||
|
-format arg. This format is identical to the default except that
|
||||||
|
additional hints for fontification have been added to the sixth
|
||||||
|
column.
|
||||||
|
|
||||||
|
*** mh-show-use-goto-addr
|
||||||
|
|
||||||
|
Non-nil means URLs and e-mail addresses are highlighted using
|
||||||
|
goto-addr in MH-Show buffer.
|
||||||
|
|
||||||
|
*** mh-letter-fill-column
|
||||||
|
|
||||||
|
Fill column to use in `mh-letter-mode'. This is useful to make the
|
||||||
|
lines a bit shorter to allow for quoting in replies.
|
||||||
|
|
||||||
|
*** mh-folder-updated-hook
|
||||||
|
|
||||||
|
Invoked when the actions in a folder (such as moves and deletes) are
|
||||||
|
performed. Variables that are useful in this hook include
|
||||||
|
`mh-delete-list' and `mh-refile-list' which can be used to see which
|
||||||
|
changes are being made to current folder, `mh-current-folder'.
|
||||||
|
|
||||||
|
*** mh-unseen-updated-hook
|
||||||
|
|
||||||
|
Invoked after the unseen sequence has been updated. The variable
|
||||||
|
`mh-seen-list' can be used to obtain the list of messages which will
|
||||||
|
be removed from the unseen sequence
|
||||||
|
|
||||||
|
** Bug Fixes in mh-e 6.0
|
||||||
|
|
||||||
|
*** mh-edit-again and mh-extract-rejected-mail
|
||||||
|
|
||||||
|
Now insert a header separator (--------) which packages such as
|
||||||
|
mailcrypt expect.
|
||||||
|
|
||||||
|
*** mh-find-progs
|
||||||
|
|
||||||
|
Now uses `mhparam' to set `mh-lib-progs' and `mh-lib'. Added more
|
||||||
|
directories to `mh-progs' so that mh-e can autoconfigure in more
|
||||||
|
environments. Chances are that you no longer have to set these
|
||||||
|
variables, and if you do, you will only have to set `mh-progs'.
|
||||||
|
Unless, of course, you are using an ancient version of MH that doesn't
|
||||||
|
have `mhparam'.
|
||||||
|
|
||||||
|
*** mh-folder-mode-map
|
||||||
|
|
||||||
|
The DEL/<delete>/<backspace> change in Emacs 21 broke
|
||||||
|
`mh-previous-page'. This has been fixed (closes SF #228907).
|
||||||
|
|
||||||
|
*** mh-forward
|
||||||
|
|
||||||
|
If you had "forw: -mime" to your .mh_profile, forwarding a message
|
||||||
|
resulted in:
|
||||||
|
|
||||||
|
Search failed: "^------- Forwarded Message"
|
||||||
|
|
||||||
|
In addition, the Subject field was not filled in. This has been fixed
|
||||||
|
(closes SF #223603).
|
||||||
|
|
||||||
|
*** mh-kill-folder
|
||||||
|
|
||||||
|
The user is now always prompted before this action; the variable
|
||||||
|
`mh-do-not-confirm' is no longer consulted here. Therefore users who
|
||||||
|
wanted to set `mh-do-not-confirm' but didn't because of the
|
||||||
|
`mh-kill-folder' dependency may now do so.
|
||||||
|
|
||||||
|
*** mh-make-folder-mode-line
|
||||||
|
|
||||||
|
Properly deals with folders that do not have any lines in them. Prints
|
||||||
|
"no msgs" instead of "0 msgs". Does not try to print a range when
|
||||||
|
there are no messages.
|
||||||
|
|
||||||
|
*** mh-mhn-compose-insertion
|
||||||
|
|
||||||
|
Now gets the MIME type automatically (assuming the local file command
|
||||||
|
supports the -i and -b options). If this use of the file command is
|
||||||
|
not supported, the list of MIME types has been expanded to use the
|
||||||
|
system's mailcap file.
|
||||||
|
|
||||||
|
*** mh-nmh-p
|
||||||
|
|
||||||
|
This variable (t when nmh is in use rather than MH) assumed that the
|
||||||
|
string "nmh" is in `mh-lib-progs' or `mh-lib'. This has been fixed
|
||||||
|
(closes SF #441776).
|
||||||
|
|
||||||
|
*** mh-refile-msg
|
||||||
|
|
||||||
|
No longer lets you specify an empty folder (closes SF #476824).
|
||||||
|
|
||||||
|
*** mh-regenerate-headers
|
||||||
|
|
||||||
|
Now suppresses "scan: bad message list" messages.
|
||||||
|
|
||||||
|
*** mh-print-msg
|
||||||
|
|
||||||
|
This function was looking for `mhl' in the wrong place on nmh on
|
||||||
|
Redhat LINUX 7.0. This has been fixed (closes SF #481128).
|
||||||
|
|
||||||
|
*** mh-show
|
||||||
|
|
||||||
|
Now updates `cur' sequence after a message is shown (closes SF #481772).
|
||||||
|
|
||||||
|
*** mh-showing
|
||||||
|
|
||||||
|
Renamed variable and function to `mh-showing-mode' to conform with
|
||||||
|
minor mode conventions. Added optional arg to function so it would
|
||||||
|
behave like a normal minor mode: no or nil arg toggles mode, 0 arg
|
||||||
|
turns off, non-nil turns on. This fixed the error that occurred when
|
||||||
|
`desktop-create-buffer' recreated mh-e buffers because it was calling
|
||||||
|
`mh-showing' with an arg.
|
||||||
|
|
||||||
|
*** mh-version
|
||||||
|
|
||||||
|
Fixed for nmh. Now displays mh-e version correctly. Cleaned up output
|
||||||
|
and display `mh-progs', etc.
|
||||||
|
|
||||||
|
*** mh-widen
|
||||||
|
|
||||||
|
Now attempts to stay on the same message number (closes SF #480922).
|
||||||
|
|
||||||
|
No longer wipes out pending deletes and refiles without warning
|
||||||
|
(closes SF #481036).
|
||||||
|
|
||||||
|
|
||||||
|
* Changes in mh-e 5.0.2
|
||||||
|
|
||||||
|
This version contains additional minor changes to integrate it with
|
||||||
reporter.el (requires reporter.el version 3.1c or later) and Emacs
|
reporter.el (requires reporter.el version 3.1c or later) and Emacs
|
||||||
19.30. The mh-goto-msg function is much faster, which also speeds up
|
19.30. The mh-goto-msg function is much faster, which also speeds up
|
||||||
several other operations.
|
several other operations.
|
||||||
|
|
||||||
Major Changes and New Features in mh-e
|
|
||||||
======================================
|
* Changes in mh-e 5.0.1
|
||||||
|
|
||||||
The emphasis for this release has been on consistency and
|
This version contains minor changes from mh-e 5.0 to integrate it with
|
||||||
documentation. Many documentation strings were enhanced.
|
Emacs 19.29.
|
||||||
Documentation strings were changed to comments for internal functions
|
|
||||||
and variables.
|
|
||||||
|
|
||||||
There is now proper documentation in the form of a 75-page users
|
|
||||||
manual. The Texinfo source is mh-e.texi; the formatted Info document
|
* User-visible changes to mh-e 5.0
|
||||||
|
|
||||||
|
Note: This being a major release, there are many internal changes.
|
||||||
|
This document lists only changes to the external interfaces of mh-e.
|
||||||
|
|
||||||
|
When upgrading, you must either explicitly reload the new versions of
|
||||||
|
all mh-e files that are already loaded or restart your Emacs.
|
||||||
|
|
||||||
|
|
||||||
|
** Major Changes and New Features in mh-e 5.0
|
||||||
|
|
||||||
|
The emphasis for this release has been on consistency and
|
||||||
|
documentation. Many documentation strings were enhanced. Documentation
|
||||||
|
strings were changed to comments for internal functions and variables.
|
||||||
|
|
||||||
|
*** There is now proper documentation in the form of a 75-page users
|
||||||
|
manual. The Texinfo source is mh-e.texi; the formatted Info document
|
||||||
is mh-e.info.
|
is mh-e.info.
|
||||||
|
|
||||||
There is a new command `mh-update-sequences', which updates MH's
|
*** There is a new command `mh-update-sequences', which updates MH's
|
||||||
idea of what messages are in the Unseen sequence and what is the current
|
idea of what messages are in the Unseen sequence and what is the
|
||||||
folder and message. `mh-quit' calls it. While `mh-execute-commands'
|
current folder and message. `mh-quit' calls it. While
|
||||||
has always done this updating as a side effect, the new function is
|
`mh-execute-commands' has always done this updating as a side effect,
|
||||||
faster.
|
the new function is faster.
|
||||||
|
|
||||||
The MH profile entry "Inbox:" is supported.
|
*** The MH profile entry "Inbox:" is supported.
|
||||||
|
|
||||||
If the show-buffer is modified, the user is queried before mh-e
|
*** If the show-buffer is modified, the user is queried before mh-e
|
||||||
reuses the buffer to show a different message. This buffer is also
|
reuses the buffer to show a different message. This buffer is also
|
||||||
auto-saved and backed up correctly.
|
auto-saved and backed up correctly.
|
||||||
|
|
||||||
`mh-store-buffer' is significantly more robust. It now handles
|
*** `mh-store-buffer' is significantly more robust. It now handles
|
||||||
messages created by a wide variety of packaging software. The status
|
messages created by a wide variety of packaging software. The status
|
||||||
message for `uudecode' includes the name of the file created. An error
|
message for `uudecode' includes the name of the file created. An error
|
||||||
is signaled if the subprocess exits with a non-zero status.
|
is signaled if the subprocess exits with a non-zero status.
|
||||||
|
|
||||||
`mh-search-folder' behaves predictably, adding messages found to the
|
*** `mh-search-folder' behaves predictably, adding messages found to
|
||||||
`search' sequence. It correctly handles the case of no messages found.
|
the `search' sequence. It correctly handles the case of no messages
|
||||||
|
found.
|
||||||
|
|
||||||
`mh-burst-digest' (`M-b') now only rescans the part of the folder
|
*** `mh-burst-digest' (`M-b') now only rescans the part of the folder
|
||||||
affected by the burst. It is now much faster in a large folder.
|
affected by the burst. It is now much faster in a large folder.
|
||||||
|
|
||||||
New mh-e Hooks and Customization Variables
|
|
||||||
==========================================
|
|
||||||
|
|
||||||
`mh-default-folder-for-message-function': new name for the old
|
** New Hooks and Customization Variables in mh-e 5.0
|
||||||
`mh-msg-folder-hook', which wasn't a hook. The old name was confusing,
|
|
||||||
|
*** `mh-default-folder-for-message-function': new name for the old
|
||||||
|
`mh-msg-folder-hook', which wasn't a hook. The old name was confusing,
|
||||||
leading people to think they could use `add-hook' with it, when
|
leading people to think they could use `add-hook' with it, when
|
||||||
actually `setq' is the correct way.
|
actually `setq' is the correct way.
|
||||||
|
|
||||||
`mh-sortm-args': When this variable is used has changed. Now
|
*** `mh-sortm-args': When this variable is used has changed. Now
|
||||||
`mh-sortm-args' is passed if there IS a prefix argument to
|
`mh-sortm-args' is passed if there IS a prefix argument to
|
||||||
`mh-sort-folder'. The assumption is that for arguments you normally
|
`mh-sort-folder'. The assumption is that for arguments you normally
|
||||||
want, you would specify them in an MH profile entry.
|
want, you would specify them in an MH profile entry.
|
||||||
|
|
||||||
`mh-mhn-args': new hook, a list of additional arguments to pass to
|
*** `mh-mhn-args': new hook, a list of additional arguments to pass to
|
||||||
the `mhn' program if `mh-edit-mhn' is given a prefix argument.
|
the `mhn' program if `mh-edit-mhn' is given a prefix argument.
|
||||||
|
|
||||||
`mh-edit-mhn-hook': new hook called by `mh-edit-mhn', the function
|
*** `mh-edit-mhn-hook': new hook called by `mh-edit-mhn', the function
|
||||||
that formats MIME messages.
|
that formats MIME messages.
|
||||||
|
|
||||||
`mh-folder-list-change-hook': new hook, called whenever the cached
|
*** `mh-folder-list-change-hook': new hook, called whenever the cached
|
||||||
list of folders, `mh-folder-list', is changed.
|
list of folders, `mh-folder-list', is changed.
|
||||||
|
|
||||||
`mh-find-path-hook': new hook, called when entering mh-e.
|
*** `mh-find-path-hook': new hook, called when entering mh-e.
|
||||||
|
|
||||||
`mh-repl-formfile': new variable, used to change the format file
|
*** `mh-repl-formfile': new variable, used to change the format file
|
||||||
used by `mh-reply' from the default of "replcomps".
|
used by `mh-reply' from the default of "replcomps".
|
||||||
|
|
||||||
New variables to customize the scan format and notating:
|
*** New variables to customize the scan format and notating:
|
||||||
`mh-note-deleted', `mh-note-refiled', `mh-note-seq', `mh-note-cur',
|
`mh-note-deleted', `mh-note-refiled', `mh-note-seq', `mh-note-cur',
|
||||||
`mh-note-copied', `mh-note-printed'.
|
`mh-note-copied', `mh-note-printed'.
|
||||||
|
|
||||||
Key Binding Changes in mh-e
|
|
||||||
===========================
|
|
||||||
|
|
||||||
`RET' runs `mh-show' for consistency with the Finder and Info. The
|
** Key Binding Changes in mh-e 5.0
|
||||||
|
|
||||||
|
*** `RET' runs `mh-show' for consistency with the Finder and Info. The
|
||||||
old binding `.' still works, but `RET' is now the standard binding.
|
old binding `.' still works, but `RET' is now the standard binding.
|
||||||
|
|
||||||
`M-<' now runs `mh-first-msg' for consistency with `M->', which runs
|
*** `M-<' now runs `mh-first-msg' for consistency with `M->', which
|
||||||
`mh-last-msg'.
|
runs `mh-last-msg'.
|
||||||
|
|
||||||
`C-c C-f C-d' in MH-Letter mode moves to a Dcc: header field.
|
*** `C-c C-f C-d' in MH-Letter mode moves to a Dcc: header field.
|
||||||
|
|
||||||
`C-c C-f C-r' in MH-Letter mode moves to a From: header field.
|
*** `C-c C-f C-r' in MH-Letter mode moves to a From: header field.
|
||||||
|
|
||||||
`g' is now the standard binding for `mh-goto-msg'. The old binding
|
*** `g' is now the standard binding for `mh-goto-msg'. The old binding
|
||||||
`j' still works.
|
`j' still works.
|
||||||
|
|
||||||
Other Improvements and Changes to mh-e
|
|
||||||
======================================
|
|
||||||
|
|
||||||
`mh-lpr-command-format' no longer passes the "-p" argument to `lpr'
|
** Other Improvements and Changes to mh-e 5.0
|
||||||
by default. The mail header typically has the date anyway.
|
|
||||||
|
|
||||||
When prompting for a sequence name, if no sequences have been used
|
*** `mh-lpr-command-format' no longer passes the "-p" argument to
|
||||||
|
`lpr' by default. The mail header typically has the date anyway.
|
||||||
|
|
||||||
|
*** When prompting for a sequence name, if no sequences have been used
|
||||||
yet, mh-e will offer the first sequence the current message is in.
|
yet, mh-e will offer the first sequence the current message is in.
|
||||||
|
|
||||||
The patterns of more mailers are recognized by
|
*** The patterns of more mailers are recognized by
|
||||||
`mh-extract-rejected-mail'.
|
`mh-extract-rejected-mail'.
|
||||||
|
|
||||||
`mh-insert-prefix-string' no longer wraps the call to the
|
*** `mh-insert-prefix-string' no longer wraps the call to the
|
||||||
`mail-citation-hook' function in a `save-excursion' so the hook writer
|
`mail-citation-hook' function in a `save-excursion' so the hook writer
|
||||||
can choose whether to leave point at the beginning or the end of the
|
can choose whether to leave point at the beginning or the end of the
|
||||||
yanked text.
|
yanked text.
|
||||||
|
|
||||||
`mh-write-msg-to-file': The prompt now refers to "message" or
|
*** `mh-write-msg-to-file': The prompt now refers to "message" or
|
||||||
"message body" depending on which will be written. (This is controlled
|
"message body" depending on which will be written. (This is controlled
|
||||||
by a prefix argument.) The file defaults to the last-used file instead
|
by a prefix argument.) The file defaults to the last-used file instead
|
||||||
of supplying only the directory name.
|
of supplying only the directory name.
|
||||||
|
|
||||||
mh-e uses message ranges when running MH commands. Thus "rmm 1 2 3
|
*** mh-e uses message ranges when running MH commands. Thus "rmm 1 2 3
|
||||||
4 6" is now "rmm 1-4 6". This change makes it less likely to overflow
|
4 6" is now "rmm 1-4 6". This change makes it less likely to overflow
|
||||||
system argument list limits, and it might be faster, too.
|
system argument list limits, and it might be faster, too.
|
||||||
|
|
||||||
Bug Fixes to mh-e
|
|
||||||
=================
|
|
||||||
|
|
||||||
mh-e's idea of the unseen sequence now stays in sync with MH's
|
** Bug Fixes to mh-e 5.0
|
||||||
|
|
||||||
|
*** mh-e's idea of the unseen sequence now stays in sync with MH's
|
||||||
better.
|
better.
|
||||||
|
|
||||||
Functions that are supposed to find fields in the message header no
|
*** Functions that are supposed to find fields in the message header
|
||||||
longer look in the message body.
|
no longer look in the message body.
|
||||||
|
|
||||||
mh-e would sometimes fail to remove the "%" from a scan line when the
|
*** mh-e would sometimes fail to remove the "%" from a scan line when
|
||||||
message was removed from a sequence if the message was also in the
|
the message was removed from a sequence if the message was also in the
|
||||||
Previous sequence.
|
Previous sequence.
|
||||||
|
|
||||||
The variable `mh-inc-prog' is now correctly used in all places.
|
*** The variable `mh-inc-prog' is now correctly used in all places.
|
||||||
|
|
||||||
`mh-pipe-msg' runs the process in the correct directory.
|
*** `mh-pipe-msg' runs the process in the correct directory.
|
||||||
|
|
||||||
A partially scanned folder will no longer lose the "/select"
|
*** A partially scanned folder will no longer lose the "/select"
|
||||||
annotation when you execute marked deletes and refiles with `x'.
|
annotation when you execute marked deletes and refiles with `x'.
|
||||||
|
|
||||||
|
|
||||||
|
* Changes to mh-e 4.0
|
||||||
|
|
||||||
|
This file is automatically generated from news-mh-e.txinfo. Do not edit.
|
||||||
|
|
||||||
|
[MH-E-ONEWS has been incorporated here and removed. news-mh-e.txinfo
|
||||||
|
is no longer available.]
|
||||||
|
|
||||||
|
Note: there are many internal changes to mh-e in this release. If you
|
||||||
|
have the previous version loaded into your Emacs, you will probably not
|
||||||
|
be able to load this version on top of it.
|
||||||
|
|
||||||
|
** New Features in mh-e 4.0
|
||||||
|
|
||||||
|
*** Background folder collection. The first time you are prompted for
|
||||||
|
a folder, you must wait while mh-e collects the names of all existing
|
||||||
|
folders. Now however, if you abort, collecting will continue in the
|
||||||
|
background, and you can do something else in Emacs until the
|
||||||
|
collection completes. Normally, mh-e will begin collecting folders
|
||||||
|
names in the background when you first load it; you can disable this
|
||||||
|
feature by setting `mh-auto-folder-collect' to nil.
|
||||||
|
|
||||||
|
*** There is support for composing MIME messages using the `mhn'
|
||||||
|
program from MH 6.8. See the documentation string for mh-edit-mhn.
|
||||||
|
(While composing a letter, type `C-h k C-c C-e'.) See also mhn(1).
|
||||||
|
There is as yet no support for reading MIME messages.
|
||||||
|
|
||||||
|
*** `mh-show', typically on `.', repositions to the start of the
|
||||||
|
message if the message is already visible. It used to do nothing in
|
||||||
|
this case.
|
||||||
|
|
||||||
|
*** The function `mh-unshar-msg' is renamed `mh-store-msg'. It now
|
||||||
|
does uudecoding, too. Someday it should do MIME. It remembers the last
|
||||||
|
directory you used and offers it as the default for next time.
|
||||||
|
|
||||||
|
*** New function `mh-header-display', on `,', displays the message
|
||||||
|
with all headers, including those normally not displayed. Type `.' to
|
||||||
|
display the message normally again.
|
||||||
|
|
||||||
|
*** New function `mh-list-sequences' lists the sequences in use in the
|
||||||
|
current folder.
|
||||||
|
|
||||||
|
*** New function `mh-version' displays version information about MH
|
||||||
|
and mh-e. Please use the output in bug reports.
|
||||||
|
|
||||||
|
*** `mh-quit' now burys the folder buffer and show buffer.
|
||||||
|
|
||||||
|
|
||||||
|
** New hooks and customization variables in mh-e 4.0
|
||||||
|
|
||||||
|
*** `mh-pick-mode-hook': new hook called by new mode `mh-pick-mode'.
|
||||||
|
The pick buffer didn't used to have its own mode. Another advantage of
|
||||||
|
`mh-pick-mode' is that `C-h m' works in the pick buffer.
|
||||||
|
|
||||||
|
*** `mail-citation-hook': new variable for supercite.
|
||||||
|
|
||||||
|
*** `mh-refile-msg-hook': new hook called by `mh-refile-msg' (and
|
||||||
|
`mh-refile-or-write-again' when refiling).
|
||||||
|
|
||||||
|
*** `mh-msg-folder-hook': new hook used by `mh-refile-msg' and
|
||||||
|
`mh-to-fcc' to provide a default folder for user prompt.
|
||||||
|
|
||||||
|
*** `mh-show-hook': new hook called by `mh-show'.
|
||||||
|
|
||||||
|
*** `mh-delete-msg-hook': new hook called by `mh-delete-msg'.
|
||||||
|
|
||||||
|
*** `mh-show-mode-hook': new hook called by new mode `mh-show-mode'
|
||||||
|
for `show-' buffers.
|
||||||
|
|
||||||
|
*** `mh-comp-formfile': new variable so can customize `components'
|
||||||
|
file.
|
||||||
|
|
||||||
|
*** `mh-sortm-args': new variable, a list of extra arguments to be
|
||||||
|
passed to sortm by `mh-sort-folder'. Give an argument to
|
||||||
|
`mh-sort-folder' to suppress this behavior.
|
||||||
|
|
||||||
|
*** `mh-send-prog': new variable so can customize name of `send'
|
||||||
|
program in case of name conflicts.
|
||||||
|
|
||||||
|
*** `mh-scan-prog': new variable so can customize name of `scan'
|
||||||
|
program to generate custom effects.
|
||||||
|
|
||||||
|
*** `mh-inc-prog': new variable so can customize name of `inc' program
|
||||||
|
to do fancy management of incoming messages.
|
||||||
|
|
||||||
|
*** `mh-forwarded-letter-subject': new function used by `mh-forward'
|
||||||
|
to compute the Subject line of the new message. It is a small function
|
||||||
|
which can be replaced by the user for customization. Uses the new
|
||||||
|
variable `mh-forward-subject-format', which allows some simple
|
||||||
|
customizations without rewriting even `mh-forwarded-letter-subject'.
|
||||||
|
|
||||||
|
*** `mh-new-draft-cleaned-headers': new variable, header lines removed
|
||||||
|
by `mh-edit-again' and `mh-extract-rejected-mail' before offering a
|
||||||
|
message as a new draft.
|
||||||
|
|
||||||
|
*** `mh-signature-file-name': new variable used by
|
||||||
|
`mh-insert-signature' to so can customize name of the file to insert.
|
||||||
|
|
||||||
|
*** `mh-read-address': new function called to read all To: and Cc:
|
||||||
|
addresses.
|
||||||
|
|
||||||
|
*** `mh-msg-folder-hook': new hook used by `mh-refile-msg' and
|
||||||
|
`mh-to-fcc' to provide a default folder for user prompt.
|
||||||
|
|
||||||
|
|
||||||
|
** Key binding changes in mh-e 4.0
|
||||||
|
|
||||||
|
*** `,' runs new function `mh-header-display'. It is like `.' but it
|
||||||
|
displays *all* the headers.
|
||||||
|
|
||||||
|
*** `M-#' runs the new function `mh-delete-seq'. One used to have to
|
||||||
|
type `C-u M-%' to delete a sequence.
|
||||||
|
|
||||||
|
*** `<' no longer does `mh-first-msg', but `M->' now does
|
||||||
|
`mh-last-msg'. This allows first and last to be consistent (`>' was
|
||||||
|
taken) and is more likely to be discovered by chance anyway.
|
||||||
|
|
||||||
|
*** `M-d' runs `mh-redistribute', `r' runs `mh-reply' (on the theory
|
||||||
|
that the more commonly used function should be easier to type, and the
|
||||||
|
obscure action of redistributing can be harder to type).
|
||||||
|
|
||||||
|
*** `M-o' changed to `C-o' (`mh-write-msg-to-file'). It was
|
||||||
|
interfering with arrow keys for some people.
|
||||||
|
|
||||||
|
*** `M-n' now runs `mh-store-msg' (formerly `mh-unshar-msg').
|
||||||
|
|
||||||
|
*** `b' no longer runs `mh-quit'; use `q' instead. `b' may be used in
|
||||||
|
a future version for something else.
|
||||||
|
|
||||||
|
|
||||||
|
** Minor improvements to mh-e 4.0
|
||||||
|
|
||||||
|
*** The mh-e code is now divided into multiple Emacs Lisp files, so it
|
||||||
|
starts up faster because Emacs doesn't have to load all of it at once.
|
||||||
|
(This change also makes it easier for the maintainer to manage
|
||||||
|
things.)
|
||||||
|
|
||||||
|
*** When searching for the directory containing the MH programs,
|
||||||
|
search the user's PATH in addition to the built-in directories, to
|
||||||
|
increase the chance of finding the MH programs.
|
||||||
|
|
||||||
|
*** The subject for a forwarded message no longer has ugly square
|
||||||
|
brackets around it.
|
||||||
|
|
||||||
|
*** The name of the folder is no longer appears twice in the show
|
||||||
|
buffer mode line.
|
||||||
|
|
||||||
|
*** When typing a folder name in the minibuffer, parent folders
|
||||||
|
complete to the trailing slash (/), for easier typing of subfolders.
|
||||||
|
|
||||||
|
*** The folder buffer mode name changed from `mh-e scan' or `mh-e
|
||||||
|
show' to `MH-Folder', which makes the hook name easier to guess. Added
|
||||||
|
`mh-showing' to `minor-mode-alist' so there is still an indication in
|
||||||
|
the mode line of whether messages will be shown automatically.
|
||||||
|
|
||||||
|
*** `mh-rename-seq' does completion on the old sequence name.
|
||||||
|
|
||||||
|
*** If called by a user who has never used MH on this system before,
|
||||||
|
mh-e runs the MH program `install-mh' to get them set up.
|
||||||
|
|
||||||
|
*** Undo history for previous messages is not kept to avoid wasting
|
||||||
|
memory.
|
||||||
|
|
||||||
|
*** The internal temp buffer used by mh-e has `buffer-offer-save'
|
||||||
|
explicitly nil. This change benefits people who change the
|
||||||
|
`buffer-offer-save' default.
|
||||||
|
|
||||||
|
|
||||||
|
** Bug fixes to mh-e 4.0
|
||||||
|
|
||||||
|
*** `mh-to-field': don't bomb if no To: field.
|
||||||
|
|
||||||
|
*** `mh-get-new-mail': restore annotations, e.g., cur, even if no new
|
||||||
|
mail.
|
||||||
|
|
||||||
|
*** `mh-rename-seq': verify that the new seq name was accepted by
|
||||||
|
`mark' before updating state.
|
||||||
|
|
||||||
|
*** `mh-internal-seq': the Previous sequence is not notated, since it
|
||||||
|
would notate everything scanned.
|
||||||
|
|
||||||
|
*** `mh-read-draft': don't call `find-file-noselect' so an
|
||||||
|
`auto-mode-alist' doesn't trigger `mh-letter-mode-hook' twice. Faster,
|
||||||
|
too.
|
||||||
|
|
||||||
|
*** `mh-show': If user moves onto a message that doesn't exist, don't
|
||||||
|
leave the cursor in the show pane.
|
||||||
|
|
||||||
|
*** `mh-delete-scan-msgs': use `equal', not `=', on the result of
|
||||||
|
`mh-get-msg-num', since it may be nil.
|
||||||
|
|
||||||
|
*** `mh-get-field': do anchored search so searching for `reply-to:'
|
||||||
|
doesn't find `in-reply-to:'.
|
||||||
|
|
||||||
|
*** `mh-widen': do nothing if not narrowed.
|
||||||
|
|
||||||
|
*** `mh-clean-message-header': find end of headers even if no body.
|
||||||
|
|
||||||
|
|
||||||
|
Local variables:
|
||||||
|
mode: outline
|
||||||
|
paragraph-separate: "[ ]*$"
|
||||||
|
end:
|
||||||
|
|
|
||||||
194
etc/MH-E-ONEWS
194
etc/MH-E-ONEWS
|
|
@ -1,194 +0,0 @@
|
||||||
This file is automatically generated from news-mh-e.txinfo. Do not edit.
|
|
||||||
|
|
||||||
User-visible changes to mh-e in version 4.0 from 3.8
|
|
||||||
|
|
||||||
Note: there are many internal changes to mh-e in this release. If you
|
|
||||||
have the previous version loaded into your Emacs, you will probably not
|
|
||||||
be able to load this version on top of it.
|
|
||||||
|
|
||||||
|
|
||||||
New Features in mh-e
|
|
||||||
====================
|
|
||||||
|
|
||||||
Background folder collection. The first time you are prompted for a
|
|
||||||
folder, you must wait while mh-e collects the names of all existing
|
|
||||||
folders. Now however, if you abort, collecting will continue in the
|
|
||||||
background, and you can do something else in Emacs until the collection
|
|
||||||
completes. Normally, mh-e will begin collecting folders names in the
|
|
||||||
background when you first load it; you can disable this feature by
|
|
||||||
setting `mh-auto-folder-collect' to nil.
|
|
||||||
|
|
||||||
There is support for composing MIME messages using the `mhn' program
|
|
||||||
from MH 6.8. See the documentation string for mh-edit-mhn. (While
|
|
||||||
composing a letter, type `C-h k C-c C-e'.) See also mhn(1). There is
|
|
||||||
as yet no support for reading MIME messages.
|
|
||||||
|
|
||||||
`mh-show', typically on `.', repositions to the start of the message if
|
|
||||||
the message is already visible. It used to do nothing in this case.
|
|
||||||
|
|
||||||
The function `mh-unshar-msg' is renamed `mh-store-msg'. It now does
|
|
||||||
uudecoding, too. Someday it should do MIME. It remembers the last
|
|
||||||
directory you used and offers it as the default for next time.
|
|
||||||
|
|
||||||
New function `mh-header-display', on `,', displays the message with all
|
|
||||||
headers, including those normally not displayed. Type `.' to display
|
|
||||||
the message normally again.
|
|
||||||
|
|
||||||
New function `mh-list-sequences' lists the sequences in use in the
|
|
||||||
current folder.
|
|
||||||
|
|
||||||
New function `mh-version' displays version information about MH and
|
|
||||||
mh-e. Please use the output in bug reports.
|
|
||||||
|
|
||||||
`mh-quit' now burys the folder buffer and show buffer.
|
|
||||||
|
|
||||||
|
|
||||||
New mh-e hooks and customization variables
|
|
||||||
==========================================
|
|
||||||
|
|
||||||
`mh-pick-mode-hook': new hook called by new mode `mh-pick-mode'. The
|
|
||||||
pick buffer didn't used to have its own mode. Another advantage of
|
|
||||||
`mh-pick-mode' is that `C-h m' works in the pick buffer.
|
|
||||||
|
|
||||||
`mail-citation-hook': new variable for supercite.
|
|
||||||
|
|
||||||
`mh-refile-msg-hook': new hook called by `mh-refile-msg' (and
|
|
||||||
`mh-refile-or-write-again' when refiling).
|
|
||||||
|
|
||||||
`mh-msg-folder-hook': new hook used by `mh-refile-msg' and `mh-to-fcc'
|
|
||||||
to provide a default folder for user prompt.
|
|
||||||
|
|
||||||
`mh-show-hook': new hook called by `mh-show'.
|
|
||||||
|
|
||||||
`mh-delete-msg-hook': new hook called by `mh-delete-msg'.
|
|
||||||
|
|
||||||
`mh-show-mode-hook': new hook called by new mode `mh-show-mode' for
|
|
||||||
`show-' buffers.
|
|
||||||
|
|
||||||
`mh-comp-formfile': new variable so can customize `components' file.
|
|
||||||
|
|
||||||
`mh-sortm-args': new variable, a list of extra arguments to be passed to
|
|
||||||
sortm by `mh-sort-folder'. Give an argument to `mh-sort-folder' to
|
|
||||||
suppress this behavior.
|
|
||||||
|
|
||||||
`mh-send-prog': new variable so can customize name of `send' program in
|
|
||||||
case of name conflicts.
|
|
||||||
|
|
||||||
`mh-scan-prog': new variable so can customize name of `scan' program to
|
|
||||||
generate custom effects.
|
|
||||||
|
|
||||||
`mh-inc-prog': new variable so can customize name of `inc' program to do
|
|
||||||
fancy management of incoming messages.
|
|
||||||
|
|
||||||
`mh-forwarded-letter-subject': new function used by `mh-forward' to
|
|
||||||
compute the Subject line of the new message. It is a small function
|
|
||||||
which can be replaced by the user for customization. Uses the new
|
|
||||||
variable `mh-forward-subject-format', which allows some simple
|
|
||||||
customizations without rewriting even `mh-forwarded-letter-subject'.
|
|
||||||
|
|
||||||
`mh-new-draft-cleaned-headers': new variable, header lines removed by
|
|
||||||
`mh-edit-again' and `mh-extract-rejected-mail' before offering a message
|
|
||||||
as a new draft.
|
|
||||||
|
|
||||||
`mh-signature-file-name': new variable used by `mh-insert-signature' to
|
|
||||||
so can customize name of the file to insert.
|
|
||||||
|
|
||||||
`mh-read-address': new function called to read all To: and Cc:
|
|
||||||
addresses.
|
|
||||||
|
|
||||||
`mh-msg-folder-hook': new hook used by `mh-refile-msg' and `mh-to-fcc'
|
|
||||||
to provide a default folder for user prompt.
|
|
||||||
|
|
||||||
|
|
||||||
Key binding changes in mh-e
|
|
||||||
===========================
|
|
||||||
|
|
||||||
`,' runs new function `mh-header-display'. It is like `.' but it
|
|
||||||
displays *all* the headers.
|
|
||||||
|
|
||||||
`M-#' runs the new function `mh-delete-seq'. One used to have to type
|
|
||||||
`C-u M-%' to delete a sequence.
|
|
||||||
|
|
||||||
`<' no longer does `mh-first-msg', but `M->' now does `mh-last-msg'.
|
|
||||||
This allows first and last to be consistent (`>' was taken) and is more
|
|
||||||
likely to be discovered by chance anyway.
|
|
||||||
|
|
||||||
`M-d' runs `mh-redistribute', `r' runs `mh-reply' (on the theory that
|
|
||||||
the more commonly used function should be easier to type, and the
|
|
||||||
obscure action of redistributing can be harder to type).
|
|
||||||
|
|
||||||
`M-o' changed to `C-o' (`mh-write-msg-to-file'). It was interfering
|
|
||||||
with arrow keys for some people.
|
|
||||||
|
|
||||||
`M-n' now runs `mh-store-msg' (formerly `mh-unshar-msg').
|
|
||||||
|
|
||||||
`b' no longer runs `mh-quit'; use `q' instead. `b' may be used in a
|
|
||||||
future version for something else.
|
|
||||||
|
|
||||||
|
|
||||||
Minor improvements to mh-e
|
|
||||||
==========================
|
|
||||||
|
|
||||||
The mh-e code is now divided into multiple Emacs Lisp files, so it
|
|
||||||
starts up faster because Emacs doesn't have to load all of it at once.
|
|
||||||
(This change also makes it easier for the maintainer to manage things.)
|
|
||||||
|
|
||||||
When searching for the directory containing the MH programs, search the
|
|
||||||
user's PATH in addition to the built-in directories, to increase the
|
|
||||||
chance of finding the MH programs.
|
|
||||||
|
|
||||||
The subject for a forwarded message no longer has ugly square brackets
|
|
||||||
around it.
|
|
||||||
|
|
||||||
The name of the folder is no longer appears twice in the show buffer
|
|
||||||
mode line.
|
|
||||||
|
|
||||||
When typing a folder name in the minibuffer, parent folders complete to
|
|
||||||
the trailing slash (/), for easier typing of subfolders.
|
|
||||||
|
|
||||||
The folder buffer mode name changed from `mh-e scan' or `mh-e show' to
|
|
||||||
`MH-Folder', which makes the hook name easier to guess. Added
|
|
||||||
`mh-showing' to `minor-mode-alist' so there is still an indication in
|
|
||||||
the mode line of whether messages will be shown automatically.
|
|
||||||
|
|
||||||
`mh-rename-seq' does completion on the old sequence name.
|
|
||||||
|
|
||||||
If called by a user who has never used MH on this system before, mh-e
|
|
||||||
runs the MH program `install-mh' to get them set up.
|
|
||||||
|
|
||||||
Undo history for previous messages is not kept to avoid wasting memory.
|
|
||||||
|
|
||||||
The internal temp buffer used by mh-e has `buffer-offer-save' explicitly
|
|
||||||
nil. This change benefits people who change the `buffer-offer-save'
|
|
||||||
default.
|
|
||||||
|
|
||||||
|
|
||||||
Bug fixes to mh-e
|
|
||||||
=================
|
|
||||||
|
|
||||||
`mh-to-field': don't bomb if no To: field.
|
|
||||||
|
|
||||||
`mh-get-new-mail': restore annotations, e.g., cur, even if no new mail.
|
|
||||||
|
|
||||||
`mh-rename-seq': verify that the new seq name was accepted by `mark'
|
|
||||||
before updating state.
|
|
||||||
|
|
||||||
`mh-internal-seq': the Previous sequence is not notated, since it would
|
|
||||||
notate everything scanned.
|
|
||||||
|
|
||||||
`mh-read-draft': don't call `find-file-noselect' so an `auto-mode-alist'
|
|
||||||
doesn't trigger `mh-letter-mode-hook' twice. Faster, too.
|
|
||||||
|
|
||||||
`mh-show': If user moves onto a message that doesn't exist, don't leave
|
|
||||||
the cursor in the show pane.
|
|
||||||
|
|
||||||
`mh-delete-scan-msgs': use `equal', not `=', on the result of
|
|
||||||
`mh-get-msg-num', since it may be nil.
|
|
||||||
|
|
||||||
`mh-get-field': do anchored search so searching for `reply-to:' doesn't
|
|
||||||
find `in-reply-to:'.
|
|
||||||
|
|
||||||
`mh-widen': do nothing if not narrowed.
|
|
||||||
|
|
||||||
`mh-clean-message-header': find end of headers even if no body.
|
|
||||||
|
|
||||||
5
etc/NEWS
5
etc/NEWS
|
|
@ -59,6 +59,11 @@ See the files mac/README and mac/INSTALL for build instructions.
|
||||||
|
|
||||||
* Changes in Emacs 21.4
|
* Changes in Emacs 21.4
|
||||||
|
|
||||||
|
** MH-E changes.
|
||||||
|
|
||||||
|
Upgraded to mh-e version 6.1.1. There have been major changes since
|
||||||
|
version 5.0.2; see MH-E-NEWS for details.
|
||||||
|
|
||||||
+++
|
+++
|
||||||
** The `emacsclient' understand the options `--eval' and `--display'
|
** The `emacsclient' understand the options `--eval' and `--display'
|
||||||
which tell Emacs resp. to evaluate the given elisp expressions and
|
which tell Emacs resp. to evaluate the given elisp expressions and
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,19 @@
|
||||||
|
2002-10-01 Bill Wohler <wohler@newt.com>
|
||||||
|
|
||||||
|
* mail/mh-comp.el, mail/mh-e.el, mail/mh-funcs.el,
|
||||||
|
mail/mh-mime.el, mail/mh-pick.el, mail/mh-seq.el,
|
||||||
|
mail/mh-utils.el, mail/mh-xemacs-compat.el, mail/reply2.pbm,
|
||||||
|
mail/reply2.xpm, toolbar/execute.pbm, toolbar/execute.xpm,
|
||||||
|
toolbar/page-down.pbm, toolbar/page-down.xpm, toolbar/refile.pbm,
|
||||||
|
toolbar/refile.xpm, toolbar/repack.pbm, toolbar/repack.xpm,
|
||||||
|
toolbar/rescan.pbm, toolbar/rescan.xpm, toolbar/show.pbm,
|
||||||
|
toolbar/show.xpm, toolbar/widen.pbm, toolbar/widen.xpm: Upgraded
|
||||||
|
to mh-e version 6.1.1. Full ChangeLog available in
|
||||||
|
http://prdownloads.sourceforge.net/mh-e/mh-e-6.1.tgz?download .
|
||||||
|
There were no user-visible changes in 6.1.1 from 6.1--only the
|
||||||
|
section of the Makefile that installs the files into Emacs was
|
||||||
|
changed.
|
||||||
|
|
||||||
2002-10-01 Juanma Barranquero <lektu@terra.es>
|
2002-10-01 Juanma Barranquero <lektu@terra.es>
|
||||||
|
|
||||||
* eshell/esh-module.el (eshell-load-defgroups): Add "no-byte-compile: t"
|
* eshell/esh-module.el (eshell-load-defgroups): Add "no-byte-compile: t"
|
||||||
|
|
|
||||||
|
|
@ -1,11 +1,11 @@
|
||||||
;;; mh-comp.el --- mh-e functions for composing messages
|
;;; mh-comp.el --- mh-e functions for composing messages
|
||||||
;; Time-stamp: <2001-12-20 18:55:07 pavel>
|
|
||||||
|
|
||||||
;; Copyright (C) 1993,1995,1997,2000 Free Software Foundation, Inc.
|
;; Copyright (C) 1993,1995,1997,2000,2001,2002 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Bill Wohler <wohler@newt.com>
|
||||||
;; Maintainer: Bill Wohler <wohler@newt.com>
|
;; Maintainer: Bill Wohler <wohler@newt.com>
|
||||||
;; Keywords: mail
|
;; Keywords: mail
|
||||||
;; Bug-reports: include `M-x mh-version' output in any correspondence
|
;; See: mh-e.el
|
||||||
|
|
||||||
;; This file is part of GNU Emacs.
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
|
@ -30,17 +30,69 @@
|
||||||
|
|
||||||
;;; Change Log:
|
;;; Change Log:
|
||||||
|
|
||||||
;; $Id: mh-comp.el,v 1.22 2001/07/15 19:53:53 pj Exp $
|
;; $Id: mh-comp.el,v 1.56 2002/04/07 19:20:56 wohler Exp $
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(provide 'mh-comp)
|
(provide 'mh-comp)
|
||||||
|
(require 'mh-e)
|
||||||
(require 'mh-utils)
|
(require 'mh-utils)
|
||||||
|
(require 'gnus-util)
|
||||||
|
(require 'easymenu)
|
||||||
|
|
||||||
|
;;; autoloads from mh-mime
|
||||||
|
|
||||||
|
(autoload 'mh-mhn-compose-insertion "mh-mime"
|
||||||
|
"Add a directive to insert a MIME message part from a file.
|
||||||
|
This is the typical way to insert non-text parts in a message.
|
||||||
|
See also \\[mh-edit-mhn]." t)
|
||||||
|
|
||||||
|
(autoload 'mh-mhn-compose-anon-ftp "mh-mime"
|
||||||
|
"Add a directive for a MIME anonymous ftp external body part.
|
||||||
|
This directive tells MH to include a reference to a
|
||||||
|
message/external-body part retrievable by anonymous FTP.
|
||||||
|
See also \\[mh-edit-mhn]." t)
|
||||||
|
|
||||||
|
(autoload 'mh-mhn-compose-external-compressed-tar "mh-mime"
|
||||||
|
"Add a directive to include a MIME reference to a compressed tar file.
|
||||||
|
The file should be available via anonymous ftp. This directive
|
||||||
|
tells MH to include a reference to a message/external-body part.
|
||||||
|
See also \\[mh-edit-mhn]." t)
|
||||||
|
|
||||||
|
(autoload 'mh-mhn-compose-forw "mh-mime"
|
||||||
|
"Add a forw directive to this message, to forward a message with MIME.
|
||||||
|
This directive tells MH to include another message in this one.
|
||||||
|
See also \\[mh-edit-mhn]." t)
|
||||||
|
|
||||||
|
(autoload 'mh-edit-mhn "mh-mime"
|
||||||
|
"Format the current draft for MIME, expanding any mhn directives.
|
||||||
|
Process the current draft with the mhn program, which,
|
||||||
|
using directives already inserted in the draft, fills in
|
||||||
|
all the MIME components and header fields.
|
||||||
|
This step should be done last just before sending the message.
|
||||||
|
The mhn program is part of MH version 6.8 or later.
|
||||||
|
The \\[mh-revert-mhn-edit] command undoes this command.
|
||||||
|
For assistance with creating mhn directives to insert
|
||||||
|
various types of components in a message, see
|
||||||
|
\\[mh-mhn-compose-insertion] (generic insertion from a file),
|
||||||
|
\\[mh-mhn-compose-anon-ftp] (external reference to file via anonymous ftp),
|
||||||
|
\\[mh-mhn-compose-external-compressed-tar] \
|
||||||
|
\(reference to compressed tar file via anonymous ftp), and
|
||||||
|
\\[mh-mhn-compose-forw] (forward message)." t)
|
||||||
|
|
||||||
|
(autoload 'mh-revert-mhn-edit "mh-mime"
|
||||||
|
"Undoes the effect of \\[mh-edit-mhn] by reverting to the backup file.
|
||||||
|
Optional non-nil argument means don't ask for confirmation." t)
|
||||||
|
|
||||||
|
;;; Other Autoloads.
|
||||||
|
|
||||||
|
(autoload 'Info-goto-node "info")
|
||||||
|
(autoload 'mail-mode-fill-paragraph "sendmail")
|
||||||
|
|
||||||
;;; Site customization (see also mh-utils.el):
|
;;; Site customization (see also mh-utils.el):
|
||||||
|
|
||||||
(defgroup mh-compose nil
|
(defgroup mh-compose nil
|
||||||
"Mh-e functions for composing messages"
|
"Mh-e functions for composing messages."
|
||||||
:prefix "mh-"
|
:prefix "mh-"
|
||||||
:group 'mh)
|
:group 'mh)
|
||||||
|
|
||||||
|
|
@ -54,6 +106,9 @@ Some sites need to change this because of a name conflict.")
|
||||||
This is the case only when `send' is compiled with the BERK option.
|
This is the case only when `send' is compiled with the BERK option.
|
||||||
If MH will not allow you to redist a previously redist'd msg, set to nil.")
|
If MH will not allow you to redist a previously redist'd msg, set to nil.")
|
||||||
|
|
||||||
|
(defvar mh-redist-background nil
|
||||||
|
"If non-nil redist will be done in background like send.
|
||||||
|
This allows transaction log to be visible if -watch, -verbose or -snoop are used.")
|
||||||
|
|
||||||
(defvar mh-note-repl "-"
|
(defvar mh-note-repl "-"
|
||||||
"String whose first character is used to notate replied to messages.")
|
"String whose first character is used to notate replied to messages.")
|
||||||
|
|
@ -85,12 +140,18 @@ with `mh-ins-buf-prefix' prefixed to each line.
|
||||||
See also the variable `mh-yank-from-start-of-msg', which controls how
|
See also the variable `mh-yank-from-start-of-msg', which controls how
|
||||||
much of the message passed to the hook.")
|
much of the message passed to the hook.")
|
||||||
|
|
||||||
;;; Copied from sendmail.el for Hyperbole
|
|
||||||
(defvar mail-header-separator "--------"
|
|
||||||
"*Line used by MH to separate headers from text in messages being composed.")
|
|
||||||
|
|
||||||
;;; Personal preferences:
|
;;; Personal preferences:
|
||||||
|
|
||||||
|
(defcustom mh-insert-x-mailer-p t
|
||||||
|
"*If t, append an X-Mailer field to the header."
|
||||||
|
:type 'boolean
|
||||||
|
:group 'mh-compose)
|
||||||
|
|
||||||
|
(defvar mh-x-mailer-string nil
|
||||||
|
"*String containing the contents of the X-Mailer header field.
|
||||||
|
If nil, this variable is initialized to show the version of mh-e, Emacs, and
|
||||||
|
MH the first time a message is composed.")
|
||||||
|
|
||||||
(defcustom mh-delete-yanked-msg-window nil
|
(defcustom mh-delete-yanked-msg-window nil
|
||||||
"*Controls window display when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
|
"*Controls window display when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
|
||||||
If non-nil, yanking the current message into a draft letter deletes any
|
If non-nil, yanking the current message into a draft letter deletes any
|
||||||
|
|
@ -152,11 +213,30 @@ is searched for first in the user's MH directory, then in the
|
||||||
system MH lib directory.")
|
system MH lib directory.")
|
||||||
|
|
||||||
(defvar mh-repl-group-formfile "replgroupcomps"
|
(defvar mh-repl-group-formfile "replgroupcomps"
|
||||||
"Name of file to be used as a skeleton for replying to the sender
|
"Name of file to be used as a skeleton for replying to the sender and all recipients of a message.
|
||||||
and all recipients of a messages. Only used if mh-nmh-p is non-nil.
|
Only used if `mh-nmh-p' is non-nil. Default is \"replgroupcomps\". If not an
|
||||||
Default is \"replgroupcomps\". If not an absolute file name, the file
|
absolute file name, the file is searched for first in the user's MH directory,
|
||||||
is searched for first in the user's MH directory, then in the system
|
then in the system MH lib directory.")
|
||||||
MH lib directory.")
|
|
||||||
|
(defcustom mh-reply-show-message-p t
|
||||||
|
"*Whether the show buffer is displayed using \\<mh-letter-mode-map>\\[mh-reply].
|
||||||
|
|
||||||
|
The setting of this variable determines whether the MH `show-buffer' is
|
||||||
|
displayed with the current message when using `mh-reply' without a prefix
|
||||||
|
argument. Set it to nil if you already include the message automatically
|
||||||
|
in your draft using
|
||||||
|
repl: -filter repl.filter
|
||||||
|
in your ~/.mh_profile file."
|
||||||
|
:type 'boolean
|
||||||
|
:group 'mh-compose)
|
||||||
|
|
||||||
|
(defcustom mh-letter-fill-column 72
|
||||||
|
"*Fill column to use in `mh-letter-mode'.
|
||||||
|
This is usually less than in other text modes because email messages get
|
||||||
|
quoted by some prefix (sometimes many times) when they are replied-to,
|
||||||
|
and it's best to avoid quoted lines that span more than 80 columns."
|
||||||
|
:type 'integer
|
||||||
|
:group 'mh-compose)
|
||||||
|
|
||||||
;;; Hooks:
|
;;; Hooks:
|
||||||
|
|
||||||
|
|
@ -176,18 +256,17 @@ It is passed three arguments: TO recipients, SUBJECT, and CC recipients."
|
||||||
:type 'hook
|
:type 'hook
|
||||||
:group 'mh-compose)
|
:group 'mh-compose)
|
||||||
|
|
||||||
|
|
||||||
(defvar mh-rejected-letter-start
|
(defvar mh-rejected-letter-start
|
||||||
(concat "^ ----- Unsent message follows -----$" ;from sendmail V5
|
(regexp-opt
|
||||||
"\\|^ ----- Original message follows -----$" ;from sendmail V8
|
'("^Content-Type: message/rfc822$" ;MIME MDN
|
||||||
"\\|^------- Unsent Draft$" ;from MH itself
|
"^ ----- Unsent message follows -----$" ;from sendmail V5
|
||||||
"\\|^---------- Original Message ----------$" ;from zmailer
|
"^ ----- Original message follows -----$" ;from sendmail V8
|
||||||
"\\|^ --- The unsent message follows ---$" ;from AIX mail system
|
"^------- Unsent Draft$" ;from MH itself
|
||||||
"\\|^ Your message follows:$" ;from MMDF-II
|
"^---------- Original Message ----------$" ;from zmailer
|
||||||
"\\|^Content-Description: Returned Content$" ;1993 KJ sendmail
|
"^ --- The unsent message follows ---$" ;from AIX mail system
|
||||||
)
|
"^ Your message follows:$" ;from MMDF-II
|
||||||
"Regexp specifying the beginning of the wrapper around a returned letter.
|
"^Content-Description: Returned Content$" ;1993 KJ sendmail
|
||||||
This wrapper is generated by the mail system when rejecting a letter.")
|
)))
|
||||||
|
|
||||||
(defvar mh-new-draft-cleaned-headers
|
(defvar mh-new-draft-cleaned-headers
|
||||||
"^Date:\\|^Received:\\|^Message-Id:\\|^From:\\|^Sender:\\|^Errors-To:\\|^Delivery-Date:\\|^Return-Path:"
|
"^Date:\\|^Received:\\|^Message-Id:\\|^From:\\|^Sender:\\|^Errors-To:\\|^Delivery-Date:\\|^Return-Path:"
|
||||||
|
|
@ -197,7 +276,7 @@ Used by the \\<mh-folder-mode-map>`\\[mh-edit-again]' and `\\[mh-extract-rejecte
|
||||||
(defvar mh-to-field-choices '(("t" . "To:") ("s" . "Subject:") ("c" . "Cc:")
|
(defvar mh-to-field-choices '(("t" . "To:") ("s" . "Subject:") ("c" . "Cc:")
|
||||||
("b" . "Bcc:") ("f" . "Fcc:") ("r" . "From:")
|
("b" . "Bcc:") ("f" . "Fcc:") ("r" . "From:")
|
||||||
("d" . "Dcc:"))
|
("d" . "Dcc:"))
|
||||||
"Alist of (final-character . field-name) choices for mh-to-field.")
|
"Alist of (final-character . field-name) choices for `mh-to-field'.")
|
||||||
|
|
||||||
(defvar mh-letter-mode-map (copy-keymap text-mode-map)
|
(defvar mh-letter-mode-map (copy-keymap text-mode-map)
|
||||||
"Keymap for composing mail.")
|
"Keymap for composing mail.")
|
||||||
|
|
@ -234,16 +313,41 @@ This function is an entry point to mh-e, the Emacs front end
|
||||||
to the MH mail system. This function does not prompt the user
|
to the MH mail system. This function does not prompt the user
|
||||||
for any header fields, and thus is suitable for use by programs
|
for any header fields, and thus is suitable for use by programs
|
||||||
that want to create a mail buffer.
|
that want to create a mail buffer.
|
||||||
Users should use `\\[mh-smail]' to compose mail."
|
Users should use `\\[mh-smail]' to compose mail.
|
||||||
|
Optional arguments for setting certain fields include TO, SUBJECT, and
|
||||||
|
OTHER-HEADERS."
|
||||||
(mh-find-path)
|
(mh-find-path)
|
||||||
(let ((mh-error-if-no-draft t))
|
(let ((mh-error-if-no-draft t))
|
||||||
(mh-send (or to "") "" (or subject ""))))
|
(mh-send (or to "") "" (or subject ""))))
|
||||||
|
|
||||||
|
;; XEmacs needs this:
|
||||||
|
;;;###autoload
|
||||||
|
(defun mh-user-agent-compose (&optional to subject other-headers continue
|
||||||
|
switch-function yank-action
|
||||||
|
send-actions)
|
||||||
|
"Set up mail composition draft with the MH mail system.
|
||||||
|
This is `mail-user-agent' entry point to mh-e.
|
||||||
|
|
||||||
|
The optional arguments TO and SUBJECT specify recipients and the
|
||||||
|
initial Subject field, respectively.
|
||||||
|
|
||||||
|
OTHER-HEADERS is an alist specifying additional
|
||||||
|
header fields. Elements look like (HEADER . VALUE) where both
|
||||||
|
HEADER and VALUE are strings.
|
||||||
|
|
||||||
|
CONTINUE, SWITCH-FUNCTION, YANK-ACTION and SEND-ACTIONS are ignored."
|
||||||
|
(mh-find-path)
|
||||||
|
(let ((mh-error-if-no-draft t))
|
||||||
|
(mh-send to "" subject)
|
||||||
|
(while other-headers
|
||||||
|
(mh-insert-fields (concat (car (car other-headers)) ":")
|
||||||
|
(cdr (car other-headers)))
|
||||||
|
(setq other-headers (cdr other-headers)))))
|
||||||
|
|
||||||
(defun mh-edit-again (msg)
|
(defun mh-edit-again (msg)
|
||||||
"Clean-up a draft or a message previously sent and make it resendable.
|
"Clean up a draft or a message MSG previously sent and make it resendable.
|
||||||
Default is the current message.
|
Default is the current message.
|
||||||
The variable mh-new-draft-cleaned-headers specifies the headers to remove.
|
The variable `mh-new-draft-cleaned-headers' specifies the headers to remove.
|
||||||
See also documentation for `\\[mh-send]' function."
|
See also documentation for `\\[mh-send]' function."
|
||||||
(interactive (list (mh-get-msg-num t)))
|
(interactive (list (mh-get-msg-num t)))
|
||||||
(let* ((from-folder mh-current-folder)
|
(let* ((from-folder mh-current-folder)
|
||||||
|
|
@ -256,6 +360,7 @@ See also documentation for `\\[mh-send]' function."
|
||||||
(t
|
(t
|
||||||
(mh-read-draft "clean-up" (mh-msg-filename msg) nil)))))
|
(mh-read-draft "clean-up" (mh-msg-filename msg) nil)))))
|
||||||
(mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil)
|
(mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil)
|
||||||
|
(mh-insert-header-separator)
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(save-buffer)
|
(save-buffer)
|
||||||
(mh-compose-and-send-mail draft "" from-folder nil nil nil nil nil nil
|
(mh-compose-and-send-mail draft "" from-folder nil nil nil nil nil nil
|
||||||
|
|
@ -263,7 +368,7 @@ See also documentation for `\\[mh-send]' function."
|
||||||
|
|
||||||
|
|
||||||
(defun mh-extract-rejected-mail (msg)
|
(defun mh-extract-rejected-mail (msg)
|
||||||
"Extract a letter returned by the mail system and make it resendable.
|
"Extract message MSG returned by the mail system and make it resendable.
|
||||||
Default is the current message. The variable `mh-new-draft-cleaned-headers'
|
Default is the current message. The variable `mh-new-draft-cleaned-headers'
|
||||||
gives the headers to clean out of the original message.
|
gives the headers to clean out of the original message.
|
||||||
See also documentation for `\\[mh-send]' function."
|
See also documentation for `\\[mh-send]' function."
|
||||||
|
|
@ -278,6 +383,7 @@ See also documentation for `\\[mh-send]' function."
|
||||||
(mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil))
|
(mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil))
|
||||||
(t
|
(t
|
||||||
(message "Does not appear to be a rejected letter.")))
|
(message "Does not appear to be a rejected letter.")))
|
||||||
|
(mh-insert-header-separator)
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(save-buffer)
|
(save-buffer)
|
||||||
(mh-compose-and-send-mail draft "" from-folder msg
|
(mh-compose-and-send-mail draft "" from-folder msg
|
||||||
|
|
@ -288,9 +394,9 @@ See also documentation for `\\[mh-send]' function."
|
||||||
|
|
||||||
|
|
||||||
(defun mh-forward (to cc &optional msg-or-seq)
|
(defun mh-forward (to cc &optional msg-or-seq)
|
||||||
"Forward a message or message sequence. Defaults to displayed message.
|
"Forward displayed message to recipients TO and CC.
|
||||||
If optional prefix argument provided, then prompt for the message sequence.
|
If optional prefix argument MSG-OR-SEQ provided, then prompt for the message
|
||||||
See also documentation for `\\[mh-send]' function."
|
sequence. See also documentation for `\\[mh-send]' function."
|
||||||
(interactive (list (mh-read-address "To: ")
|
(interactive (list (mh-read-address "To: ")
|
||||||
(mh-read-address "Cc: ")
|
(mh-read-address "Cc: ")
|
||||||
(if current-prefix-arg
|
(if current-prefix-arg
|
||||||
|
|
@ -300,6 +406,10 @@ See also documentation for `\\[mh-send]' function."
|
||||||
(setq msg-or-seq (mh-get-msg-num t)))
|
(setq msg-or-seq (mh-get-msg-num t)))
|
||||||
(let* ((folder mh-current-folder)
|
(let* ((folder mh-current-folder)
|
||||||
(config (current-window-configuration))
|
(config (current-window-configuration))
|
||||||
|
(fwd-msg-file (mh-msg-filename (if (numberp msg-or-seq)
|
||||||
|
msg-or-seq
|
||||||
|
(car (mh-seq-to-msgs msg-or-seq)))
|
||||||
|
folder))
|
||||||
;; forw always leaves file in "draft" since it doesn't have -draft
|
;; forw always leaves file in "draft" since it doesn't have -draft
|
||||||
(draft-name (expand-file-name "draft" mh-user-path))
|
(draft-name (expand-file-name "draft" mh-user-path))
|
||||||
(draft (cond ((or (not (file-exists-p draft-name))
|
(draft (cond ((or (not (file-exists-p draft-name))
|
||||||
|
|
@ -311,11 +421,7 @@ See also documentation for `\\[mh-send]' function."
|
||||||
(mh-insert-fields "To:" to "Cc:" cc)
|
(mh-insert-fields "To:" to "Cc:" cc)
|
||||||
(save-buffer)))
|
(save-buffer)))
|
||||||
(t
|
(t
|
||||||
(mh-read-draft "" draft-name nil))))
|
(mh-read-draft "" draft-name nil)))))
|
||||||
(fwd-msg-file (mh-msg-filename (if (numberp msg-or-seq)
|
|
||||||
msg-or-seq
|
|
||||||
(car (mh-seq-to-msgs msg-or-seq)))
|
|
||||||
folder)))
|
|
||||||
(let (orig-from
|
(let (orig-from
|
||||||
orig-subject)
|
orig-subject)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
|
|
@ -325,12 +431,13 @@ See also documentation for `\\[mh-send]' function."
|
||||||
(setq orig-from (mh-get-header-field "From:"))
|
(setq orig-from (mh-get-header-field "From:"))
|
||||||
(setq orig-subject (mh-get-header-field "Subject:")))
|
(setq orig-subject (mh-get-header-field "Subject:")))
|
||||||
(let ((forw-subject
|
(let ((forw-subject
|
||||||
(mh-forwarded-letter-subject orig-from orig-subject)))
|
(mh-forwarded-letter-subject orig-from orig-subject))
|
||||||
|
(mail-header-separator mh-mail-header-separator))
|
||||||
(mh-insert-fields "Subject:" forw-subject)
|
(mh-insert-fields "Subject:" forw-subject)
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(if (re-search-forward "^------- Forwarded Message" nil t)
|
(if (re-search-forward "^------- Forwarded Message" nil t)
|
||||||
(forward-line -1)
|
(forward-line -1)
|
||||||
(re-search-forward "^--------")
|
(re-search-forward mail-header-separator)
|
||||||
(forward-line 1))
|
(forward-line 1))
|
||||||
(delete-other-windows)
|
(delete-other-windows)
|
||||||
(if (numberp msg-or-seq)
|
(if (numberp msg-or-seq)
|
||||||
|
|
@ -368,7 +475,8 @@ See documentation of `\\[mh-send]' for more details on composing mail."
|
||||||
|
|
||||||
|
|
||||||
(defun mh-redistribute (to cc &optional msg)
|
(defun mh-redistribute (to cc &optional msg)
|
||||||
"Redistribute a letter.
|
"Redistribute displayed message to recipients TO and CC.
|
||||||
|
Use optional argument MSG to redistribute another message.
|
||||||
Depending on how your copy of MH was compiled, you may need to change the
|
Depending on how your copy of MH was compiled, you may need to change the
|
||||||
setting of the variable `mh-redist-full-contents'. See its documentation."
|
setting of the variable `mh-redist-full-contents'. See its documentation."
|
||||||
(interactive (list (mh-read-address "Redist-To: ")
|
(interactive (list (mh-read-address "Redist-To: ")
|
||||||
|
|
@ -391,20 +499,32 @@ setting of the variable `mh-redist-full-contents'. See its documentation."
|
||||||
nil)
|
nil)
|
||||||
(save-buffer)
|
(save-buffer)
|
||||||
(message "Redistributing...")
|
(message "Redistributing...")
|
||||||
(if mh-redist-full-contents
|
(if (not mh-redist-background)
|
||||||
(call-process "/bin/sh" nil 0 nil "-c"
|
(if mh-redist-full-contents
|
||||||
(format "mhdist=1 mhaltmsg=%s %s -push %s"
|
(call-process "/bin/sh" nil 0 nil "-c"
|
||||||
buffer-file-name
|
(format "mhdist=1 mhaltmsg=%s %s -push %s"
|
||||||
(expand-file-name mh-send-prog mh-progs)
|
buffer-file-name
|
||||||
buffer-file-name))
|
(expand-file-name mh-send-prog mh-progs)
|
||||||
(call-process "/bin/sh" nil 0 nil "-c"
|
buffer-file-name))
|
||||||
(format "mhdist=1 mhaltmsg=%s mhannotate=1 %s -push %s"
|
(call-process "/bin/sh" nil 0 nil "-c"
|
||||||
(mh-msg-filename msg folder)
|
(format "mhdist=1 mhaltmsg=%s mhannotate=1 %s -push %s"
|
||||||
(expand-file-name mh-send-prog mh-progs)
|
(mh-msg-filename msg folder)
|
||||||
buffer-file-name)))
|
(expand-file-name mh-send-prog mh-progs)
|
||||||
|
buffer-file-name))))
|
||||||
(mh-annotate-msg msg folder mh-note-dist
|
(mh-annotate-msg msg folder mh-note-dist
|
||||||
"-component" "Resent:"
|
"-component" "Resent:"
|
||||||
"-text" (format "\"%s %s\"" to cc))
|
"-text" (format "\"%s %s\"" to cc))
|
||||||
|
(if mh-redist-background
|
||||||
|
(mh-exec-cmd-daemon "/bin/sh" "-c"
|
||||||
|
(format "mhdist=1 mhaltmsg=%s %s %s %s"
|
||||||
|
(if mh-redist-full-contents
|
||||||
|
buffer-file-name
|
||||||
|
(mh-msg-filename msg folder))
|
||||||
|
(if mh-redist-full-contents
|
||||||
|
""
|
||||||
|
"mhannotate=1")
|
||||||
|
(mh-expand-file-name "send" mh-progs)
|
||||||
|
buffer-file-name)))
|
||||||
(kill-buffer draft)
|
(kill-buffer draft)
|
||||||
(message "Redistributing...done"))))
|
(message "Redistributing...done"))))
|
||||||
|
|
||||||
|
|
@ -462,6 +582,7 @@ for the reply. See also documentation for `\\[mh-send]' function."
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(mh-goto-header-end 1)
|
(mh-goto-header-end 1)
|
||||||
(or includep
|
(or includep
|
||||||
|
(not mh-reply-show-message-p)
|
||||||
(mh-in-show-buffer (show-buffer)
|
(mh-in-show-buffer (show-buffer)
|
||||||
(mh-display-msg message folder)))
|
(mh-display-msg message folder)))
|
||||||
(mh-add-msgs-to-seq message 'answered t)
|
(mh-add-msgs-to-seq message 'answered t)
|
||||||
|
|
@ -472,12 +593,14 @@ for the reply. See also documentation for `\\[mh-send]' function."
|
||||||
|
|
||||||
(defun mh-send (to cc subject)
|
(defun mh-send (to cc subject)
|
||||||
"Compose and send a letter.
|
"Compose and send a letter.
|
||||||
The file named by `mh-comp-formfile' will be used as the form.
|
|
||||||
Do not call this function from outside mh-e; use \\[mh-smail] instead.
|
Do not call this function from outside mh-e; use \\[mh-smail] instead.
|
||||||
|
|
||||||
The letter is composed in mh-letter-mode; see its documentation for more
|
The file named by `mh-comp-formfile' will be used as the form.
|
||||||
details. If `mh-compose-letter-function' is defined, it is called on the
|
The letter is composed in `mh-letter-mode'; see its documentation for more
|
||||||
draft and passed three arguments: TO, SUBJECT, and CC."
|
details.
|
||||||
|
If `mh-compose-letter-function' is defined, it is called on the draft and
|
||||||
|
passed three arguments: TO, CC, and SUBJECT."
|
||||||
(interactive (list
|
(interactive (list
|
||||||
(mh-read-address "To: ")
|
(mh-read-address "To: ")
|
||||||
(mh-read-address "Cc: ")
|
(mh-read-address "Cc: ")
|
||||||
|
|
@ -489,9 +612,15 @@ draft and passed three arguments: TO, SUBJECT, and CC."
|
||||||
|
|
||||||
(defun mh-send-other-window (to cc subject)
|
(defun mh-send-other-window (to cc subject)
|
||||||
"Compose and send a letter in another window.
|
"Compose and send a letter in another window.
|
||||||
Do not call this function from outside mh-e;
|
|
||||||
use \\[mh-smail-other-window] instead.
|
Do not call this function from outside mh-e; use \\[mh-smail-other-window]
|
||||||
See also documentation for `\\[mh-send]' function."
|
instead.
|
||||||
|
|
||||||
|
The file named by `mh-comp-formfile' will be used as the form.
|
||||||
|
The letter is composed in `mh-letter-mode'; see its documentation for more
|
||||||
|
details.
|
||||||
|
If `mh-compose-letter-function' is defined, it is called on the draft and
|
||||||
|
passed three arguments: TO, CC, and SUBJECT."
|
||||||
(interactive (list
|
(interactive (list
|
||||||
(mh-read-address "To: ")
|
(mh-read-address "To: ")
|
||||||
(mh-read-address "Cc: ")
|
(mh-read-address "Cc: ")
|
||||||
|
|
@ -540,7 +669,7 @@ See also documentation for `\\[mh-send]' function."
|
||||||
(defun mh-read-draft (use initial-contents delete-contents-file)
|
(defun mh-read-draft (use initial-contents delete-contents-file)
|
||||||
;; Read draft file into a draft buffer and make that buffer the current one.
|
;; Read draft file into a draft buffer and make that buffer the current one.
|
||||||
;; USE is a message used for prompting about the intended use of the message.
|
;; USE is a message used for prompting about the intended use of the message.
|
||||||
;; INITIAL-CONTENTS is filename that is read into an empty buffer, or nil
|
;; INITIAL-CONTENTS is filename that is read into an empty buffer, or NIL
|
||||||
;; if buffer should not be modified. Delete the initial-contents file if
|
;; if buffer should not be modified. Delete the initial-contents file if
|
||||||
;; DELETE-CONTENTS-FILE flag is set.
|
;; DELETE-CONTENTS-FILE flag is set.
|
||||||
;; Returns the draft folder's name.
|
;; Returns the draft folder's name.
|
||||||
|
|
@ -617,7 +746,7 @@ See also documentation for `\\[mh-send]' function."
|
||||||
(cond ((equal value "")
|
(cond ((equal value "")
|
||||||
nil)
|
nil)
|
||||||
((mh-position-on-field field-name)
|
((mh-position-on-field field-name)
|
||||||
(insert " " value))
|
(insert " " (or value "")))
|
||||||
(t
|
(t
|
||||||
(insert field-name " " value "\n")))
|
(insert field-name " " value "\n")))
|
||||||
(setq name-values (cdr (cdr name-values)))))))
|
(setq name-values (cdr (cdr name-values)))))))
|
||||||
|
|
@ -628,10 +757,11 @@ See also documentation for `\\[mh-send]' function."
|
||||||
;; Move to end of entire header if FIELD not found.
|
;; Move to end of entire header if FIELD not found.
|
||||||
;; Returns non-nil iff FIELD was found.
|
;; Returns non-nil iff FIELD was found.
|
||||||
;; The optional second arg is for pre-version 4 compatibility.
|
;; The optional second arg is for pre-version 4 compatibility.
|
||||||
(if (mh-goto-header-field field)
|
(cond ((mh-goto-header-field field)
|
||||||
(progn
|
(mh-header-field-end)
|
||||||
(mh-header-field-end)
|
t)
|
||||||
t)))
|
((mh-goto-header-end 0)
|
||||||
|
nil)))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-get-header-field (field)
|
(defun mh-get-header-field (field)
|
||||||
|
|
@ -651,7 +781,7 @@ See also documentation for `\\[mh-send]' function."
|
||||||
(defun mh-goto-header-field (field)
|
(defun mh-goto-header-field (field)
|
||||||
;; Move to FIELD in the message header.
|
;; Move to FIELD in the message header.
|
||||||
;; Move to the end of the FIELD name, which should end in a colon.
|
;; Move to the end of the FIELD name, which should end in a colon.
|
||||||
;; Returns t if found, nil if not.
|
;; Returns T if found, NIL if not.
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(let ((case-fold-search t)
|
(let ((case-fold-search t)
|
||||||
(headers-end (save-excursion
|
(headers-end (save-excursion
|
||||||
|
|
@ -659,15 +789,6 @@ See also documentation for `\\[mh-send]' function."
|
||||||
(point))))
|
(point))))
|
||||||
(re-search-forward (format "^%s" field) headers-end t)))
|
(re-search-forward (format "^%s" field) headers-end t)))
|
||||||
|
|
||||||
(defun mh-header-field-end ()
|
|
||||||
;; Move to the end of the current header field.
|
|
||||||
;; Handles RFC 822 continuation lines.
|
|
||||||
(forward-line 1)
|
|
||||||
(while (looking-at "^[ \t]")
|
|
||||||
(forward-line 1))
|
|
||||||
(backward-char 1)) ;to end of previous line
|
|
||||||
|
|
||||||
|
|
||||||
(defun mh-goto-header-end (arg)
|
(defun mh-goto-header-end (arg)
|
||||||
;; Find the end of the message header in the current buffer and position
|
;; Find the end of the message header in the current buffer and position
|
||||||
;; the cursor at the ARG'th newline after the header.
|
;; the cursor at the ARG'th newline after the header.
|
||||||
|
|
@ -699,39 +820,24 @@ See also documentation for `\\[mh-send]' function."
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(define-derived-mode mh-letter-mode text-mode "MH-Letter"
|
(define-derived-mode mh-letter-mode text-mode "MH-Letter"
|
||||||
"Mode for composing letters in mh-e.\\<mh-letter-mode-map>
|
"Mode for composing letters in mh-e.\\<mh-letter-mode-map>
|
||||||
|
|
||||||
When you have finished composing, type \\[mh-send-letter] to send the message
|
When you have finished composing, type \\[mh-send-letter] to send the message
|
||||||
using the MH mail handling system.
|
using the MH mail handling system.
|
||||||
See the documentation for \\[mh-edit-mhn] for information on composing MIME
|
|
||||||
messages.
|
|
||||||
|
|
||||||
\\{mh-letter-mode-map}
|
If MH MIME directives are added manually, you must first run \\[mh-edit-mhn]
|
||||||
|
before sending the message. MIME directives that are added by mh-e commands
|
||||||
|
such as \\[mh-mhn-compose-insertion] are processed automatically when the
|
||||||
|
message is sent.
|
||||||
|
|
||||||
Variables controlling this mode (defaults in parentheses):
|
Options that control this mode can be changed with
|
||||||
|
\\[customize-group]; specify the \"mh-compose\" group.
|
||||||
|
|
||||||
mh-delete-yanked-msg-window (nil)
|
When a message is composed, the hooks `text-mode-hook' and
|
||||||
If non-nil, \\[mh-yank-cur-msg] will delete any windows displaying
|
`mh-letter-mode-hook' are run.
|
||||||
the yanked message.
|
|
||||||
|
|
||||||
mh-yank-from-start-of-msg (t)
|
\\{mh-letter-mode-map}"
|
||||||
If non-nil, \\[mh-yank-cur-msg] will include the entire message.
|
|
||||||
If `body', just yank the body (no header).
|
|
||||||
If nil, only the portion of the message following the point will be yanked.
|
|
||||||
If there is a region, this variable is ignored.
|
|
||||||
|
|
||||||
mh-ins-buf-prefix (\"> \")
|
|
||||||
String to insert before each non-blank line of a message as it is
|
|
||||||
inserted in a draft letter.
|
|
||||||
|
|
||||||
mh-signature-file-name (\"~/.signature\")
|
|
||||||
File to be inserted into message by \\[mh-insert-signature].
|
|
||||||
|
|
||||||
This command runs the normal hooks `text-mode-hook' and `mh-letter-mode-hook'."
|
|
||||||
(or mh-user-path (mh-find-path))
|
(or mh-user-path (mh-find-path))
|
||||||
(make-local-variable 'paragraph-start)
|
|
||||||
(setq paragraph-start (concat "^[ \t]*[-_][-_][-_]+$\\|" paragraph-start))
|
|
||||||
(make-local-variable 'paragraph-separate)
|
|
||||||
(setq paragraph-separate
|
|
||||||
(concat "^[ \t]*[-_][-_][-_]+$\\|" paragraph-separate))
|
|
||||||
(make-local-variable 'mh-send-args)
|
(make-local-variable 'mh-send-args)
|
||||||
(make-local-variable 'mh-annotate-char)
|
(make-local-variable 'mh-annotate-char)
|
||||||
(make-local-variable 'mh-annotate-field)
|
(make-local-variable 'mh-annotate-field)
|
||||||
|
|
@ -739,7 +845,56 @@ This command runs the normal hooks `text-mode-hook' and `mh-letter-mode-hook'."
|
||||||
(make-local-variable 'mh-sent-from-folder)
|
(make-local-variable 'mh-sent-from-folder)
|
||||||
(make-local-variable 'mh-sent-from-msg)
|
(make-local-variable 'mh-sent-from-msg)
|
||||||
(make-local-variable 'mail-header-separator)
|
(make-local-variable 'mail-header-separator)
|
||||||
(setq mail-header-separator "--------") ;for Hyperbole
|
(setq mail-header-separator mh-mail-header-separator) ;override sendmail.el
|
||||||
|
|
||||||
|
;; From sendmail.el for proper paragraph fill
|
||||||
|
;; sendmail.el also sets a normal-auto-fill-function (not done here)
|
||||||
|
(make-local-variable 'paragraph-separate)
|
||||||
|
(make-local-variable 'paragraph-start)
|
||||||
|
(make-local-variable 'fill-paragraph-function)
|
||||||
|
(setq fill-paragraph-function 'mail-mode-fill-paragraph)
|
||||||
|
(make-local-variable 'adaptive-fill-regexp)
|
||||||
|
(setq adaptive-fill-regexp
|
||||||
|
(concat adaptive-fill-regexp
|
||||||
|
"\\|[ \t]*[-[:alnum:]]*>+[ \t]*"))
|
||||||
|
(make-local-variable 'adaptive-fill-first-line-regexp)
|
||||||
|
(setq adaptive-fill-first-line-regexp
|
||||||
|
(concat adaptive-fill-first-line-regexp
|
||||||
|
"\\|[ \t]*[-[:alnum:]]*>+[ \t]*"))
|
||||||
|
;; `-- ' precedes the signature. `-----' appears at the start of the
|
||||||
|
;; lines that delimit forwarded messages.
|
||||||
|
;; Lines containing just >= 3 dashes, perhaps after whitespace,
|
||||||
|
;; are also sometimes used and should be separators.
|
||||||
|
(setq paragraph-start (concat (regexp-quote mail-header-separator)
|
||||||
|
"\\|\t*\\([-|#;>* ]\\|(?[0-9]+[.)]\\)+$"
|
||||||
|
"\\|[ \t]*[[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|"
|
||||||
|
"-- $\\|---+$\\|"
|
||||||
|
page-delimiter))
|
||||||
|
(setq paragraph-separate paragraph-start)
|
||||||
|
;; --- End of code from sendmail.el ---
|
||||||
|
|
||||||
|
(if (and (boundp 'tool-bar-mode) tool-bar-mode)
|
||||||
|
(set (make-local-variable 'tool-bar-map) mh-letter-tool-bar-map))
|
||||||
|
(make-local-variable 'font-lock-defaults)
|
||||||
|
(cond
|
||||||
|
((equal mh-highlight-citation-p 'font-lock)
|
||||||
|
(setq font-lock-defaults '(mh-show-font-lock-keywords-with-cite t)))
|
||||||
|
((equal mh-highlight-citation-p 'gnus)
|
||||||
|
(setq font-lock-defaults '(mh-show-font-lock-keywords t))
|
||||||
|
(mh-gnus-article-highlight-citation))
|
||||||
|
(t
|
||||||
|
(setq font-lock-defaults '(mh-show-font-lock-keywords t))))
|
||||||
|
(easy-menu-add mh-letter-menu)
|
||||||
|
;; See if a "forw: -mime" message containing a MIME composition.
|
||||||
|
;; mode clears local vars, so can't do this in mh-forward.
|
||||||
|
(save-excursion
|
||||||
|
(goto-char (point-min))
|
||||||
|
(when (and (re-search-forward mail-header-separator nil t)
|
||||||
|
(= 0 (forward-line 1))
|
||||||
|
(looking-at "^#forw"))
|
||||||
|
(require 'mh-mime) ;Need mh-mhn-compose-insert-p local var
|
||||||
|
(setq mh-mhn-compose-insert-p t)))
|
||||||
|
(setq fill-column mh-letter-fill-column)
|
||||||
;; if text-mode-hook turned on auto-fill, tune it for messages
|
;; if text-mode-hook turned on auto-fill, tune it for messages
|
||||||
(when auto-fill-function
|
(when auto-fill-function
|
||||||
(make-local-variable 'auto-fill-function)
|
(make-local-variable 'auto-fill-function)
|
||||||
|
|
@ -755,14 +910,13 @@ This command runs the normal hooks `text-mode-hook' and `mh-letter-mode-hook'."
|
||||||
(do-auto-fill)))
|
(do-auto-fill)))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-in-header-p ()
|
(defun mh-insert-header-separator ()
|
||||||
;; Return non-nil if the point is in the header of a draft message.
|
;; Inserts `mh-mail-header-separator', if absent.
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(let ((cur-point (point)))
|
(goto-char (point-min))
|
||||||
(goto-char (point-min))
|
(rfc822-goto-eoh)
|
||||||
(re-search-forward "^-*$" nil t)
|
(if (looking-at "$")
|
||||||
(< cur-point (point)))))
|
(insert mh-mail-header-separator))))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-to-field ()
|
(defun mh-to-field ()
|
||||||
"Move point to the end of a specified header field.
|
"Move point to the end of a specified header field.
|
||||||
|
|
@ -839,6 +993,30 @@ Prompt for the field name with a completion list of the current folders."
|
||||||
|
|
||||||
;;; Routines to compose and send a letter.
|
;;; Routines to compose and send a letter.
|
||||||
|
|
||||||
|
(defun mh-insert-x-mailer ()
|
||||||
|
;; Appends an X-Mailer field to the header.
|
||||||
|
;; The versions of mh-e, Emacs, and MH are shown.
|
||||||
|
|
||||||
|
;; Lazily initialize mh-x-mailer-string.
|
||||||
|
(when (null mh-x-mailer-string)
|
||||||
|
(save-window-excursion
|
||||||
|
(mh-version)
|
||||||
|
(set-buffer mh-temp-buffer)
|
||||||
|
(if mh-nmh-p
|
||||||
|
(search-forward-regexp "^nmh-\\(\\S +\\)")
|
||||||
|
(search-forward-regexp "^MH \\(\\S +\\)" nil t))
|
||||||
|
(let ((x-mailer-mh (buffer-substring (match-beginning 1) (match-end 1))))
|
||||||
|
(setq mh-x-mailer-string
|
||||||
|
(format "mh-e %s; %s %s; Emacs %d.%d"
|
||||||
|
mh-version (if mh-nmh-p "nmh" "MH") x-mailer-mh
|
||||||
|
emacs-major-version emacs-minor-version)))
|
||||||
|
(kill-buffer mh-temp-buffer)))
|
||||||
|
;; Insert X-Mailer, but only if it doesn't already exist.
|
||||||
|
(save-excursion
|
||||||
|
(when (null (mh-goto-header-field "X-Mailer"))
|
||||||
|
(mh-insert-fields "X-Mailer:" mh-x-mailer-string))))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-compose-and-send-mail (draft send-args
|
(defun mh-compose-and-send-mail (draft send-args
|
||||||
sent-from-folder sent-from-msg
|
sent-from-folder sent-from-msg
|
||||||
to subject cc
|
to subject cc
|
||||||
|
|
@ -877,24 +1055,31 @@ Prompt for the field name with a completion list of the current folders."
|
||||||
|
|
||||||
(defun mh-send-letter (&optional arg)
|
(defun mh-send-letter (&optional arg)
|
||||||
"Send the draft letter in the current buffer.
|
"Send the draft letter in the current buffer.
|
||||||
If optional prefix argument is provided, monitor delivery.
|
If optional prefix argument ARG is provided, monitor delivery.
|
||||||
Run `mh-before-send-letter-hook' before actually doing anything."
|
Run `mh-before-send-letter-hook' before actually doing anything.
|
||||||
|
Run `\\[mh-edit-mhn]' if variable `mh-mhn-compose-insert-p' is set."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(run-hooks 'mh-before-send-letter-hook)
|
(run-hooks 'mh-before-send-letter-hook)
|
||||||
|
(if (and (boundp 'mh-mhn-compose-insert-p)
|
||||||
|
mh-mhn-compose-insert-p)
|
||||||
|
(mh-edit-mhn))
|
||||||
|
(if mh-insert-x-mailer-p (mh-insert-x-mailer))
|
||||||
(save-buffer)
|
(save-buffer)
|
||||||
(message "Sending...")
|
(message "Sending...")
|
||||||
(let ((draft-buffer (current-buffer))
|
(let ((draft-buffer (current-buffer))
|
||||||
(file-name buffer-file-name)
|
(file-name buffer-file-name)
|
||||||
(config mh-previous-window-config)
|
(config mh-previous-window-config)
|
||||||
(coding-system-for-write
|
(coding-system-for-write
|
||||||
(if (and (local-variable-p 'buffer-file-coding-system)
|
(if (and (local-variable-p 'buffer-file-coding-system
|
||||||
|
(current-buffer)) ;XEmacs needs two args
|
||||||
;; We're not sure why, but buffer-file-coding-system
|
;; We're not sure why, but buffer-file-coding-system
|
||||||
;; tends to get set to undecided-unix.
|
;; tends to get set to undecided-unix.
|
||||||
(not (memq buffer-file-coding-system
|
(not (memq buffer-file-coding-system
|
||||||
'(undecided undecided-unix undecided-dos))))
|
'(undecided undecided-unix undecided-dos))))
|
||||||
buffer-file-coding-system
|
buffer-file-coding-system
|
||||||
(or sendmail-coding-system
|
(or (and (boundp 'sendmail-coding-system) sendmail-coding-system)
|
||||||
default-buffer-file-coding-system
|
(and (boundp 'default-buffer-file-coding-system )
|
||||||
|
default-buffer-file-coding-system)
|
||||||
'iso-latin-1))))
|
'iso-latin-1))))
|
||||||
(cond (arg
|
(cond (arg
|
||||||
(pop-to-buffer "MH mail delivery")
|
(pop-to-buffer "MH mail delivery")
|
||||||
|
|
@ -1006,9 +1191,10 @@ yanked message will be deleted."
|
||||||
(run-hooks 'mh-yank-hooks))
|
(run-hooks 'mh-yank-hooks))
|
||||||
(t
|
(t
|
||||||
(or (bolp) (forward-line 1))
|
(or (bolp) (forward-line 1))
|
||||||
(while (< (point) (mark))
|
(let ((zmacs-regions nil)) ;so "(mark)" works in XEmacs
|
||||||
(insert mh-ins-string)
|
(while (< (point) (mark))
|
||||||
(forward-line 1)))))
|
(insert mh-ins-string)
|
||||||
|
(forward-line 1))))))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-fully-kill-draft ()
|
(defun mh-fully-kill-draft ()
|
||||||
|
|
@ -1027,81 +1213,122 @@ Use \\[kill-buffer] if you don't want to delete the draft message file."
|
||||||
(error "Message not killed")))
|
(error "Message not killed")))
|
||||||
|
|
||||||
|
|
||||||
|
(defun mh-current-fill-prefix ()
|
||||||
|
;; Return the fill-prefix on the current line as a string.
|
||||||
|
(save-excursion
|
||||||
|
(beginning-of-line)
|
||||||
|
;; This assumes that the major-mode sets up adaptive-fill-regexp
|
||||||
|
;; correctly such as mh-letter-mode or sendmail.el's mail-mode. But
|
||||||
|
;; perhaps I should use the variable and simply inserts its value here,
|
||||||
|
;; and set it locally in a let scope. --psg
|
||||||
|
(if (re-search-forward adaptive-fill-regexp nil t)
|
||||||
|
(match-string 0)
|
||||||
|
"")))
|
||||||
|
|
||||||
|
|
||||||
|
(defun mh-open-line ()
|
||||||
|
"Insert a newline and leave point after it.
|
||||||
|
In addition, insert newline and quoting characters before text after point.
|
||||||
|
This is useful in breaking up paragraphs in replies."
|
||||||
|
(interactive)
|
||||||
|
(let ((column (current-column))
|
||||||
|
(point (point))
|
||||||
|
(prefix (mh-current-fill-prefix)))
|
||||||
|
(if (> (length prefix) column)
|
||||||
|
(message "Sorry, point seems to be within the line prefix")
|
||||||
|
(newline 2)
|
||||||
|
(insert prefix)
|
||||||
|
(while (> column (current-column))
|
||||||
|
(insert " "))
|
||||||
|
(forward-line -1))))
|
||||||
|
|
||||||
|
|
||||||
;;; Build the letter-mode keymap:
|
;;; Build the letter-mode keymap:
|
||||||
|
(gnus-define-keys mh-letter-mode-map
|
||||||
|
"\C-c\C-f\C-b" mh-to-field
|
||||||
|
"\C-c\C-f\C-c" mh-to-field
|
||||||
|
"\C-c\C-f\C-d" mh-to-field
|
||||||
|
"\C-c\C-f\C-f" mh-to-fcc
|
||||||
|
"\C-c\C-f\C-r" mh-to-field
|
||||||
|
"\C-c\C-f\C-s" mh-to-field
|
||||||
|
"\C-c\C-f\C-t" mh-to-field
|
||||||
|
"\C-c\C-fb" mh-to-field
|
||||||
|
"\C-c\C-fc" mh-to-field
|
||||||
|
"\C-c\C-fd" mh-to-field
|
||||||
|
"\C-c\C-ff" mh-to-fcc
|
||||||
|
"\C-c\C-fr" mh-to-field
|
||||||
|
"\C-c\C-fs" mh-to-field
|
||||||
|
"\C-c\C-ft" mh-to-field
|
||||||
|
"\C-c\C-i" mh-insert-letter
|
||||||
|
"\C-c\C-o" mh-open-line
|
||||||
|
"\C-c\C-q" mh-fully-kill-draft
|
||||||
|
"\C-c\C-\\" mh-fully-kill-draft ;if no C-q
|
||||||
|
"\C-c\C-s" mh-insert-signature
|
||||||
|
"\C-c\C-^" mh-insert-signature ;if no C-s
|
||||||
|
"\C-c\C-w" mh-check-whom
|
||||||
|
"\C-c\C-y" mh-yank-cur-msg
|
||||||
|
"\C-c\C-c" mh-send-letter
|
||||||
|
"\C-c\C-m\C-f" mh-mhn-compose-forw
|
||||||
|
"\C-c\C-m\C-e" mh-mhn-compose-anon-ftp
|
||||||
|
"\C-c\C-m\C-t" mh-mhn-compose-external-compressed-tar
|
||||||
|
"\C-c\C-m\C-i" mh-mhn-compose-insertion
|
||||||
|
"\C-c\C-e" mh-edit-mhn
|
||||||
|
"\C-c\C-m\C-u" mh-revert-mhn-edit)
|
||||||
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-f\C-b" 'mh-to-field)
|
;; "C-c /" prefix is used in mh-letter-mode by pgp.el and mailcrypt.el.
|
||||||
(define-key mh-letter-mode-map "\C-c\C-f\C-c" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-f\C-d" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-f\C-f" 'mh-to-fcc)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-f\C-r" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-f\C-s" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-f\C-t" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-fb" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-fc" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-fd" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-ff" 'mh-to-fcc)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-fr" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-fs" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-ft" 'mh-to-field)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-i" 'mh-insert-letter)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-q" 'mh-fully-kill-draft)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-\\" 'mh-fully-kill-draft) ;if no C-q
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-s" 'mh-insert-signature)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-^" 'mh-insert-signature) ;if no C-s
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-w" 'mh-check-whom)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-y" 'mh-yank-cur-msg)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-c" 'mh-send-letter)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-m\C-f" 'mh-mhn-compose-forw)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-m\C-e" 'mh-mhn-compose-anon-ftp)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-m\C-t" 'mh-mhn-compose-external-compressed-tar)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-m\C-i" 'mh-mhn-compose-insertion)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-e" 'mh-edit-mhn)
|
|
||||||
(define-key mh-letter-mode-map "\C-c\C-m\C-u" 'mh-revert-mhn-edit)
|
|
||||||
|
|
||||||
;; "C-c /" prefix is used in mh-letter-mode by pgp.el
|
;;; Menu extracted from mh-menubar.el V1.1 (31 July 2001)
|
||||||
|
(cond
|
||||||
|
((fboundp 'easy-menu-define)
|
||||||
|
(easy-menu-define
|
||||||
|
mh-letter-menu mh-letter-mode-map "Menu for mh-e letter mode."
|
||||||
|
'("Letter"
|
||||||
|
["Send This Draft" mh-send-letter t]
|
||||||
|
["Split Current Line" mh-open-line t]
|
||||||
|
["Check Recipient" mh-check-whom t]
|
||||||
|
["Yank Current Message" mh-yank-cur-msg t]
|
||||||
|
["Insert a Message..." mh-insert-letter t]
|
||||||
|
["Insert Signature" mh-insert-signature t]
|
||||||
|
["Compose Insertion (MIME)..." mh-mhn-compose-insertion t]
|
||||||
|
["Compose Compressed tar (MIME)..." mh-mhn-compose-external-compressed-tar t]
|
||||||
|
["Compose Anon FTP (MIME)..." mh-mhn-compose-anon-ftp t]
|
||||||
|
["Compose Forward (MIME)..." mh-mhn-compose-forw t]
|
||||||
|
["Pull in All Compositions (MIME)" mh-edit-mhn t]
|
||||||
|
["Revert to Non-MIME Edit" mh-revert-mhn-edit t]
|
||||||
|
["Kill This Draft" mh-fully-kill-draft t]))))
|
||||||
|
|
||||||
;;; autoloads from mh-mime
|
(defun mh-customize ()
|
||||||
|
"Customize mh-e variables."
|
||||||
|
(interactive)
|
||||||
|
(customize-group 'mh))
|
||||||
|
|
||||||
(autoload 'mh-mhn-compose-insertion "mh-mime"
|
;;; Support for emacs21 toolbar using gnus/message.el icons (and code).
|
||||||
"Add a directive to insert a MIME message part from a file.
|
(eval-when-compile (defvar tool-bar-map))
|
||||||
This is the typical way to insert non-text parts in a message.
|
(when (and (fboundp 'tool-bar-add-item)
|
||||||
See also \\[mh-edit-mhn]." t)
|
tool-bar-mode)
|
||||||
|
(defvar mh-letter-tool-bar-map
|
||||||
(autoload 'mh-mhn-compose-anon-ftp "mh-mime"
|
(let ((tool-bar-map (make-sparse-keymap)))
|
||||||
"Add a directive for a MIME anonymous ftp external body part.
|
(tool-bar-add-item "mail_send" 'mh-send-letter 'mh-letter-send
|
||||||
This directive tells MH to include a reference to a
|
:help "Send this letter")
|
||||||
message/external-body part retrievable by anonymous FTP.
|
(tool-bar-add-item "attach" 'mh-mhn-compose-insertion 'mh-letter-compose
|
||||||
See also \\[mh-edit-mhn]." t)
|
:help "Insert attachment")
|
||||||
|
(tool-bar-add-item "spell" 'ispell-message 'mh-letter-ispell
|
||||||
(autoload 'mh-mhn-compose-external-compressed-tar "mh-mime"
|
:help "Check spelling")
|
||||||
"Add a directive to include a MIME reference to a compressed tar file.
|
(tool-bar-add-item-from-menu 'save-buffer "save")
|
||||||
The file should be available via anonymous ftp. This directive
|
(tool-bar-add-item-from-menu 'undo "undo")
|
||||||
tells MH to include a reference to a message/external-body part.
|
(tool-bar-add-item-from-menu 'kill-region "cut")
|
||||||
See also \\[mh-edit-mhn]." t)
|
(tool-bar-add-item-from-menu 'menu-bar-kill-ring-save "copy")
|
||||||
|
(tool-bar-add-item "close" 'mh-fully-kill-draft 'mh-letter-kill
|
||||||
(autoload 'mh-mhn-compose-forw "mh-mime"
|
:help "Kill this draft")
|
||||||
"Add a forw directive to this message, to forward a message with MIME.
|
(tool-bar-add-item "preferences" (lambda ()
|
||||||
This directive tells MH to include another message in this one.
|
(interactive)
|
||||||
See also \\[mh-edit-mhn]." t)
|
(customize-group "mh-compose"))
|
||||||
|
'mh-letter-customize
|
||||||
(autoload 'mh-edit-mhn "mh-mime"
|
:help "mh-e composition preferences")
|
||||||
"Format the current draft for MIME, expanding any mhn directives.
|
(tool-bar-add-item "help" (lambda ()
|
||||||
Process the current draft with the mhn program, which,
|
(interactive)
|
||||||
using directives already inserted in the draft, fills in
|
(Info-goto-node "(mh-e)Draft Editing"))
|
||||||
all the MIME components and header fields.
|
'mh-letter-help :help "Help")
|
||||||
This step should be done last just before sending the message.
|
tool-bar-map)))
|
||||||
The mhn program is part of MH version 6.8 or later.
|
|
||||||
The \\[mh-revert-mhn-edit] command undoes this command.
|
|
||||||
For assistance with creating mhn directives to insert
|
|
||||||
various types of components in a message, see
|
|
||||||
\\[mh-mhn-compose-insertion] (generic insertion from a file),
|
|
||||||
\\[mh-mhn-compose-anon-ftp] (external reference to file via anonymous ftp),
|
|
||||||
\\[mh-mhn-compose-external-compressed-tar] \
|
|
||||||
\(reference to compressed tar file via anonymous ftp), and
|
|
||||||
\\[mh-mhn-compose-forw] (forward message)." t)
|
|
||||||
|
|
||||||
(autoload 'mh-revert-mhn-edit "mh-mime"
|
|
||||||
"Undoes the effect of \\[mh-edit-mhn] by reverting to the backup file.
|
|
||||||
Optional non-nil argument means don't ask for confirmation." t)
|
|
||||||
|
|
||||||
;;; mh-comp.el ends here
|
;;; mh-comp.el ends here
|
||||||
|
|
|
||||||
1170
lisp/mail/mh-e.el
1170
lisp/mail/mh-e.el
File diff suppressed because it is too large
Load diff
|
|
@ -1,7 +1,11 @@
|
||||||
;;; mh-funcs.el --- mh-e functions not everyone will use right away
|
;;; mh-funcs.el --- mh-e functions not everyone will use right away
|
||||||
;; Time-stamp: <2001-07-14 13:08:45 pavel>
|
|
||||||
|
|
||||||
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
;; Copyright (C) 1993, 1995, 2001, 2002 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Maintainer: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Keywords: mail
|
||||||
|
;; See: mh-e.el
|
||||||
|
|
||||||
;; This file is part of GNU Emacs.
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
|
@ -28,7 +32,7 @@
|
||||||
|
|
||||||
;;; Change Log:
|
;;; Change Log:
|
||||||
|
|
||||||
;; $Id: mh-funcs.el,v 1.5 1996/01/14 07:34:30 erik Exp $
|
;; $Id: mh-funcs.el,v 1.12 2002/04/07 19:20:56 wohler Exp $
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
|
|
@ -71,7 +75,7 @@ digest are inserted into the folder after that message."
|
||||||
|
|
||||||
|
|
||||||
(defun mh-copy-msg (msg-or-seq folder)
|
(defun mh-copy-msg (msg-or-seq folder)
|
||||||
"Copy the specified MESSAGE(s) to another FOLDER without deleting them.
|
"Copy the specified MSG-OR-SEQ to another FOLDER without deleting them.
|
||||||
Default is the displayed message. If optional prefix argument is
|
Default is the displayed message. If optional prefix argument is
|
||||||
provided, then prompt for the message sequence."
|
provided, then prompt for the message sequence."
|
||||||
(interactive (list (if current-prefix-arg
|
(interactive (list (if current-prefix-arg
|
||||||
|
|
@ -84,10 +88,12 @@ provided, then prompt for the message sequence."
|
||||||
(mh-notate-seq msg-or-seq mh-note-copied mh-cmd-note)))
|
(mh-notate-seq msg-or-seq mh-note-copied mh-cmd-note)))
|
||||||
|
|
||||||
(defun mh-kill-folder ()
|
(defun mh-kill-folder ()
|
||||||
"Remove the current folder."
|
"Remove the current folder and all included messages.
|
||||||
|
Removes all of the messages (files) within the specified current folder,
|
||||||
|
and then removes the folder (directory) itself."
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (or mh-do-not-confirm
|
(if (yes-or-no-p (format "Remove folder %s (and all included messages)?"
|
||||||
(yes-or-no-p (format "Remove folder %s? " mh-current-folder)))
|
mh-current-folder))
|
||||||
(let ((folder mh-current-folder))
|
(let ((folder mh-current-folder))
|
||||||
(if (null mh-folder-list)
|
(if (null mh-folder-list)
|
||||||
(mh-set-folder-list))
|
(mh-set-folder-list))
|
||||||
|
|
@ -100,23 +106,27 @@ provided, then prompt for the message sequence."
|
||||||
(mh-set-folder-modified-p nil) ; so kill-buffer doesn't complain
|
(mh-set-folder-modified-p nil) ; so kill-buffer doesn't complain
|
||||||
(if (get-buffer mh-show-buffer)
|
(if (get-buffer mh-show-buffer)
|
||||||
(kill-buffer mh-show-buffer))
|
(kill-buffer mh-show-buffer))
|
||||||
(kill-buffer folder))
|
(if (get-buffer folder)
|
||||||
|
(kill-buffer folder)))
|
||||||
(message "Folder not removed")))
|
(message "Folder not removed")))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-list-folders ()
|
(defun mh-list-folders ()
|
||||||
"List mail folders."
|
"List mail folders."
|
||||||
(interactive)
|
(interactive)
|
||||||
(with-output-to-temp-buffer mh-temp-buffer
|
(let ((temp-buffer mh-temp-folders-buffer))
|
||||||
(save-excursion
|
(with-output-to-temp-buffer temp-buffer
|
||||||
(switch-to-buffer mh-temp-buffer)
|
(save-excursion
|
||||||
(erase-buffer)
|
(set-buffer temp-buffer)
|
||||||
(message "Listing folders...")
|
(erase-buffer)
|
||||||
(mh-exec-cmd-output "folders" t (if mh-recursive-folders
|
(message "Listing folders...")
|
||||||
"-recurse"
|
(mh-exec-cmd-output "folders" t (if mh-recursive-folders
|
||||||
|
"-recurse"
|
||||||
"-norecurse"))
|
"-norecurse"))
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(message "Listing folders...done"))))
|
(view-mode 1)
|
||||||
|
(setq view-exit-action 'kill-buffer)
|
||||||
|
(message "Listing folders...done")))))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-pack-folder (range)
|
(defun mh-pack-folder (range)
|
||||||
|
|
@ -197,10 +207,10 @@ Otherwise just send the message's body without the headers."
|
||||||
|
|
||||||
|
|
||||||
(defun mh-print-msg (msg-or-seq)
|
(defun mh-print-msg (msg-or-seq)
|
||||||
"Print MESSAGE(s) (default: displayed message) on printer.
|
"Print MSG-OR-SEQ (default: displayed message) on printer.
|
||||||
If optional prefix argument provided, then prompt for the message sequence.
|
If optional prefix argument provided, then prompt for the message sequence.
|
||||||
The variable mh-lpr-command-format is used to generate the print command.
|
The variable `mh-lpr-command-format' is used to generate the print command.
|
||||||
The messages are formatted by mhl. See the variable mhl-formfile."
|
The messages are formatted by mhl. See the variable `mhl-formfile'."
|
||||||
(interactive (list (if current-prefix-arg
|
(interactive (list (if current-prefix-arg
|
||||||
(reverse (mh-seq-to-msgs
|
(reverse (mh-seq-to-msgs
|
||||||
(mh-read-seq-default "Print" t)))
|
(mh-read-seq-default "Print" t)))
|
||||||
|
|
@ -211,7 +221,7 @@ The messages are formatted by mhl. See the variable mhl-formfile."
|
||||||
(let ((print-command
|
(let ((print-command
|
||||||
(if (numberp msg-or-seq)
|
(if (numberp msg-or-seq)
|
||||||
(format "%s -nobell -clear %s %s | %s"
|
(format "%s -nobell -clear %s %s | %s"
|
||||||
(expand-file-name "mhl" mh-lib)
|
(expand-file-name "mhl" mh-lib-progs)
|
||||||
(mh-msg-filename msg-or-seq)
|
(mh-msg-filename msg-or-seq)
|
||||||
(if (stringp mhl-formfile)
|
(if (stringp mhl-formfile)
|
||||||
(format "-form %s" mhl-formfile)
|
(format "-form %s" mhl-formfile)
|
||||||
|
|
@ -223,7 +233,7 @@ The messages are formatted by mhl. See the variable mhl-formfile."
|
||||||
(format "Sequence from %s" mh-current-folder))))
|
(format "Sequence from %s" mh-current-folder))))
|
||||||
(format "(scan -clear %s ; %s -nobell -clear %s %s) | %s"
|
(format "(scan -clear %s ; %s -nobell -clear %s %s) | %s"
|
||||||
(mapconcat (function (lambda (msg) msg)) msg-or-seq " ")
|
(mapconcat (function (lambda (msg) msg)) msg-or-seq " ")
|
||||||
(expand-file-name "mhl" mh-lib)
|
(expand-file-name "mhl" mh-lib-progs)
|
||||||
(if (stringp mhl-formfile)
|
(if (stringp mhl-formfile)
|
||||||
(format "-form %s" mhl-formfile)
|
(format "-form %s" mhl-formfile)
|
||||||
"")
|
"")
|
||||||
|
|
@ -254,8 +264,8 @@ The messages are formatted by mhl. See the variable mhl-formfile."
|
||||||
(defun mh-sort-folder (&optional extra-args)
|
(defun mh-sort-folder (&optional extra-args)
|
||||||
"Sort the messages in the current folder by date.
|
"Sort the messages in the current folder by date.
|
||||||
Calls the MH program sortm to do the work.
|
Calls the MH program sortm to do the work.
|
||||||
The arguments in the list mh-sortm-args are passed to sortm
|
The arguments in the list `mh-sortm-args' are passed to sortm
|
||||||
if this function is passed an argument."
|
if the optional argument EXTRA-ARGS is given."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(mh-process-or-undo-commands mh-current-folder)
|
(mh-process-or-undo-commands mh-current-folder)
|
||||||
(setq mh-next-direction 'forward)
|
(setq mh-next-direction 'forward)
|
||||||
|
|
@ -267,7 +277,8 @@ if this function is passed an argument."
|
||||||
|
|
||||||
|
|
||||||
(defun mh-undo-folder (&rest ignore)
|
(defun mh-undo-folder (&rest ignore)
|
||||||
"Undo all pending deletes and refiles in current folder."
|
"Undo all pending deletes and refiles in current folder.
|
||||||
|
Argument IGNORE is deprecated."
|
||||||
(interactive)
|
(interactive)
|
||||||
(cond ((or mh-do-not-confirm
|
(cond ((or mh-do-not-confirm
|
||||||
(yes-or-no-p "Undo all commands in folder? "))
|
(yes-or-no-p "Undo all commands in folder? "))
|
||||||
|
|
@ -286,7 +297,7 @@ if this function is passed an argument."
|
||||||
"Store the file(s) contained in the current message into DIRECTORY.
|
"Store the file(s) contained in the current message into DIRECTORY.
|
||||||
The message can contain a shar file or uuencoded file.
|
The message can contain a shar file or uuencoded file.
|
||||||
Default directory is the last directory used, or initially the value of
|
Default directory is the last directory used, or initially the value of
|
||||||
mh-store-default-directory or the current directory."
|
`mh-store-default-directory' or the current directory."
|
||||||
(interactive (list (let ((udir (or mh-store-default-directory default-directory)))
|
(interactive (list (let ((udir (or mh-store-default-directory default-directory)))
|
||||||
(read-file-name "Store message in directory: "
|
(read-file-name "Store message in directory: "
|
||||||
udir udir nil))))
|
udir udir nil))))
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,11 @@
|
||||||
;;; mh-mime.el --- mh-e support for composing MIME messages
|
;;; mh-mime.el --- mh-e support for composing MIME messages
|
||||||
;; Time-stamp: <2001-07-15 09:52:45 pavel>
|
|
||||||
|
|
||||||
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
;; Copyright (C) 1993, 1995, 2001, 2002 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Maintainer: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Keywords: mail
|
||||||
|
;; See: mh-e.el
|
||||||
|
|
||||||
;; This file is part of GNU Emacs.
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
|
@ -28,14 +32,13 @@
|
||||||
|
|
||||||
;;; Change Log:
|
;;; Change Log:
|
||||||
|
|
||||||
;; $Id: mh-mime.el,v 1.8 1998/09/23 21:51:50 kwzh Exp $
|
;; $Id: mh-mime.el,v 1.26 2002/04/07 19:20:56 wohler Exp $
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(provide 'mh-mime)
|
(provide 'mh-mime)
|
||||||
(require 'mh-comp)
|
(require 'mh-comp)
|
||||||
|
|
||||||
|
|
||||||
;; To do:
|
;; To do:
|
||||||
;; paragraph code should not fill # lines if MIME enabled.
|
;; paragraph code should not fill # lines if MIME enabled.
|
||||||
;; implement mh-auto-edit-mhn (if non-nil, \\[mh-send-letter]
|
;; implement mh-auto-edit-mhn (if non-nil, \\[mh-send-letter]
|
||||||
|
|
@ -54,31 +57,96 @@ MH profile.")
|
||||||
(defvar mh-edit-mhn-hook nil
|
(defvar mh-edit-mhn-hook nil
|
||||||
"Invoked on the formatted letter by \\<mh-letter-mode-map>\\[mh-edit-mhn].")
|
"Invoked on the formatted letter by \\<mh-letter-mode-map>\\[mh-edit-mhn].")
|
||||||
|
|
||||||
;;;###autoload
|
(defun mh-have-file-command ()
|
||||||
|
"Return t if 'file' command is on the system.
|
||||||
|
'file -i' is used to get MIME type of composition insertion."
|
||||||
|
(when (not (boundp 'mh-have-file-command))
|
||||||
|
(load "executable" t t) ; executable-find not autoloaded in emacs20
|
||||||
|
(setq mh-have-file-command
|
||||||
|
(and (fboundp 'executable-find)
|
||||||
|
(executable-find "file") ; file command exists
|
||||||
|
; and accepts -i and -b args.
|
||||||
|
(zerop (call-process "file" nil nil nil "-i" "-b"
|
||||||
|
(expand-file-name "inc" mh-progs))))))
|
||||||
|
mh-have-file-command)
|
||||||
|
|
||||||
|
(defun mh-file-mime-type (filename)
|
||||||
|
"Return MIME type of FILENAME from file command.
|
||||||
|
Returns nil if file command not on system."
|
||||||
|
(cond
|
||||||
|
((not (mh-have-file-command))
|
||||||
|
nil) ;No file command, exit now.
|
||||||
|
((not (and (file-exists-p filename)(file-readable-p filename)))
|
||||||
|
nil)
|
||||||
|
(t
|
||||||
|
(save-excursion
|
||||||
|
(let ((tmp-buffer (get-buffer-create mh-temp-buffer)))
|
||||||
|
(set-buffer tmp-buffer)
|
||||||
|
(unwind-protect
|
||||||
|
(progn
|
||||||
|
(call-process "file" nil '(t nil) nil "-b" "-i"
|
||||||
|
(expand-file-name filename))
|
||||||
|
(goto-char (point-min))
|
||||||
|
(if (not (re-search-forward mh-media-type-regexp nil t))
|
||||||
|
nil
|
||||||
|
(match-string 0)))
|
||||||
|
(kill-buffer tmp-buffer)))))))
|
||||||
|
|
||||||
|
(defvar mh-mhn-compose-insert-p nil
|
||||||
|
"Buffer-local variable to know whether MIME insertion was done.
|
||||||
|
Triggers an automatic call to `mh-edit-mhn' in `mh-send-letter'.")
|
||||||
|
(make-variable-buffer-local 'mh-mhn-compose-insert-p)
|
||||||
|
|
||||||
|
;;; This is needed for Emacs20 which doesn't have mailcap-mime-types.
|
||||||
(defvar mh-mime-content-types
|
(defvar mh-mime-content-types
|
||||||
'(("text/plain") ("text/richtext")
|
'(("application/mac-binhex40") ("application/msword")
|
||||||
("multipart/mixed") ("multipart/alternative") ("multipart/digest")
|
("application/octet-stream") ("application/pdf") ("application/pgp-keys")
|
||||||
("multipart/parallel")
|
("application/pgp-signature") ("application/pkcs7-signature")
|
||||||
("message/rfc822") ("message/partial") ("message/external-body")
|
("application/postscript") ("application/rtf")
|
||||||
("application/octet-stream") ("application/postscript")
|
("application/vnd.ms-excel") ("application/vnd.ms-powerpoint")
|
||||||
("image/jpeg") ("image/gif")
|
("application/vnd.ms-project") ("application/vnd.ms-tnef")
|
||||||
("audio/basic")
|
("application/wordperfect5.1") ("application/wordperfect6.0")
|
||||||
("video/mpeg"))
|
("application/zip")
|
||||||
"Legal MIME content types. See documentation for \\[mh-edit-mhn].")
|
|
||||||
|
("audio/basic") ("audio/mpeg")
|
||||||
|
|
||||||
|
("image/gif") ("image/jpeg") ("image/png")
|
||||||
|
|
||||||
|
("message/delivery-status")
|
||||||
|
("message/external-body") ("message/partial") ("message/rfc822")
|
||||||
|
|
||||||
|
("text/enriched") ("text/html") ("text/plain") ("text/rfc822-headers")
|
||||||
|
("text/richtext") ("text/xml")
|
||||||
|
|
||||||
|
("video/mpeg") ("video/quicktime"))
|
||||||
|
"Legal MIME content types.
|
||||||
|
See documentation for \\[mh-edit-mhn].")
|
||||||
|
|
||||||
|
(defvar mh-media-type-regexp
|
||||||
|
(concat (regexp-opt '("text" "image" "audio" "video" "application"
|
||||||
|
"multipart" "message") t)
|
||||||
|
"/[-.+a-zA-Z0-9]+")
|
||||||
|
"Regexp matching valid media types used in MIME attachment compositions.")
|
||||||
|
|
||||||
(defun mh-mhn-compose-insertion (filename type description attributes)
|
(defun mh-mhn-compose-insertion (filename type description attributes)
|
||||||
"Add a directive to insert a MIME message part from a file.
|
"Add a directive to insert a MIME message part from a file.
|
||||||
This is the typical way to insert non-text parts in a message.
|
This is the typical way to insert non-text parts in a message. Arguments are
|
||||||
Arguments are FILENAME, which tells where to find the file, TYPE, the
|
FILENAME, which tells where to find the file, TYPE, the MIME content type,
|
||||||
MIME content type, and DESCRIPTION, a line of text for the
|
DESCRIPTION, a line of text for the Content-Description field. ATTRIBUTES is a
|
||||||
Content-description header. See also \\[mh-edit-mhn]."
|
comma separated list of name=value pairs that is appended to the Content-Type
|
||||||
(interactive (let ((filename (read-file-name "Insert contents of: ")))
|
field of the attachment.
|
||||||
|
See also \\[mh-edit-mhn]."
|
||||||
|
(interactive (let ((filename (read-file-name "Insert contents of: ")))
|
||||||
(list
|
(list
|
||||||
filename
|
filename
|
||||||
(completing-read "Content-type: "
|
(or (mh-file-mime-type filename)
|
||||||
mh-mime-content-types nil nil nil)
|
(completing-read "Content-Type: "
|
||||||
(read-string "Content-description: ")
|
(if (and (require 'mailcap nil t)
|
||||||
(read-string "Content-Attributes: "
|
(fboundp 'mailcap-mime-types))
|
||||||
|
(mapcar 'list (mailcap-mime-types))
|
||||||
|
mh-mime-content-types)))
|
||||||
|
(read-string "Content-Description: ")
|
||||||
|
(read-string "Content-Attributes: "
|
||||||
(concat "name=\""
|
(concat "name=\""
|
||||||
(file-name-nondirectory filename)
|
(file-name-nondirectory filename)
|
||||||
"\"")))))
|
"\"")))))
|
||||||
|
|
@ -86,6 +154,7 @@ Content-description header. See also \\[mh-edit-mhn]."
|
||||||
|
|
||||||
(defun mh-mhn-compose-type (filename type
|
(defun mh-mhn-compose-type (filename type
|
||||||
&optional description attributes comment)
|
&optional description attributes comment)
|
||||||
|
(setq mh-mhn-compose-insert-p t)
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(insert "#" type)
|
(insert "#" type)
|
||||||
(and attributes
|
(and attributes
|
||||||
|
|
@ -109,9 +178,12 @@ Content-description header. See also \\[mh-edit-mhn]."
|
||||||
(interactive (list
|
(interactive (list
|
||||||
(read-string "Remote host: ")
|
(read-string "Remote host: ")
|
||||||
(read-string "Remote filename: ")
|
(read-string "Remote filename: ")
|
||||||
(completing-read "External Content-type: "
|
(completing-read "External Content-Type: "
|
||||||
mh-mime-content-types nil nil nil)
|
(if (and (require 'mailcap nil t)
|
||||||
(read-string "External Content-description: ")))
|
(fboundp 'mailcap-mime-types))
|
||||||
|
(mapcar 'list (mailcap-mime-types))
|
||||||
|
mh-mime-content-types))
|
||||||
|
(read-string "External Content-Description: ")))
|
||||||
(mh-mhn-compose-external-type "anon-ftp" host filename
|
(mh-mhn-compose-external-type "anon-ftp" host filename
|
||||||
type description))
|
type description))
|
||||||
|
|
||||||
|
|
@ -136,6 +208,7 @@ See also \\[mh-edit-mhn]."
|
||||||
(defun mh-mhn-compose-external-type (access-type host filename type
|
(defun mh-mhn-compose-external-type (access-type host filename type
|
||||||
&optional description
|
&optional description
|
||||||
attributes extra-params comment)
|
attributes extra-params comment)
|
||||||
|
(setq mh-mhn-compose-insert-p t)
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(insert "#@" type)
|
(insert "#@" type)
|
||||||
(and attributes
|
(and attributes
|
||||||
|
|
@ -167,6 +240,7 @@ See also \\[mh-edit-mhn]."
|
||||||
(if mh-sent-from-msg
|
(if mh-sent-from-msg
|
||||||
(format " [%d]" mh-sent-from-msg)
|
(format " [%d]" mh-sent-from-msg)
|
||||||
"")))))
|
"")))))
|
||||||
|
(setq mh-mhn-compose-insert-p t)
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(insert "#forw [")
|
(insert "#forw [")
|
||||||
(and description
|
(and description
|
||||||
|
|
@ -187,35 +261,45 @@ See also \\[mh-edit-mhn]."
|
||||||
|
|
||||||
(defun mh-edit-mhn (&optional extra-args)
|
(defun mh-edit-mhn (&optional extra-args)
|
||||||
"Format the current draft for MIME, expanding any mhn directives.
|
"Format the current draft for MIME, expanding any mhn directives.
|
||||||
Process the current draft with the mhn program, which,
|
|
||||||
using directives already inserted in the draft, fills in
|
|
||||||
all the MIME components and header fields.
|
|
||||||
This step should be done last just before sending the message.
|
|
||||||
The mhn program is part of MH version 6.8 or later.
|
|
||||||
The `\\[mh-revert-mhn-edit]' command undoes this command.
|
|
||||||
The arguments in the list `mh-mhn-args' are passed to mhn
|
|
||||||
if this function is passed an argument.
|
|
||||||
|
|
||||||
For assistance with creating mhn directives to insert
|
Process the current draft with the mhn program, which, using directives
|
||||||
various types of components in a message, see
|
already inserted in the draft, fills in all the MIME components and header
|
||||||
\\[mh-mhn-compose-insertion] (generic insertion from a file),
|
fields.
|
||||||
\\[mh-mhn-compose-anon-ftp] (external reference to file via anonymous ftp),
|
|
||||||
\\[mh-mhn-compose-external-compressed-tar] \
|
This step should be done last just before sending the message.
|
||||||
\(reference to compressed tar file via anonymous ftp), and
|
|
||||||
\\[mh-mhn-compose-forw] (forward message)."
|
The `\\[mh-revert-mhn-edit]' command undoes this command. The arguments in the
|
||||||
|
list `mh-mhn-args' are passed to mhn if this function is passed an optional
|
||||||
|
prefix argument EXTRA-ARGS.
|
||||||
|
|
||||||
|
For assistance with creating mhn directives to insert various types of
|
||||||
|
components in a message, see \\[mh-mhn-compose-insertion] (generic insertion
|
||||||
|
from a file), \\[mh-mhn-compose-anon-ftp] (external reference to file via
|
||||||
|
anonymous ftp), \\[mh-mhn-compose-external-compressed-tar] \ \(reference to
|
||||||
|
compressed tar file via anonymous ftp), and \\[mh-mhn-compose-forw] (forward
|
||||||
|
message). If these helper functions are used, `mh-edit-mhn' is run
|
||||||
|
automatically when the draft is sent.
|
||||||
|
|
||||||
|
The mhn program is part of MH version 6.8 or later."
|
||||||
(interactive "*P")
|
(interactive "*P")
|
||||||
(save-buffer)
|
(save-buffer)
|
||||||
(message "mhn editing...")
|
(message "mhn editing...")
|
||||||
(mh-exec-cmd-error (format "mhdraft=%s" buffer-file-name)
|
(cond
|
||||||
"mhn" (if extra-args mh-mhn-args) buffer-file-name)
|
(mh-nmh-p
|
||||||
|
(mh-exec-cmd-error nil
|
||||||
|
"mhbuild" (if extra-args mh-mhn-args) buffer-file-name))
|
||||||
|
(t
|
||||||
|
(mh-exec-cmd-error (format "mhdraft=%s" buffer-file-name)
|
||||||
|
"mhn" (if extra-args mh-mhn-args) buffer-file-name)))
|
||||||
|
(setq mh-mhn-compose-insert-p nil)
|
||||||
(revert-buffer t t)
|
(revert-buffer t t)
|
||||||
(message "mhn editing...done")
|
(message "mhn editing...done")
|
||||||
(run-hooks 'mh-edit-mhn-hook))
|
(run-hooks 'mh-edit-mhn-hook))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-revert-mhn-edit (noconfirm)
|
(defun mh-revert-mhn-edit (noconfirm)
|
||||||
"Undoes the effect of \\[mh-edit-mhn] by reverting to the backup file.
|
"Undo the effect of \\[mh-edit-mhn] by reverting to the backup file.
|
||||||
Optional non-nil argument means don't ask for confirmation."
|
Optional non-nil argument NOCONFIRM means don't ask for confirmation."
|
||||||
(interactive "*P")
|
(interactive "*P")
|
||||||
(if (null buffer-file-name)
|
(if (null buffer-file-name)
|
||||||
(error "Buffer does not seem to be associated with any file"))
|
(error "Buffer does not seem to be associated with any file"))
|
||||||
|
|
@ -230,11 +314,11 @@ Optional non-nil argument means don't ask for confirmation."
|
||||||
".orig")))))
|
".orig")))))
|
||||||
(setq backup-strings (cdr backup-strings)))
|
(setq backup-strings (cdr backup-strings)))
|
||||||
(or backup-strings
|
(or backup-strings
|
||||||
(error "mhn backup file for %s no longer exists!" buffer-file-name))
|
(error "Backup file for %s no longer exists!" buffer-file-name))
|
||||||
(or noconfirm
|
(or noconfirm
|
||||||
(yes-or-no-p (format "Revert buffer from file %s? "
|
(yes-or-no-p (format "Revert buffer from file %s? "
|
||||||
backup-file))
|
backup-file))
|
||||||
(error "mhn edit revert not confirmed"))
|
(error "Revert not confirmed"))
|
||||||
(let ((buffer-read-only nil))
|
(let ((buffer-read-only nil))
|
||||||
(erase-buffer)
|
(erase-buffer)
|
||||||
(insert-file-contents backup-file))
|
(insert-file-contents backup-file))
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,11 @@
|
||||||
;;; mh-pick.el --- make a search pattern and search for a message in mh-e
|
;;; mh-pick.el --- make a search pattern and search for a message in mh-e
|
||||||
;; Time-stamp: <2001-12-20 18:55:31 pavel>
|
|
||||||
|
|
||||||
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
;; Copyright (C) 1993, 1995, 2001 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Maintainer: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Keywords: mail
|
||||||
|
;; See: mh-e.el
|
||||||
|
|
||||||
;; This file is part of GNU Emacs.
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
|
@ -26,12 +30,14 @@
|
||||||
|
|
||||||
;;; Change Log:
|
;;; Change Log:
|
||||||
|
|
||||||
;; $Id: mh-pick.el,v 1.6 2001/07/15 19:53:53 pj Exp $
|
;; $Id: mh-pick.el,v 1.11 2001/12/29 00:10:41 wohler Exp $
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(provide 'mh-pick)
|
(provide 'mh-pick)
|
||||||
(require 'mh-e)
|
(require 'mh-e)
|
||||||
|
(require 'easymenu)
|
||||||
|
(require 'gnus-util)
|
||||||
|
|
||||||
(defvar mh-pick-mode-hook nil
|
(defvar mh-pick-mode-hook nil
|
||||||
"Invoked in `mh-pick-mode' on a new pattern.")
|
"Invoked in `mh-pick-mode' on a new pattern.")
|
||||||
|
|
@ -71,29 +77,27 @@ Add the messages found to the sequence named `search'."
|
||||||
|
|
||||||
(put 'mh-pick-mode 'mode-class 'special)
|
(put 'mh-pick-mode 'mode-class 'special)
|
||||||
|
|
||||||
(defun mh-pick-mode ()
|
(define-derived-mode mh-pick-mode fundamental-mode "MH-Pick"
|
||||||
"Mode for creating search templates in mh-e.\\<mh-pick-mode-map>
|
"Mode for creating search templates in mh-e.\\<mh-pick-mode-map>
|
||||||
|
|
||||||
After each field name, enter the pattern to search for. If a field's
|
After each field name, enter the pattern to search for. If a field's
|
||||||
value does not matter for the search, leave it empty. To search the
|
value does not matter for the search, leave it empty. To search the
|
||||||
entire message, supply the pattern in the \"body\" of the template.
|
entire message, supply the pattern in the \"body\" of the template.
|
||||||
Each non-empty field must be matched for a message to be selected.
|
Each non-empty field must be matched for a message to be selected.
|
||||||
To effect a logical \"or\", use \\[mh-search-folder] multiple times.
|
To effect a logical \"or\", use \\[mh-search-folder] multiple times.
|
||||||
When you have finished, type \\[mh-do-pick-search] to do the search.
|
When you have finished, type \\[mh-do-pick-search] to do the search.
|
||||||
\\{mh-pick-mode-map}
|
|
||||||
Turning on mh-pick-mode calls the value of the variable mh-pick-mode-hook
|
This mode runs the hook `mh-pick-mode-hook'.
|
||||||
if that value is non-nil."
|
|
||||||
(interactive)
|
\\{mh-pick-mode-map}"
|
||||||
(kill-all-local-variables)
|
|
||||||
(make-local-variable 'mh-searching-folder)
|
(make-local-variable 'mh-searching-folder)
|
||||||
(use-local-map mh-pick-mode-map)
|
(easy-menu-add mh-pick-menu))
|
||||||
(setq major-mode 'mh-pick-mode)
|
|
||||||
(mh-set-mode-name "MH-Pick")
|
|
||||||
(run-hooks 'mh-pick-mode-hook))
|
|
||||||
|
|
||||||
|
|
||||||
(defun mh-do-pick-search ()
|
(defun mh-do-pick-search ()
|
||||||
"Find messages that match the qualifications in the current pattern buffer.
|
"Find messages that match the qualifications in the current pattern buffer.
|
||||||
Messages are searched for in the folder named in mh-searching-folder.
|
Messages are searched for in the folder named in `mh-searching-folder'.
|
||||||
Add the messages found to the sequence named `search'."
|
Add the messages found to the sequence named `search'."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((pattern-buffer (buffer-name))
|
(let ((pattern-buffer (buffer-name))
|
||||||
|
|
@ -154,7 +158,7 @@ Add the messages found to the sequence named `search'."
|
||||||
;; Return the next piece of a pick argument that can be extracted from the
|
;; Return the next piece of a pick argument that can be extracted from the
|
||||||
;; BUFFER.
|
;; BUFFER.
|
||||||
;; Return a list like ("--fieldname" "pattern") or ("-search" "bodypat")
|
;; Return a list like ("--fieldname" "pattern") or ("-search" "bodypat")
|
||||||
;; or nil if no pieces remain.
|
;; or NIL if no pieces remain.
|
||||||
(set-buffer buffer)
|
(set-buffer buffer)
|
||||||
(let ((case-fold-search t))
|
(let ((case-fold-search t))
|
||||||
(cond ((eobp)
|
(cond ((eobp)
|
||||||
|
|
@ -177,21 +181,27 @@ Add the messages found to the sequence named `search'."
|
||||||
nil))))
|
nil))))
|
||||||
|
|
||||||
;;; Build the pick-mode keymap:
|
;;; Build the pick-mode keymap:
|
||||||
|
(gnus-define-keys mh-pick-mode-map
|
||||||
|
"\C-c\C-c" mh-do-pick-search
|
||||||
|
"\C-c\C-f\C-b" mh-to-field
|
||||||
|
"\C-c\C-f\C-c" mh-to-field
|
||||||
|
"\C-c\C-f\C-d" mh-to-field
|
||||||
|
"\C-c\C-f\C-f" mh-to-field
|
||||||
|
"\C-c\C-f\C-r" mh-to-field
|
||||||
|
"\C-c\C-f\C-s" mh-to-field
|
||||||
|
"\C-c\C-f\C-t" mh-to-field
|
||||||
|
"\C-c\C-fb" mh-to-field
|
||||||
|
"\C-c\C-fc" mh-to-field
|
||||||
|
"\C-c\C-fd" mh-to-field
|
||||||
|
"\C-c\C-ff" mh-to-field
|
||||||
|
"\C-c\C-fr" mh-to-field
|
||||||
|
"\C-c\C-fs" mh-to-field
|
||||||
|
"\C-c\C-ft" mh-to-field)
|
||||||
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-c" 'mh-do-pick-search)
|
;;; Menu extracted from mh-menubar.el V1.1 (31 July 2001)
|
||||||
(define-key mh-pick-mode-map "\C-c\C-f\C-b" 'mh-to-field)
|
(easy-menu-define
|
||||||
(define-key mh-pick-mode-map "\C-c\C-f\C-c" 'mh-to-field)
|
mh-pick-menu mh-pick-mode-map "Menu for mh-e pick-mode"
|
||||||
(define-key mh-pick-mode-map "\C-c\C-f\C-d" 'mh-to-field)
|
'("Pick"
|
||||||
(define-key mh-pick-mode-map "\C-c\C-f\C-f" 'mh-to-field)
|
["Execute the Search" mh-do-pick-search t]))
|
||||||
(define-key mh-pick-mode-map "\C-c\C-f\C-r" 'mh-to-field)
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-f\C-s" 'mh-to-field)
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-f\C-t" 'mh-to-field)
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-fb" 'mh-to-field)
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-fc" 'mh-to-field)
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-fd" 'mh-to-field)
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-ff" 'mh-to-field)
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-fr" 'mh-to-field)
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-fs" 'mh-to-field)
|
|
||||||
(define-key mh-pick-mode-map "\C-c\C-ft" 'mh-to-field)
|
|
||||||
|
|
||||||
;;; mh-pick.el ends here
|
;;; mh-pick.el ends here
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,11 @@
|
||||||
;;; mh-seq.el --- mh-e sequences support
|
;;; mh-seq.el --- mh-e sequences support
|
||||||
;; Time-stamp: <2001-07-14 13:10:33 pavel>
|
|
||||||
|
|
||||||
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
;; Copyright (C) 1993, 1995, 2001, 2002 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Maintainer: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Keywords: mail
|
||||||
|
;; See: mh-e.el
|
||||||
|
|
||||||
;; This file is part of GNU Emacs.
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
|
@ -26,7 +30,7 @@
|
||||||
|
|
||||||
;;; Change Log:
|
;;; Change Log:
|
||||||
|
|
||||||
;; $Id: mh-seq.el,v 1.6 1996/01/29 23:16:57 kwzh Exp $
|
;; $Id: mh-seq.el,v 1.14 2002/04/07 19:20:56 wohler Exp $
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
|
|
@ -53,7 +57,7 @@
|
||||||
"List the sequences defined in FOLDER."
|
"List the sequences defined in FOLDER."
|
||||||
(interactive (list (mh-prompt-for-folder "List sequences in"
|
(interactive (list (mh-prompt-for-folder "List sequences in"
|
||||||
mh-current-folder t)))
|
mh-current-folder t)))
|
||||||
(let ((temp-buffer mh-temp-buffer)
|
(let ((temp-buffer mh-temp-sequences-buffer)
|
||||||
(seq-list mh-seq-list))
|
(seq-list mh-seq-list))
|
||||||
(with-output-to-temp-buffer temp-buffer
|
(with-output-to-temp-buffer temp-buffer
|
||||||
(save-excursion
|
(save-excursion
|
||||||
|
|
@ -78,6 +82,8 @@
|
||||||
(insert "\n"))
|
(insert "\n"))
|
||||||
(setq seq-list (cdr seq-list)))
|
(setq seq-list (cdr seq-list)))
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
(view-mode 1)
|
||||||
|
(setq view-exit-action 'kill-buffer)
|
||||||
(message "Listing sequences...done")))))
|
(message "Listing sequences...done")))))
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -106,13 +112,16 @@ Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command."
|
||||||
(setq mh-mode-line-annotation (symbol-name sequence))
|
(setq mh-mode-line-annotation (symbol-name sequence))
|
||||||
(mh-make-folder-mode-line)
|
(mh-make-folder-mode-line)
|
||||||
(mh-recenter nil)
|
(mh-recenter nil)
|
||||||
|
(if (and (boundp 'tool-bar-mode) tool-bar-mode)
|
||||||
|
(set (make-local-variable 'tool-bar-map)
|
||||||
|
mh-folder-seq-tool-bar-map))
|
||||||
(setq mh-narrowed-to-seq sequence)))
|
(setq mh-narrowed-to-seq sequence)))
|
||||||
(t
|
(t
|
||||||
(error "No messages in sequence `%s'" (symbol-name sequence))))))
|
(error "No messages in sequence `%s'" (symbol-name sequence))))))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-put-msg-in-seq (msg-or-seq sequence)
|
(defun mh-put-msg-in-seq (msg-or-seq sequence)
|
||||||
"Add MESSAGE(s) (default: displayed message) to SEQUENCE.
|
"Add MSG-OR-SEQ (default: displayed message) to SEQUENCE.
|
||||||
If optional prefix argument provided, then prompt for the message sequence."
|
If optional prefix argument provided, then prompt for the message sequence."
|
||||||
(interactive (list (if current-prefix-arg
|
(interactive (list (if current-prefix-arg
|
||||||
(mh-read-seq-default "Add messages from" t)
|
(mh-read-seq-default "Add messages from" t)
|
||||||
|
|
@ -129,14 +138,42 @@ If optional prefix argument provided, then prompt for the message sequence."
|
||||||
(defun mh-widen ()
|
(defun mh-widen ()
|
||||||
"Remove restrictions from current folder, thereby showing all messages."
|
"Remove restrictions from current folder, thereby showing all messages."
|
||||||
(interactive)
|
(interactive)
|
||||||
(if mh-narrowed-to-seq
|
(let ((msg (mh-get-msg-num nil)))
|
||||||
|
(when mh-narrowed-to-seq
|
||||||
(with-mh-folder-updating (t)
|
(with-mh-folder-updating (t)
|
||||||
(delete-region (point-min) (point-max))
|
(delete-region (point-min) (point-max))
|
||||||
(widen)
|
(widen)
|
||||||
(setq mh-mode-line-annotation mh-non-seq-mode-line-annotation)
|
(setq mh-mode-line-annotation mh-non-seq-mode-line-annotation)
|
||||||
(mh-make-folder-mode-line)))
|
(mh-make-folder-mode-line))
|
||||||
|
(if msg
|
||||||
|
(mh-goto-msg msg t nil))))
|
||||||
|
(mh-notate-deleted-and-refiled)
|
||||||
|
(if (and (boundp 'tool-bar-mode) tool-bar-mode)
|
||||||
|
(set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map))
|
||||||
(setq mh-narrowed-to-seq nil))
|
(setq mh-narrowed-to-seq nil))
|
||||||
|
|
||||||
|
|
||||||
|
;; FIXME? We may want to clear all notations and add one for current-message
|
||||||
|
;; and process user sequences.
|
||||||
|
(defun mh-notate-deleted-and-refiled ()
|
||||||
|
;; notate the sequence 'deleted as well as all the sequences in
|
||||||
|
;; mh-refile-list.
|
||||||
|
;;
|
||||||
|
;; First, the 'deleted sequence is straightforward
|
||||||
|
(mh-notate-seq 'deleted mh-note-deleted mh-cmd-note)
|
||||||
|
;; Second, refiles are stored in multiple sequences, one for each folder
|
||||||
|
;; name to refile to. This list of buffer names is stored in
|
||||||
|
;; mh-refile-list
|
||||||
|
(mh-mapc
|
||||||
|
(function
|
||||||
|
(lambda (dest)
|
||||||
|
;; foreach folder name, get the keyed sequence from mh-seq-list
|
||||||
|
(let ((msg-list (cdr (assoc dest mh-seq-list))))
|
||||||
|
(mapcar (lambda (msg)
|
||||||
|
;; foreach msg in a sequence, do the mh-notate
|
||||||
|
(mh-notate msg mh-note-refiled mh-cmd-note))
|
||||||
|
msg-list))))
|
||||||
|
mh-refile-list))
|
||||||
|
|
||||||
|
|
||||||
;;; Commands to manipulate sequences. Sequences are stored in an alist
|
;;; Commands to manipulate sequences. Sequences are stored in an alist
|
||||||
|
|
@ -235,4 +272,118 @@ If optional prefix argument provided, then prompt for the message sequence."
|
||||||
(goto-char location)
|
(goto-char location)
|
||||||
(insert-buffer-substring (current-buffer) beginning-of-line end))))
|
(insert-buffer-substring (current-buffer) beginning-of-line end))))
|
||||||
|
|
||||||
|
(defun mh-region-to-sequence (begin end)
|
||||||
|
"Define sequence 'region as the messages between point and mark.
|
||||||
|
When called programmatically, use arguments BEGIN and END to define region."
|
||||||
|
(interactive "r")
|
||||||
|
(mh-delete-seq-locally 'region)
|
||||||
|
(save-excursion
|
||||||
|
(goto-char begin)
|
||||||
|
(while (<= (point) end)
|
||||||
|
(mh-add-msgs-to-seq (mh-get-msg-num t) 'region t)
|
||||||
|
(forward-line 1))))
|
||||||
|
|
||||||
|
|
||||||
|
;;; Commands to handle new 'subject sequence.
|
||||||
|
;;; Or "Poor man's threading" by psg.
|
||||||
|
(defun mh-subject-thread-to-sequence (all)
|
||||||
|
"Put all following messages with same subject in sequence 'subject.
|
||||||
|
If arg ALL is t, move to beginning of folder buffer to collect all messages.
|
||||||
|
If arg ALL is nil, collect only messages fron current one on forward.
|
||||||
|
Return number of messages put in the sequence:
|
||||||
|
nil -> there was no subject line.
|
||||||
|
0 -> there were no later messages with the same subject (sequence not made)
|
||||||
|
>1 -> the total number of messages including current one."
|
||||||
|
(if (not (eq major-mode 'mh-folder-mode))
|
||||||
|
(error "Not in a folder buffer"))
|
||||||
|
(save-excursion
|
||||||
|
(beginning-of-line)
|
||||||
|
(if (or (not (looking-at mh-scan-subject-regexp))
|
||||||
|
(not (match-string 2))
|
||||||
|
(string-equal "" (match-string 2)))
|
||||||
|
(progn (message "No subject line.")
|
||||||
|
nil)
|
||||||
|
(let ((subject (match-string-no-properties 2))
|
||||||
|
(end (point-max))
|
||||||
|
(list))
|
||||||
|
(if (> (length subject) 41)
|
||||||
|
(setq subject (substring subject 0 41)))
|
||||||
|
(save-excursion
|
||||||
|
(if all
|
||||||
|
(goto-char (point-min)))
|
||||||
|
(while (re-search-forward mh-scan-subject-regexp nil t)
|
||||||
|
(let ((this-subject (match-string-no-properties 2)))
|
||||||
|
(if (> (length this-subject) 41)
|
||||||
|
(setq this-subject (substring this-subject 0 41)))
|
||||||
|
(if (string-equal this-subject subject)
|
||||||
|
(setq list (cons (mh-get-msg-num t) list))))))
|
||||||
|
(cond
|
||||||
|
(list
|
||||||
|
;; If we created a new sequence, add the initial message to it too.
|
||||||
|
(if (not (member (mh-get-msg-num t) list))
|
||||||
|
(setq list (cons (mh-get-msg-num t) list)))
|
||||||
|
(mh-delete-seq-locally 'subject)
|
||||||
|
;; sort the result into a sequence
|
||||||
|
(let ((sorted-list (sort (copy-sequence list) 'mh-lessp))
|
||||||
|
(msg))
|
||||||
|
(while sorted-list
|
||||||
|
(mh-add-msgs-to-seq (car sorted-list) 'subject t)
|
||||||
|
(setq sorted-list (cdr sorted-list)))
|
||||||
|
(safe-length list)))
|
||||||
|
(t
|
||||||
|
0))))))
|
||||||
|
|
||||||
|
(defun mh-narrow-to-subject-thread ()
|
||||||
|
"Narrow to a sequence containing all following messages with same subject."
|
||||||
|
(interactive)
|
||||||
|
(let ((num (mh-get-msg-num nil))
|
||||||
|
(count (mh-subject-thread-to-sequence t)))
|
||||||
|
(cond
|
||||||
|
((not count) ; No subject line, delete msg anyway
|
||||||
|
nil)
|
||||||
|
((= 0 count) ; No other msgs, delete msg anyway.
|
||||||
|
(message "No other messages with same Subject following this one.")
|
||||||
|
nil)
|
||||||
|
(t ; We have a subject sequence.
|
||||||
|
(message "Found %d messages for subject sequence." count)
|
||||||
|
(mh-narrow-to-seq 'subject)
|
||||||
|
(if (numberp num)
|
||||||
|
(mh-goto-msg num t t))))))
|
||||||
|
|
||||||
|
(defun mh-toggle-subject-thread ()
|
||||||
|
"Narrow to or widen from a sequence containing current subject sequence."
|
||||||
|
(interactive)
|
||||||
|
(if (and (stringp mh-mode-line-annotation)
|
||||||
|
(string-equal mh-mode-line-annotation "subject"))
|
||||||
|
(progn
|
||||||
|
(goto-char (point-min))
|
||||||
|
(mh-widen))
|
||||||
|
(mh-narrow-to-subject-thread)))
|
||||||
|
|
||||||
|
(defun mh-delete-subject-thread ()
|
||||||
|
"Mark all following messages with same subject to be deleted."
|
||||||
|
(interactive)
|
||||||
|
(let ((count (mh-subject-thread-to-sequence nil)))
|
||||||
|
(cond
|
||||||
|
((not count) ; No subject line, delete msg anyway
|
||||||
|
(mh-delete-msg (mh-get-msg-num t)))
|
||||||
|
((= 0 count) ; No other msgs, delete msg anyway.
|
||||||
|
(message "No other messages with same Subject following this one.")
|
||||||
|
(mh-delete-msg (mh-get-msg-num t)))
|
||||||
|
(t ; We have a subject sequence.
|
||||||
|
(message "Marked %d messages for deletion" count)
|
||||||
|
(mh-delete-msg 'subject)))))
|
||||||
|
|
||||||
|
(defun mh-next-unseen-subject-thread ()
|
||||||
|
"Get the next unseen subject thread."
|
||||||
|
(interactive)
|
||||||
|
(if (and mh-mode-line-annotation
|
||||||
|
(string-equal mh-mode-line-annotation "subject"))
|
||||||
|
(goto-char (point-min)))
|
||||||
|
(if (or (not mh-mode-line-annotation)
|
||||||
|
(not (string-equal mh-mode-line-annotation "unseen")))
|
||||||
|
(mh-narrow-to-seq 'unseen))
|
||||||
|
(mh-next-undeleted-msg)
|
||||||
|
(mh-narrow-to-subject-thread))
|
||||||
|
|
||||||
;;; mh-seq.el ends here
|
;;; mh-seq.el ends here
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,11 @@
|
||||||
;;; mh-utils.el --- mh-e code needed for both sending and reading
|
;;; mh-utils.el --- mh-e code needed for both sending and reading
|
||||||
|
|
||||||
;; Copyright (C) 1993, 1995, 1997, 2000, 2001 Free Software Foundation, Inc.
|
;; Copyright (C) 1993, 1995, 1997, 2000, 2001, 2002 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Maintainer: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Keywords: mail
|
||||||
|
;; See: mh-e.el
|
||||||
|
|
||||||
;; This file is part of GNU Emacs.
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
|
@ -23,8 +28,26 @@
|
||||||
|
|
||||||
;; Internal support for mh-e package.
|
;; Internal support for mh-e package.
|
||||||
|
|
||||||
|
;;; Change Log:
|
||||||
|
|
||||||
|
;; $Id: mh-utils.el,v 1.79 2002/04/07 19:20:56 wohler Exp $
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
|
(load "executable" t t) ; Non-fatal dependency on
|
||||||
|
; executable-find
|
||||||
|
|
||||||
|
;;; Autoload mh-seq
|
||||||
|
|
||||||
|
(autoload 'mh-add-to-sequence "mh-seq")
|
||||||
|
(autoload 'mh-notate-seq "mh-seq")
|
||||||
|
(autoload 'mh-read-seq-default "mh-seq")
|
||||||
|
(autoload 'mh-map-to-seq-msgs "mh-seq")
|
||||||
|
|
||||||
|
;;; Other Autoloads
|
||||||
|
|
||||||
|
(autoload 'mail-header-end "sendmail")
|
||||||
|
|
||||||
;;; Set for local environment:
|
;;; Set for local environment:
|
||||||
;;; mh-progs and mh-lib used to be set in paths.el, which tried to
|
;;; mh-progs and mh-lib used to be set in paths.el, which tried to
|
||||||
;;; figure out at build time which of several possible directories MH
|
;;; figure out at build time which of several possible directories MH
|
||||||
|
|
@ -41,11 +64,11 @@ the components file.")
|
||||||
|
|
||||||
(defvar mh-lib-progs nil
|
(defvar mh-lib-progs nil
|
||||||
"Directory containing MH helper programs.
|
"Directory containing MH helper programs.
|
||||||
This directory contains, among other things,
|
This directory contains, among other things,
|
||||||
the mhl program.")
|
the mhl program.")
|
||||||
|
|
||||||
(defvar mh-nmh-p nil
|
(defvar mh-nmh-p nil
|
||||||
"Non-nil if nmh is installed on this system instead of MH")
|
"Non-nil if nmh is installed on this system instead of MH.")
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(put 'mh-progs 'risky-local-variable t)
|
(put 'mh-progs 'risky-local-variable t)
|
||||||
|
|
@ -76,7 +99,7 @@ folders as soon as mh-e is loaded."
|
||||||
:type 'boolean
|
:type 'boolean
|
||||||
:group 'mh)
|
:group 'mh)
|
||||||
|
|
||||||
(defcustom mh-clean-message-header nil
|
(defcustom mh-clean-message-header t
|
||||||
"*Non-nil means clean headers of messages that are displayed or inserted.
|
"*Non-nil means clean headers of messages that are displayed or inserted.
|
||||||
The variables `mh-visible-headers' and `mh-invisible-headers' control what
|
The variables `mh-visible-headers' and `mh-invisible-headers' control what
|
||||||
is removed."
|
is removed."
|
||||||
|
|
@ -91,33 +114,108 @@ overrides `mh-invisible-headers'."
|
||||||
:group 'mh-buffer)
|
:group 'mh-buffer)
|
||||||
|
|
||||||
(defvar mh-invisible-headers
|
(defvar mh-invisible-headers
|
||||||
"^Received: \\|^Message-Id: \\|^Remailed-\\|^Via: \\|^Mail-from: \\|^Return-Path: \\|^Delivery-Date: \\|^In-Reply-To: \\|^Resent-"
|
(concat
|
||||||
"Regexp matching lines in a message header that are not to be shown.
|
"^"
|
||||||
|
(let ((max-specpdl-size 1000)) ;workaround for insufficient default
|
||||||
|
(regexp-opt
|
||||||
|
'( ;; RFC 822
|
||||||
|
"Received: " "Message-Id: " "Return-Path: "
|
||||||
|
;; RFC 2045
|
||||||
|
"Mime-Version" "Content-"
|
||||||
|
;; sendmail
|
||||||
|
"X-Authentication-Warning: " "X-MIME-Autoconverted: " "From "
|
||||||
|
"Status: "
|
||||||
|
;; X400
|
||||||
|
"X400-" "P1-Message-Id: " "Original-Encoded-Information-Types: "
|
||||||
|
"P1-Recipient: " "P1-Content-Type: " "Ua-Content-Id: "
|
||||||
|
;; MH
|
||||||
|
"Resent" "Prev-Resent" "Forwarded: " "Replied: " "Delivery-Date: "
|
||||||
|
"In-Reply-To: " "Remailed-" "Via: " "Mail-from: "
|
||||||
|
;; gnus
|
||||||
|
"X-Gnus-Mail-Source: "
|
||||||
|
;; MS Outlook
|
||||||
|
"X-Priority: " "X-Msmail-" "X-MimeOLE: " "X-Apparently-From: "
|
||||||
|
"Importance: " "Sensitivity: " "X-MS-TNEF-Correlator: "
|
||||||
|
;; Juno
|
||||||
|
"X-Juno-"
|
||||||
|
;; Hotmail
|
||||||
|
"X-OriginalArrivalTime: " "X-Originating-IP: "
|
||||||
|
;; Netscape/Mozilla
|
||||||
|
"X-Accept-Language: " "X-Mozilla-Status: "
|
||||||
|
;; NTMail
|
||||||
|
"X-Info: " "X-VSMLoop: "
|
||||||
|
;; News
|
||||||
|
"NNTP-" "X-News: "
|
||||||
|
;; Mailman mailing list manager
|
||||||
|
"List-" "X-Beenthere: " "X-Mailman-Version: "
|
||||||
|
;; Egroups/yahoogroups mailing list manager
|
||||||
|
"X-eGroups-" "X-Apparently-To: " "Mailing-List: " "Delivered-To: "
|
||||||
|
;; SourceForge mailing list manager
|
||||||
|
"X-Original-Date: "
|
||||||
|
;; Unknown mailing list managers
|
||||||
|
"X-Mailing-List: " "X-Loop: "
|
||||||
|
"List-Subscribe: " "List-Unsubscribe: "
|
||||||
|
"X-List-Subscribe: " "X-List-Unsubscribe: "
|
||||||
|
"X-Listserver: " "List-" "X-List-Host: "
|
||||||
|
;; Sieve filtering
|
||||||
|
"X-Sieve: "
|
||||||
|
;; Worldtalk gateways
|
||||||
|
"X-Wss-Id: "
|
||||||
|
;; User added
|
||||||
|
"X-Face: " "X-Qotd-"
|
||||||
|
;; Miscellaneous
|
||||||
|
"X-Sender: " "X-Ack: " "Errors-To: " "Precedence: " "X-Message-Id"
|
||||||
|
"X-From-Line" "X-Cron-Env: " "Delivery: " "X-Delivered"
|
||||||
|
"X-Received: " "X-Vms-To: " "Xref: " "X-Request-" "X-UIDL: "
|
||||||
|
"X-Orcl-Content-Type: " "X-Server-Uuid: " "X-Envelope-Sender: "
|
||||||
|
"X-Envelope-To: " "Encoding: " "Old-Return-Path: " "Path: "
|
||||||
|
"References: " "Lines: " "Autoforwarded: " "Bestservhost: "
|
||||||
|
"X-pgp: " "X-Accept-Language: " "Priority: " "User-Agent: "
|
||||||
|
"X-MIMETrack: " "X-Abuse-Info: " "X-Complaints-To: "
|
||||||
|
"X-No-Archive: " "X-Original-Complaints-To: "
|
||||||
|
"X-Original-Trace: " "X-Received-Date: " "X-Server-Date: "
|
||||||
|
"X-Trace: " "X-UserInfo1: " "X-submission-address: ")
|
||||||
|
t)))
|
||||||
|
"*Regexp matching lines in a message header that are not to be shown.
|
||||||
If `mh-visible-headers' is non-nil, it is used instead to specify what
|
If `mh-visible-headers' is non-nil, it is used instead to specify what
|
||||||
to keep.")
|
to keep.")
|
||||||
|
|
||||||
|
;;; Additional header fields that might someday be added:
|
||||||
|
;;; "Sender: " "Reply-to: "
|
||||||
|
|
||||||
(defcustom mh-bury-show-buffer t
|
(defcustom mh-bury-show-buffer t
|
||||||
"*Non-nil means that the displayed show buffer for a folder is buried."
|
"*Non-nil means that the displayed show buffer for a folder is buried."
|
||||||
:type 'boolean
|
:type 'boolean
|
||||||
:group 'mh-buffer)
|
:group 'mh-buffer)
|
||||||
|
|
||||||
(defcustom mh-summary-height 4
|
(defcustom mh-summary-height (or (and (fboundp 'frame-height)
|
||||||
|
(> (frame-height) 24)
|
||||||
|
(min 10 (/ (frame-height) 6)))
|
||||||
|
4)
|
||||||
"*Number of lines in MH-Folder window (including the mode line)."
|
"*Number of lines in MH-Folder window (including the mode line)."
|
||||||
:type 'integer
|
:type 'integer
|
||||||
:group 'mh-buffer)
|
:group 'mh-buffer)
|
||||||
|
|
||||||
(defvar mh-msg-number-regexp "^ *\\([0-9]+\\)"
|
;; Use goto-addr if it was already loaded (which probably sets this
|
||||||
|
;; variable to t), or if this variable is otherwise set to t.
|
||||||
|
(defcustom mh-show-use-goto-addr (and (boundp 'goto-address-highlight-p)
|
||||||
|
goto-address-highlight-p)
|
||||||
|
"*Non-nil means URLs and e-mail addresses are highlighted using goto-addr while in mh-show-mode."
|
||||||
|
:type 'boolean
|
||||||
|
:group 'mh-buffer)
|
||||||
|
|
||||||
|
(defvar mh-scan-msg-number-regexp "^ *\\([0-9]+\\)"
|
||||||
"Regexp to find the number of a message in a scan line.
|
"Regexp to find the number of a message in a scan line.
|
||||||
The message's number must be surrounded with \\( \\)")
|
The message's number must be surrounded with \\( \\)")
|
||||||
|
|
||||||
(defvar mh-msg-search-regexp "^[^0-9]*%d[^0-9]"
|
(defvar mh-scan-msg-search-regexp "^[^0-9]*%d[^0-9]"
|
||||||
"Format string containing a regexp matching the scan listing for a message.
|
"Format string containing a regexp matching the scan listing for a message.
|
||||||
The desired message's number will be an argument to format.")
|
The desired message's number will be an argument to format.")
|
||||||
|
|
||||||
(defcustom mhl-formfile nil
|
(defcustom mhl-formfile nil
|
||||||
"*Name of format file to be used by mhl to show and print messages.
|
"*Name of format file to be used by mhl to show and print messages.
|
||||||
A value of t means use the default format file.
|
A value of T means use the default format file.
|
||||||
nil means don't use mhl to format messages when showing; mhl is still used,
|
Nil means don't use mhl to format messages when showing; mhl is still used,
|
||||||
with the default format file, to format messages when printing them.
|
with the default format file, to format messages when printing them.
|
||||||
The format used should specify a non-zero value for overflowoffset so
|
The format used should specify a non-zero value for overflowoffset so
|
||||||
the message continues to conform to RFC 822 and mh-e can parse the headers."
|
the message continues to conform to RFC 822 and mh-e can parse the headers."
|
||||||
|
|
@ -125,20 +223,55 @@ the message continues to conform to RFC 822 and mh-e can parse the headers."
|
||||||
:group 'mh)
|
:group 'mh)
|
||||||
(put 'mhl-formfile 'info-file "mh-e")
|
(put 'mhl-formfile 'info-file "mh-e")
|
||||||
|
|
||||||
|
(defvar mh-decode-quoted-printable-have-mimedecode
|
||||||
|
(not (null (and (fboundp 'executable-find)(executable-find "mimedecode"))))
|
||||||
|
"Whether the mimedecode command is installed on the system.
|
||||||
|
This sets the default value of variable `mh-decode-quoted-printable' to
|
||||||
|
determine whether quoted-printable MIME parts are decode when viewed in
|
||||||
|
`mh-show'. The source code for mimedecode can be obtained from
|
||||||
|
http://www.freesoft.org/CIE/FAQ/mimedeco.c")
|
||||||
|
|
||||||
|
(defcustom mh-decode-quoted-printable
|
||||||
|
mh-decode-quoted-printable-have-mimedecode
|
||||||
|
"Whether to decode quoted-printable MIME parts in `mh-show'.
|
||||||
|
This can only be done if the 'mimedecode' command is available in the
|
||||||
|
executable path on the system (the mh-decode-quoted-printable-have-mimedecode
|
||||||
|
variable is set if the command was found). That program is used as a helper
|
||||||
|
program to achieve this. The source code for mimedecode can usually be
|
||||||
|
obtained from http://www.freesoft.org/CIE/FAQ/mimedeco.c"
|
||||||
|
:type 'boolean
|
||||||
|
:group 'mh-buffer)
|
||||||
|
|
||||||
|
(defcustom mh-update-sequences-after-mh-show t
|
||||||
|
"Whether to call `mh-update-sequence' in `mh-show-mode'.
|
||||||
|
If set, `mh-update-sequence' is run every time a message is shown, telling
|
||||||
|
MH or nmh that this is your current message. It's useful, for example, to
|
||||||
|
display MIME content using \"M-! mhshow RET\""
|
||||||
|
:type 'boolean
|
||||||
|
:group 'mh-buffer)
|
||||||
|
|
||||||
|
(defcustom mh-highlight-citation-p 'gnus
|
||||||
|
"How to highlight citations in show buffers.
|
||||||
|
The gnus method uses a different color for each indentation."
|
||||||
|
:type '(choice (const :tag "Use gnus" gnus)
|
||||||
|
(const :tag "Use font-lock" font-lock)
|
||||||
|
(const :tag "Don't fontify" nil))
|
||||||
|
:group 'mh-buffer)
|
||||||
|
|
||||||
(defvar mh-default-folder-for-message-function nil
|
(defvar mh-default-folder-for-message-function nil
|
||||||
"Function to select a default folder for refiling or Fcc.
|
"Function to select a default folder for refiling or Fcc.
|
||||||
If set to a function, that function is called with no arguments by
|
If set to a function, that function is called with no arguments by
|
||||||
`\\[mh-refile-msg]' and `\\[mh-to-fcc]' to get a default when
|
`\\[mh-refile-msg]' and `\\[mh-to-fcc]' to get a default when
|
||||||
prompting the user for a folder. The function is called from within a
|
prompting the user for a folder. The function is called from within a
|
||||||
save-excursion, with point at the start of the message. It should
|
`save-excursion', with point at the start of the message. It should
|
||||||
return the folder to offer as the refile or Fcc folder, as a string
|
return the folder to offer as the refile or Fcc folder, as a string
|
||||||
with a leading `+' sign. It can also return an empty string to use no
|
with a leading `+' sign. It can also return an empty string to use no
|
||||||
default, or nil to calculate the default the usual way.
|
default, or NIL to calculate the default the usual way.
|
||||||
NOTE: This variable is not an ordinary hook;
|
NOTE: This variable is not an ordinary hook;
|
||||||
It may not be a list of functions.")
|
It may not be a list of functions.")
|
||||||
|
|
||||||
(defvar mh-find-path-hook nil
|
(defvar mh-find-path-hook nil
|
||||||
"Invoked by mh-find-path while reading the user's MH profile.")
|
"Invoked by `mh-find-path' while reading the user's MH profile.")
|
||||||
|
|
||||||
(defvar mh-folder-list-change-hook nil
|
(defvar mh-folder-list-change-hook nil
|
||||||
"Invoked whenever the cached folder list `mh-folder-list' is changed.")
|
"Invoked whenever the cached folder list `mh-folder-list' is changed.")
|
||||||
|
|
@ -153,58 +286,257 @@ First argument is folder name. Second is message number.")
|
||||||
(defvar mh-note-seq "%"
|
(defvar mh-note-seq "%"
|
||||||
"String whose first character is used to notate messages in a sequence.")
|
"String whose first character is used to notate messages in a sequence.")
|
||||||
|
|
||||||
|
(defvar mh-mail-header-separator "--------"
|
||||||
|
"*Line used by MH to separate headers from text in messages being composed.
|
||||||
|
This variable should not be used directly in programs. Programs should use
|
||||||
|
`mail-header-separator' instead. `mail-header-separator' is initialized to
|
||||||
|
`mh-mail-header-separator' in `mh-letter-mode'; in other contexts, you may
|
||||||
|
have to perform this initialization yourself.
|
||||||
|
|
||||||
|
Do not make this a regexp as it may be the argument to `insert' and it is
|
||||||
|
passed through `regexp-quote' before being used by functions like
|
||||||
|
`re-search-forward'.")
|
||||||
|
|
||||||
|
(defun mh-in-header-p ()
|
||||||
|
;; Return non-nil if the point is in the header of a draft message.
|
||||||
|
(< (point) (mail-header-end)))
|
||||||
|
|
||||||
|
(defun mh-header-field-end ()
|
||||||
|
;; Move to the end of the current header field.
|
||||||
|
;; Handles RFC 822 continuation lines.
|
||||||
|
(forward-line 1)
|
||||||
|
(while (looking-at "^[ \t]")
|
||||||
|
(forward-line 1))
|
||||||
|
(backward-char 1)) ;to end of previous line
|
||||||
|
|
||||||
|
(defun mh-letter-header-font-lock (limit)
|
||||||
|
"Return the entire mail header to font-lock.
|
||||||
|
Argument LIMIT limits search."
|
||||||
|
(if (= (point) limit)
|
||||||
|
nil
|
||||||
|
(let* ((mail-header-end (save-match-data (mail-header-end)))
|
||||||
|
(lesser-limit (if (< mail-header-end limit) mail-header-end limit)))
|
||||||
|
(when (mh-in-header-p)
|
||||||
|
(set-match-data (list 1 lesser-limit))
|
||||||
|
(goto-char lesser-limit)
|
||||||
|
t))))
|
||||||
|
|
||||||
|
(defun mh-header-field-font-lock (field limit)
|
||||||
|
"Return the value of a header field FIELD to font-lock.
|
||||||
|
Argument LIMIT limits search."
|
||||||
|
(if (= (point) limit)
|
||||||
|
nil
|
||||||
|
(let* ((mail-header-end (mail-header-end))
|
||||||
|
(lesser-limit (if (< mail-header-end limit) mail-header-end limit))
|
||||||
|
(case-fold-search t))
|
||||||
|
(when (and (< (point) mail-header-end) ;Only within header
|
||||||
|
(re-search-forward (format "^%s" field) lesser-limit t))
|
||||||
|
(let ((match-one-b (match-beginning 0))
|
||||||
|
(match-one-e (match-end 0)))
|
||||||
|
(mh-header-field-end)
|
||||||
|
(if (> (point) limit) ;Don't search for end beyond limit
|
||||||
|
(goto-char limit))
|
||||||
|
(set-match-data (list match-one-b match-one-e
|
||||||
|
(1+ match-one-e) (point)))
|
||||||
|
t)))))
|
||||||
|
|
||||||
|
(defun mh-header-to-font-lock (limit)
|
||||||
|
(mh-header-field-font-lock "To:" limit))
|
||||||
|
|
||||||
|
(defun mh-header-cc-font-lock (limit)
|
||||||
|
(mh-header-field-font-lock "cc:" limit))
|
||||||
|
|
||||||
|
(defun mh-header-subject-font-lock (limit)
|
||||||
|
(mh-header-field-font-lock "Subject:" limit))
|
||||||
|
|
||||||
|
(defvar mh-show-to-face 'mh-show-to-face
|
||||||
|
"Face for highlighting the To: header field.")
|
||||||
|
(if (boundp 'facemenu-unlisted-faces)
|
||||||
|
(add-to-list 'facemenu-unlisted-faces "^mh-show"))
|
||||||
|
(defface mh-show-to-face
|
||||||
|
'((((class grayscale) (background light))
|
||||||
|
(:foreground "DimGray" :underline t))
|
||||||
|
(((class grayscale) (background dark))
|
||||||
|
(:foreground "LightGray" :underline t))
|
||||||
|
(((class color) (background light)) (:foreground "SaddleBrown"))
|
||||||
|
(((class color) (background dark)) (:foreground "burlywood"))
|
||||||
|
(t (:underline t)))
|
||||||
|
"Face for highlighting the To: header field."
|
||||||
|
:group 'mh-buffer)
|
||||||
|
|
||||||
|
(defvar mh-show-from-face 'mh-show-from-face
|
||||||
|
"Face for highlighting the From: header field.")
|
||||||
|
(defface mh-show-from-face
|
||||||
|
'((((class color) (background light))
|
||||||
|
(:foreground "red3"))
|
||||||
|
(((class color) (background dark))
|
||||||
|
(:foreground "cyan"))
|
||||||
|
(t
|
||||||
|
(:bold t)))
|
||||||
|
"Face for highlighting the From: header field."
|
||||||
|
:group 'mh-buffer)
|
||||||
|
|
||||||
|
(defvar mh-folder-subject-face 'mh-folder-subject-face
|
||||||
|
"Face for highlighting subject text in MH-Folder buffers.")
|
||||||
|
(if (boundp 'facemenu-unlisted-faces)
|
||||||
|
(add-to-list 'facemenu-unlisted-faces "^mh-folder"))
|
||||||
|
(defface mh-folder-subject-face
|
||||||
|
'((((class color) (background light))
|
||||||
|
(:foreground "blue4"))
|
||||||
|
(((class color) (background dark))
|
||||||
|
(:foreground "yellow"))
|
||||||
|
(t
|
||||||
|
(:bold t)))
|
||||||
|
"Face for highlighting subject text in MH-Folder buffers."
|
||||||
|
:group 'mh)
|
||||||
|
(defvar mh-show-subject-face 'mh-show-subject-face
|
||||||
|
"Face for highlighting the Subject header field.")
|
||||||
|
(copy-face 'mh-folder-subject-face 'mh-show-subject-face)
|
||||||
|
|
||||||
|
(eval-after-load "font-lock"
|
||||||
|
'(progn
|
||||||
|
(defvar mh-show-cc-face 'mh-show-cc-face
|
||||||
|
"Face for highlighting cc header fields.")
|
||||||
|
(copy-face 'font-lock-variable-name-face 'mh-show-cc-face)
|
||||||
|
(defvar mh-show-date-face 'mh-show-date-face
|
||||||
|
"Face for highlighting the Date header field.")
|
||||||
|
(copy-face 'font-lock-type-face 'mh-show-date-face)
|
||||||
|
(defvar mh-show-header-face 'mh-show-header-face
|
||||||
|
"Face used to deemphasize unspecified header fields.")
|
||||||
|
(copy-face 'font-lock-string-face 'mh-show-header-face)
|
||||||
|
|
||||||
|
(defvar mh-show-font-lock-keywords
|
||||||
|
'(("^\\(From:\\|Sender:\\)\\(.*\\)"
|
||||||
|
(1 'default) (2 mh-show-from-face))
|
||||||
|
(mh-header-to-font-lock
|
||||||
|
(0 'default) (1 mh-show-to-face))
|
||||||
|
(mh-header-cc-font-lock
|
||||||
|
(0 'default) (1 mh-show-cc-face))
|
||||||
|
("^\\(Reply-To:\\|Return-Path:\\)\\(.*\\)$"
|
||||||
|
(1 'default) (2 mh-show-from-face))
|
||||||
|
(mh-header-subject-font-lock
|
||||||
|
(0 'default) (1 mh-show-subject-face))
|
||||||
|
("^\\(Apparently-To:\\|Newsgroups:\\)\\(.*\\)"
|
||||||
|
(1 'default) (2 mh-show-cc-face))
|
||||||
|
("^\\(In-reply-to\\|Date\\):\\(.*\\)$"
|
||||||
|
(1 'default) (2 mh-show-date-face))
|
||||||
|
(mh-letter-header-font-lock (0 mh-show-header-face append t)))
|
||||||
|
"Additional expressions to highlight in MH-show mode.")
|
||||||
|
|
||||||
|
(defvar mh-show-font-lock-keywords-with-cite
|
||||||
|
(eval-when-compile
|
||||||
|
(let* ((cite-chars "[>|}]")
|
||||||
|
(cite-prefix "A-Za-z")
|
||||||
|
(cite-suffix (concat cite-prefix "0-9_.@-`'\"")))
|
||||||
|
(append
|
||||||
|
mh-show-font-lock-keywords
|
||||||
|
(list
|
||||||
|
;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
|
||||||
|
`(,cite-chars
|
||||||
|
(,(concat "\\=[ \t]*"
|
||||||
|
"\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
|
||||||
|
"\\(" cite-chars "[ \t]*\\)\\)+"
|
||||||
|
"\\(.*\\)")
|
||||||
|
(beginning-of-line) (end-of-line)
|
||||||
|
(2 font-lock-constant-face nil t)
|
||||||
|
(4 font-lock-comment-face nil t)))))))
|
||||||
|
"Additional expressions to highlight in MH-show mode.")
|
||||||
|
))
|
||||||
|
|
||||||
|
(defun mh-gnus-article-highlight-citation ()
|
||||||
|
"Highlight cited text in current buffer using gnus."
|
||||||
|
(interactive)
|
||||||
|
(require 'gnus-cite)
|
||||||
|
(let ((modified (buffer-modified-p))
|
||||||
|
(gnus-article-buffer (buffer-name))
|
||||||
|
(gnus-cite-face-list
|
||||||
|
'(gnus-cite-face-2 gnus-cite-face-3 gnus-cite-face-4 gnus-cite-face-5
|
||||||
|
gnus-cite-face-6 gnus-cite-face-7 gnus-cite-face-8 gnus-cite-face-9
|
||||||
|
gnus-cite-face-10 gnus-cite-face-11 gnus-cite-face-1)))
|
||||||
|
(gnus-article-highlight-citation t)
|
||||||
|
(set-buffer-modified-p modified)))
|
||||||
|
|
||||||
;;; Internal bookkeeping variables:
|
;;; Internal bookkeeping variables:
|
||||||
|
|
||||||
;; The value of `mh-folder-list-change-hook' is called whenever
|
;; The value of `mh-folder-list-change-hook' is called whenever
|
||||||
;; mh-folder-list variable is set.
|
;; mh-folder-list variable is set.
|
||||||
(defvar mh-folder-list nil) ;List of folder names for completion.
|
;; List of folder names for completion.
|
||||||
|
(defvar mh-folder-list nil)
|
||||||
|
|
||||||
;; Cached value of the `Path:' component in the user's MH profile.
|
;; Cached value of the `Path:' component in the user's MH profile.
|
||||||
(defvar mh-user-path nil) ;User's mail folder directory.
|
;; User's mail folder directory.
|
||||||
|
(defvar mh-user-path nil)
|
||||||
|
|
||||||
;; An mh-draft-folder of nil means do not use a draft folder.
|
;; An mh-draft-folder of NIL means do not use a draft folder.
|
||||||
;; Cached value of the `Draft-Folder:' component in the user's MH profile.
|
;; Cached value of the `Draft-Folder:' component in the user's MH profile.
|
||||||
(defvar mh-draft-folder nil) ;Name of folder containing draft messages.
|
;; Name of folder containing draft messages.
|
||||||
|
(defvar mh-draft-folder nil)
|
||||||
|
|
||||||
;; Cached value of the `Unseen-Sequence:' component in the user's MH profile.
|
;; Cached value of the `Unseen-Sequence:' component in the user's MH profile.
|
||||||
(defvar mh-unseen-seq nil) ;Name of the Unseen sequence.
|
;; Name of the Unseen sequence.
|
||||||
|
(defvar mh-unseen-seq nil)
|
||||||
|
|
||||||
;; Cached value of the `Previous-Sequence:' component in the user's MH profile.
|
;; Cached value of the `Previous-Sequence:' component in the user's MH
|
||||||
(defvar mh-previous-seq nil) ;Name of the Previous sequence.
|
;; profile.
|
||||||
|
;; Name of the Previous sequence.
|
||||||
|
(defvar mh-previous-seq nil)
|
||||||
|
|
||||||
;; Cached value of the `Inbox:' component in the user's MH profile,
|
;; Cached value of the `Inbox:' component in the user's MH profile,
|
||||||
;; or "+inbox" if no such component.
|
;; or "+inbox" if no such component.
|
||||||
(defvar mh-inbox nil) ;Name of the Inbox folder.
|
;; Name of the Inbox folder.
|
||||||
|
(defvar mh-inbox nil)
|
||||||
|
|
||||||
(defconst mh-temp-buffer " *mh-temp*") ;Name of mh-e scratch buffer.
|
;; Name of mh-e scratch buffer.
|
||||||
|
(defconst mh-temp-buffer " *mh-temp*")
|
||||||
|
|
||||||
(defvar mh-previous-window-config nil) ;Window configuration before mh-e command.
|
;; Name of the mh-e folder list buffer.
|
||||||
|
(defconst mh-temp-folders-buffer "*Folders*")
|
||||||
|
|
||||||
|
;; Name of the mh-e sequences list buffer.
|
||||||
|
(defconst mh-temp-sequences-buffer "*Sequences*")
|
||||||
|
|
||||||
|
;; Window configuration before mh-e command.
|
||||||
|
(defvar mh-previous-window-config nil)
|
||||||
|
|
||||||
|
;;Non-nil means next SPC or whatever goes to next undeleted message.
|
||||||
|
(defvar mh-page-to-next-msg-p nil)
|
||||||
|
|
||||||
;;; Internal variables local to a folder.
|
;;; Internal variables local to a folder.
|
||||||
|
|
||||||
(defvar mh-current-folder nil) ;Name of current folder, a string.
|
;; Name of current folder, a string.
|
||||||
|
(defvar mh-current-folder nil)
|
||||||
|
|
||||||
(defvar mh-show-buffer nil) ;Buffer that displays message for this folder.
|
;; Buffer that displays message for this folder.
|
||||||
|
(defvar mh-show-buffer nil)
|
||||||
|
|
||||||
(defvar mh-folder-filename nil) ;Full path of directory for this folder.
|
;; Full path of directory for this folder.
|
||||||
|
(defvar mh-folder-filename nil)
|
||||||
|
|
||||||
(defvar mh-msg-count nil) ;Number of msgs in buffer.
|
;;Number of msgs in buffer.
|
||||||
|
(defvar mh-msg-count nil)
|
||||||
|
|
||||||
(defvar mh-showing nil) ;If non-nil, show the message in a separate window.
|
;; If non-nil, show the message in a separate window.
|
||||||
|
(defvar mh-showing-mode nil)
|
||||||
|
|
||||||
;;; This holds a documentation string used by describe-mode.
|
;;; This holds a documentation string used by describe-mode.
|
||||||
(defun mh-showing ()
|
(defun mh-showing-mode (&optional arg)
|
||||||
"When moving to a new message in the Folder window,
|
"Change whether messages should be displayed.
|
||||||
also show it in a separate Show window."
|
With arg, display messages iff ARG is positive."
|
||||||
nil)
|
(setq mh-showing-mode
|
||||||
|
(if (null arg)
|
||||||
|
(not mh-showing-mode)
|
||||||
|
(> (prefix-numeric-value arg) 0))))
|
||||||
|
|
||||||
(defvar mh-seq-list nil) ;The sequences of this folder. An alist of (seq . msgs).
|
;; The sequences of this folder. An alist of (seq . msgs).
|
||||||
|
(defvar mh-seq-list nil)
|
||||||
|
|
||||||
(defvar mh-seen-list nil) ;List of displayed messages to be removed from the Unseen sequence.
|
;; List of displayed messages to be removed from the Unseen sequence.
|
||||||
|
(defvar mh-seen-list nil)
|
||||||
|
|
||||||
;; If non-nil, show buffer contains message with all headers.
|
;; If non-nil, show buffer contains message with all headers.
|
||||||
;; If nil, show buffer contains message processed normally.
|
;; If nil, show buffer contains message processed normally.
|
||||||
(defvar mh-showing-with-headers nil) ;Showing message with headers or normally.
|
;; Showing message with headers or normally.
|
||||||
|
(defvar mh-showing-with-headers nil)
|
||||||
|
|
||||||
|
|
||||||
;;; mh-e macros
|
;;; mh-e macros
|
||||||
|
|
@ -254,23 +586,35 @@ also show it in a separate Show window."
|
||||||
;;; Ensure new buffers won't get this mode if default-major-mode is nil.
|
;;; Ensure new buffers won't get this mode if default-major-mode is nil.
|
||||||
(put 'mh-show-mode 'mode-class 'special)
|
(put 'mh-show-mode 'mode-class 'special)
|
||||||
|
|
||||||
(defun mh-show-mode ()
|
(define-derived-mode mh-show-mode text-mode "MH-Show"
|
||||||
"Major mode for showing messages in mh-e.
|
"Major mode for showing messages in mh-e.
|
||||||
The value of mh-show-mode-hook is called when a new message is displayed."
|
The value of `mh-show-mode-hook' is called when a new message is displayed."
|
||||||
(kill-all-local-variables)
|
(set (make-local-variable 'mail-header-separator) mh-mail-header-separator)
|
||||||
(setq major-mode 'mh-show-mode)
|
(mh-show-unquote-From)
|
||||||
(mh-set-mode-name "MH-Show")
|
(when mh-show-use-goto-addr
|
||||||
(run-hooks 'mh-show-mode-hook))
|
(if (not (featurep 'goto-addr))
|
||||||
|
(load "goto-addr" t t))
|
||||||
|
(if (fboundp 'goto-address)
|
||||||
|
(goto-address)))
|
||||||
|
(make-local-variable 'font-lock-defaults)
|
||||||
|
(set (make-local-variable 'font-lock-support-mode) nil)
|
||||||
|
(cond
|
||||||
|
((equal mh-highlight-citation-p 'font-lock)
|
||||||
|
(setq font-lock-defaults '(mh-show-font-lock-keywords-with-cite t)))
|
||||||
|
((equal mh-highlight-citation-p 'gnus)
|
||||||
|
(setq font-lock-defaults '(mh-show-font-lock-keywords t))
|
||||||
|
(mh-gnus-article-highlight-citation))
|
||||||
|
(t
|
||||||
|
(setq font-lock-defaults '(mh-show-font-lock-keywords t)))))
|
||||||
|
|
||||||
(defun mh-maybe-show (&optional msg)
|
(defun mh-maybe-show (&optional msg)
|
||||||
;; If in showing mode, then display the message pointed to by the cursor.
|
;; If in showing mode, then display the message pointed to by the cursor.
|
||||||
(if mh-showing (mh-show msg)))
|
(if mh-showing-mode (mh-show msg)))
|
||||||
|
|
||||||
(defun mh-show (&optional message)
|
(defun mh-show (&optional message)
|
||||||
"Show MESSAGE (default: message at cursor).
|
"Show MESSAGE (default: message at cursor).
|
||||||
Force a two-window display with the folder window on top (size
|
Force a two-window display with the folder window on top (size
|
||||||
mh-summary-height) and the show buffer below it.
|
`mh-summary-height') and the show buffer below it.
|
||||||
If the message is already visible, display the start of the message.
|
If the message is already visible, display the start of the message.
|
||||||
|
|
||||||
Display of the message is controlled by setting the variables
|
Display of the message is controlled by setting the variables
|
||||||
|
|
@ -283,11 +627,17 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
|
||||||
(mh-invalidate-show-buffer))
|
(mh-invalidate-show-buffer))
|
||||||
(mh-show-msg message))
|
(mh-show-msg message))
|
||||||
|
|
||||||
|
(defun mh-show-mouse (EVENT)
|
||||||
|
"Move point to mouse EVENT and show message."
|
||||||
|
(interactive "e")
|
||||||
|
(mouse-set-point EVENT)
|
||||||
|
(mh-show))
|
||||||
|
|
||||||
(defun mh-show-msg (msg)
|
(defun mh-show-msg (msg)
|
||||||
(if (not msg)
|
(if (not msg)
|
||||||
(setq msg (mh-get-msg-num t)))
|
(setq msg (mh-get-msg-num t)))
|
||||||
(setq mh-showing t)
|
(mh-showing-mode t)
|
||||||
|
(setq mh-page-to-next-msg-p nil)
|
||||||
(let ((folder mh-current-folder)
|
(let ((folder mh-current-folder)
|
||||||
(clean-message-header mh-clean-message-header)
|
(clean-message-header mh-clean-message-header)
|
||||||
(show-window (get-buffer-window mh-show-buffer)))
|
(show-window (get-buffer-window mh-show-buffer)))
|
||||||
|
|
@ -305,9 +655,39 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
|
||||||
(shrink-window (- (window-height) mh-summary-height)))
|
(shrink-window (- (window-height) mh-summary-height)))
|
||||||
(mh-recenter nil)
|
(mh-recenter nil)
|
||||||
(if (not (memq msg mh-seen-list)) (setq mh-seen-list (cons msg mh-seen-list)))
|
(if (not (memq msg mh-seen-list)) (setq mh-seen-list (cons msg mh-seen-list)))
|
||||||
|
(when mh-update-sequences-after-mh-show
|
||||||
|
(mh-update-sequences))
|
||||||
(run-hooks 'mh-show-hook))
|
(run-hooks 'mh-show-hook))
|
||||||
|
|
||||||
|
|
||||||
|
(defun mh-decode-quoted-printable ()
|
||||||
|
;; Run mimedecode commmand on current buffer, replacing it contents.
|
||||||
|
(let ((case-fold-search t))
|
||||||
|
(goto-char (point-min))
|
||||||
|
(when (and (re-search-forward
|
||||||
|
"^content-transfer-encoding:[ \t]*quoted-printable"
|
||||||
|
nil t)
|
||||||
|
(search-forward "\n\n" nil t))
|
||||||
|
(message "Converting quoted-printable characters...")
|
||||||
|
(let ((modified (buffer-modified-p))
|
||||||
|
(command "mimedecode"))
|
||||||
|
(shell-command-on-region (point-min) (point-max) command t t)
|
||||||
|
(if (fboundp 'deactivate-mark)
|
||||||
|
(deactivate-mark))
|
||||||
|
(set-buffer-modified-p modified))
|
||||||
|
(message "Converting quoted-printable characters... done."))))
|
||||||
|
|
||||||
|
|
||||||
|
(defun mh-show-unquote-From ()
|
||||||
|
;; Decode >From at beginning of lines for mh-show-mode
|
||||||
|
(save-excursion
|
||||||
|
(let ((modified (buffer-modified-p))
|
||||||
|
(case-fold-search nil))
|
||||||
|
(goto-char (mail-header-end))
|
||||||
|
(while (re-search-forward "^>From" nil t)
|
||||||
|
(replace-match "From"))
|
||||||
|
(set-buffer-modified-p modified))))
|
||||||
|
|
||||||
(defun mh-display-msg (msg-num folder)
|
(defun mh-display-msg (msg-num folder)
|
||||||
;; Display message NUMBER of FOLDER.
|
;; Display message NUMBER of FOLDER.
|
||||||
;; Sets the current buffer to the show buffer.
|
;; Sets the current buffer to the show buffer.
|
||||||
|
|
@ -335,6 +715,8 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
|
||||||
(list "-form" formfile))
|
(list "-form" formfile))
|
||||||
msg-filename)
|
msg-filename)
|
||||||
(insert-file-contents msg-filename))
|
(insert-file-contents msg-filename))
|
||||||
|
(if mh-decode-quoted-printable
|
||||||
|
(mh-decode-quoted-printable))
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(cond (clean-message-header
|
(cond (clean-message-header
|
||||||
(mh-clean-msg-header (point-min)
|
(mh-clean-msg-header (point-min)
|
||||||
|
|
@ -395,7 +777,7 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
|
||||||
;; pointing to a message.
|
;; pointing to a message.
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(cond ((looking-at mh-msg-number-regexp)
|
(cond ((looking-at mh-scan-msg-number-regexp)
|
||||||
(string-to-int (buffer-substring (match-beginning 1)
|
(string-to-int (buffer-substring (match-beginning 1)
|
||||||
(match-end 1))))
|
(match-end 1))))
|
||||||
(error-if-no-message
|
(error-if-no-message
|
||||||
|
|
@ -417,7 +799,9 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
|
||||||
;; regular expression specifying the lines to display, otherwise
|
;; regular expression specifying the lines to display, otherwise
|
||||||
;; INVISIBLE-HEADERS contains a regular expression specifying lines to
|
;; INVISIBLE-HEADERS contains a regular expression specifying lines to
|
||||||
;; delete from the header.
|
;; delete from the header.
|
||||||
(let ((case-fold-search t))
|
(let ((case-fold-search t)
|
||||||
|
(after-change-functions nil)) ;Work around emacs-20 font-lock bug
|
||||||
|
;causing an endless loop.
|
||||||
(save-restriction
|
(save-restriction
|
||||||
(goto-char start)
|
(goto-char start)
|
||||||
(if (search-forward "\n\n" nil 'move)
|
(if (search-forward "\n\n" nil 'move)
|
||||||
|
|
@ -442,11 +826,13 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
|
||||||
|
|
||||||
|
|
||||||
(defun mh-recenter (arg)
|
(defun mh-recenter (arg)
|
||||||
;; Like recenter but with two improvements: nil arg means recenter,
|
;; Like recenter but with two improvements:
|
||||||
;; and only does anything if the current buffer is in the selected
|
;; - only does anything if the current buffer is in the selected
|
||||||
;; window. (Commands like save-some-buffers can make this false.)
|
;; window. (Commands like save-some-buffers can make this false.)
|
||||||
|
;; - nil arg means recenter as with C-u prefix
|
||||||
(if (eq (get-buffer-window (current-buffer))
|
(if (eq (get-buffer-window (current-buffer))
|
||||||
(selected-window))
|
(selected-window))
|
||||||
|
;; '(4) is the same as C-u prefix argument.
|
||||||
(recenter (if arg arg '(4)))))
|
(recenter (if arg arg '(4)))))
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -454,7 +840,6 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
|
||||||
;; Delete version of kill-line.
|
;; Delete version of kill-line.
|
||||||
(delete-region (point) (progn (forward-line lines) (point))))
|
(delete-region (point) (progn (forward-line lines) (point))))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-notate (msg notation offset)
|
(defun mh-notate (msg notation offset)
|
||||||
;; Marks MESSAGE with the character NOTATION at position OFFSET.
|
;; Marks MESSAGE with the character NOTATION at position OFFSET.
|
||||||
;; Null MESSAGE means the message that the cursor points to.
|
;; Null MESSAGE means the message that the cursor points to.
|
||||||
|
|
@ -489,10 +874,10 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
|
||||||
|
|
||||||
(defun mh-goto-msg (number &optional no-error-if-no-message dont-show)
|
(defun mh-goto-msg (number &optional no-error-if-no-message dont-show)
|
||||||
"Position the cursor at message NUMBER.
|
"Position the cursor at message NUMBER.
|
||||||
Optional non-nil second argument means return nil instead of
|
Optional non-nil second argument NO-ERROR-IF-NO-MESSAGE means return nil
|
||||||
signaling an error if message does not exist; in this case,
|
instead of signaling an error if message does not exist; in this case, the
|
||||||
the cursor is positioned near where the message would have been.
|
cursor is positioned near where the message would have been.
|
||||||
Non-nil third argument means not to show the message."
|
Non-nil third argument DONT-SHOW means not to show the message."
|
||||||
(interactive "NGo to message: ")
|
(interactive "NGo to message: ")
|
||||||
(setq number (prefix-numeric-value number)) ;Emacs 19
|
(setq number (prefix-numeric-value number)) ;Emacs 19
|
||||||
;; This basic routine tries to be as fast as possible,
|
;; This basic routine tries to be as fast as possible,
|
||||||
|
|
@ -524,12 +909,12 @@ Non-nil third argument means not to show the message."
|
||||||
|
|
||||||
(defun mh-msg-search-pat (n)
|
(defun mh-msg-search-pat (n)
|
||||||
;; Return a search pattern for message N in the scan listing.
|
;; Return a search pattern for message N in the scan listing.
|
||||||
(format mh-msg-search-regexp n))
|
(format mh-scan-msg-search-regexp n))
|
||||||
|
|
||||||
|
|
||||||
(defun mh-get-profile-field (field)
|
(defun mh-get-profile-field (field)
|
||||||
;; Find and return the value of FIELD in the current buffer.
|
;; Find and return the value of FIELD in the current buffer.
|
||||||
;; Returns nil if the field is not in the buffer.
|
;; Returns NIL if the field is not in the buffer.
|
||||||
(let ((case-fold-search t))
|
(let ((case-fold-search t))
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(cond ((not (re-search-forward (format "^%s" field) nil t)) nil)
|
(cond ((not (re-search-forward (format "^%s" field) nil t)) nil)
|
||||||
|
|
@ -604,13 +989,12 @@ Non-nil third argument means not to show the message."
|
||||||
(and (file-regular-p file) (file-executable-p file)))
|
(and (file-regular-p file) (file-executable-p file)))
|
||||||
|
|
||||||
(defun mh-find-progs ()
|
(defun mh-find-progs ()
|
||||||
"Find the `inc' and `mhl' programs of MH.
|
"Find the directories for the installed MH/nmh binaries and config files.
|
||||||
Set the `mh-progs' and `mh-lib', and `mh-lib-progs' variables to the
|
Set the `mh-progs' and `mh-lib', and `mh-lib-progs' variables to the
|
||||||
directory names."
|
directory names and set `mh-nmh-p' if we detect nmh instead of MH."
|
||||||
(or (and mh-progs (mh-file-command-p (expand-file-name "inc" mh-progs)))
|
(let ((path (or (mh-path-search exec-path "mhparam")
|
||||||
(setq mh-progs
|
(mh-path-search '("/usr/local/nmh/bin" ; nmh default
|
||||||
(or (mh-path-search exec-path "inc")
|
"/usr/local/bin/mh/"
|
||||||
(mh-path-search '("/usr/local/bin/mh/"
|
|
||||||
"/usr/local/mh/"
|
"/usr/local/mh/"
|
||||||
"/usr/bin/mh/" ;Ultrix 4.2
|
"/usr/bin/mh/" ;Ultrix 4.2
|
||||||
"/usr/new/mh/" ;Ultrix <4.2
|
"/usr/new/mh/" ;Ultrix <4.2
|
||||||
|
|
@ -618,41 +1002,28 @@ directory names."
|
||||||
"/usr/pkg/bin/" ; NetBSD
|
"/usr/pkg/bin/" ; NetBSD
|
||||||
"/usr/local/bin/"
|
"/usr/local/bin/"
|
||||||
)
|
)
|
||||||
"inc"))))
|
"mhparam"))))
|
||||||
(or (null mh-progs)
|
(if (not path)
|
||||||
(let ((mh-base mh-progs))
|
(error "Unable to find the `mhparam' command"))
|
||||||
(while (let ((dir-name (file-name-nondirectory
|
(save-excursion
|
||||||
(directory-file-name mh-base))))
|
(let ((tmp-buffer (get-buffer-create mh-temp-buffer)))
|
||||||
(or (string= "mh" dir-name)
|
(set-buffer tmp-buffer)
|
||||||
(string= "bin" dir-name)))
|
(unwind-protect
|
||||||
(setq mh-base
|
(progn
|
||||||
(file-name-directory (directory-file-name mh-base))))
|
(call-process (expand-file-name "mhparam" path)
|
||||||
(or (and mh-lib
|
nil '(t nil) nil "libdir" "etcdir")
|
||||||
(file-exists-p (expand-file-name "components" mh-lib)))
|
(goto-char (point-min))
|
||||||
(setq mh-lib
|
(if (search-forward-regexp "^libdir:\\s-\\(\\S-+\\)\\s-*$" nil t)
|
||||||
;; Look for a lib directory roughly parallel to the bin
|
(setq mh-lib-progs (match-string 1)
|
||||||
;; directory: Strip any trailing `mh' or `bin' path
|
mh-lib mh-lib-progs
|
||||||
;; components, then look for lib/mh or mh/lib.
|
mh-progs path))
|
||||||
(or (mh-path-search
|
(goto-char (point-min))
|
||||||
(mapcar (lambda (p) (expand-file-name p mh-base))
|
(if (search-forward-regexp "^etcdir:\\s-\\(\\S-+\\)\\s-*$" nil t)
|
||||||
'("lib/mh" "etc/nmh" "/etc/nmh" "mh/lib" "etc" "lib"))
|
(setq mh-lib (match-string 1)
|
||||||
"components"
|
mh-nmh-p t)))
|
||||||
'file-exists-p))))
|
(kill-buffer tmp-buffer))))
|
||||||
(or (and mh-lib-progs
|
(unless (and mh-progs mh-lib mh-lib-progs)
|
||||||
(mh-file-command-p (expand-file-name "mhl" mh-lib-progs)))
|
(error "Unable to determine paths from `mhparam' command"))))
|
||||||
(setq mh-lib-progs
|
|
||||||
(or (mh-path-search
|
|
||||||
(mapcar (lambda (p) (expand-file-name p mh-base))
|
|
||||||
'("lib/mh" "libexec/nmh" "lib/nmh" "mh/lib" "lib"))
|
|
||||||
"mhl")
|
|
||||||
(mh-path-search '("/usr/local/bin/mh/") "mhl")
|
|
||||||
(mh-path-search exec-path "mhl") ;unlikely
|
|
||||||
)))))
|
|
||||||
(unless (and mh-progs mh-lib mh-lib-progs)
|
|
||||||
(error "Cannot find the commands `inc' and `mhl' and the file `components'"))
|
|
||||||
(setq mh-nmh-p (not (null
|
|
||||||
(or (string-match "nmh" mh-lib-progs)
|
|
||||||
(string-match "nmh" mh-lib))))))
|
|
||||||
|
|
||||||
(defun mh-path-search (path file &optional func-p)
|
(defun mh-path-search (path file &optional func-p)
|
||||||
;; Search PATH, a list of directory names, for FILE.
|
;; Search PATH, a list of directory names, for FILE.
|
||||||
|
|
@ -713,17 +1084,6 @@ directory names."
|
||||||
(mh-add-to-sequence seq msgs)
|
(mh-add-to-sequence seq msgs)
|
||||||
(mh-notate-seq seq mh-note-seq (1+ mh-cmd-note))))))
|
(mh-notate-seq seq mh-note-seq (1+ mh-cmd-note))))))
|
||||||
|
|
||||||
(autoload 'mh-add-to-sequence "mh-seq")
|
|
||||||
(autoload 'mh-notate-seq "mh-seq")
|
|
||||||
(autoload 'mh-read-seq-default "mh-seq")
|
|
||||||
(autoload 'mh-map-to-seq-msgs "mh-seq")
|
|
||||||
|
|
||||||
|
|
||||||
(defun mh-set-mode-name (mode-name-string)
|
|
||||||
;; Set the mode-name and ensure that the mode line is updated.
|
|
||||||
(setq mode-name mode-name-string)
|
|
||||||
(force-mode-line-update t))
|
|
||||||
|
|
||||||
(defvar mh-folder-hist nil)
|
(defvar mh-folder-hist nil)
|
||||||
|
|
||||||
(defun mh-prompt-for-folder (prompt default can-create)
|
(defun mh-prompt-for-folder (prompt default can-create)
|
||||||
|
|
@ -747,6 +1107,8 @@ directory names."
|
||||||
(setq read-name default))
|
(setq read-name default))
|
||||||
((not (mh-folder-name-p read-name))
|
((not (mh-folder-name-p read-name))
|
||||||
(setq read-name (format "+%s" read-name))))
|
(setq read-name (format "+%s" read-name))))
|
||||||
|
(if (or (not read-name) (equal "" read-name))
|
||||||
|
(error "No folder specified"))
|
||||||
(setq folder-name read-name)
|
(setq folder-name read-name)
|
||||||
(cond ((and (> (length folder-name) 0)
|
(cond ((and (> (length folder-name) 0)
|
||||||
(eq (aref folder-name (1- (length folder-name))) ?/))
|
(eq (aref folder-name (1- (length folder-name))) ?/))
|
||||||
|
|
@ -848,7 +1210,7 @@ directory names."
|
||||||
|
|
||||||
|
|
||||||
(defun mh-folder-name-p (name)
|
(defun mh-folder-name-p (name)
|
||||||
;; Return non-nil if NAME is possibly the name of a folder.
|
;; Return non-NIL if NAME is possibly the name of a folder.
|
||||||
;; A name (a string or symbol) can be a folder name if it begins with "+".
|
;; A name (a string or symbol) can be a folder name if it begins with "+".
|
||||||
(if (symbolp name)
|
(if (symbolp name)
|
||||||
(eq (aref (symbol-name name) 0) ?+)
|
(eq (aref (symbol-name name) 0) ?+)
|
||||||
|
|
@ -888,7 +1250,7 @@ directory names."
|
||||||
;; the shell hacks necessary here shows just how broken Unix is
|
;; the shell hacks necessary here shows just how broken Unix is
|
||||||
(apply 'call-process "/bin/sh" nil t nil "-c"
|
(apply 'call-process "/bin/sh" nil t nil "-c"
|
||||||
(format "%s %s ${1+\"$@\"}"
|
(format "%s %s ${1+\"$@\"}"
|
||||||
env
|
env
|
||||||
(expand-file-name command mh-progs))
|
(expand-file-name command mh-progs))
|
||||||
command
|
command
|
||||||
(mh-list-to-string args))
|
(mh-list-to-string args))
|
||||||
|
|
|
||||||
103
lisp/mail/mh-xemacs-compat.el
Normal file
103
lisp/mail/mh-xemacs-compat.el
Normal file
|
|
@ -0,0 +1,103 @@
|
||||||
|
;;; mh-xemacs-compat.el --- GNU Emacs Functions needed by XEmacs
|
||||||
|
|
||||||
|
;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: FSF
|
||||||
|
;; Maintainer: Bill Wohler <wohler@newt.com>
|
||||||
|
;; Keywords: mail
|
||||||
|
;; See: mh-e.el
|
||||||
|
|
||||||
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||||
|
;; it under the terms of the GNU General Public License as published by
|
||||||
|
;; the Free Software Foundation; either version 2, or (at your option)
|
||||||
|
;; any later version.
|
||||||
|
|
||||||
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||||
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
;; GNU General Public License for more details.
|
||||||
|
|
||||||
|
;; You should have received a copy of the GNU General Public License
|
||||||
|
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||||
|
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||||
|
;; Boston, MA 02111-1307, USA.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;;; Change Log:
|
||||||
|
|
||||||
|
;; $Id: mh-xemacs-compat.el,v 1.7 2002/04/07 19:20:55 wohler Exp $
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
;;; Simple compatibility:
|
||||||
|
|
||||||
|
(unless (fboundp 'match-string-no-properties)
|
||||||
|
(defalias 'match-string-no-properties 'match-string))
|
||||||
|
|
||||||
|
;;; Functions from simple.el of Emacs-21.1
|
||||||
|
;;; simple.el --- basic editing commands for Emacs
|
||||||
|
|
||||||
|
;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
|
||||||
|
;; Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
(defun rfc822-goto-eoh ()
|
||||||
|
;; Go to header delimiter line in a mail message, following RFC822 rules
|
||||||
|
(goto-char (point-min))
|
||||||
|
(while (looking-at "^[^: \n]+:\\|^[ \t]")
|
||||||
|
(forward-line 1))
|
||||||
|
(point))
|
||||||
|
|
||||||
|
;;; Functions from sendmail.el of Emacs-21.1
|
||||||
|
;;; sendmail.el --- mail sending commands for Emacs.
|
||||||
|
|
||||||
|
;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001
|
||||||
|
;; Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
(defun mail-header-end ()
|
||||||
|
"Return the buffer location of the end of headers, as a number."
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(save-excursion
|
||||||
|
(rfc822-goto-eoh)
|
||||||
|
(point))))
|
||||||
|
|
||||||
|
(defun mail-mode-fill-paragraph (arg)
|
||||||
|
;; Do something special only if within the headers.
|
||||||
|
(if (< (point) (mail-header-end))
|
||||||
|
(let (beg end fieldname)
|
||||||
|
(when (prog1 (re-search-backward "^[-a-zA-Z]+:" nil 'yes)
|
||||||
|
(setq beg (point)))
|
||||||
|
(setq fieldname
|
||||||
|
(downcase (buffer-substring beg (1- (match-end 0))))))
|
||||||
|
(forward-line 1)
|
||||||
|
;; Find continuation lines and get rid of their continuation markers.
|
||||||
|
(while (looking-at "[ \t]")
|
||||||
|
(delete-horizontal-space)
|
||||||
|
(forward-line 1))
|
||||||
|
(setq end (point-marker))
|
||||||
|
(goto-char beg)
|
||||||
|
;; If this field contains addresses,
|
||||||
|
;; make sure we can fill after each address.
|
||||||
|
(if (member fieldname
|
||||||
|
'("to" "cc" "bcc" "from" "reply-to"
|
||||||
|
"resent-to" "resent-cc" "resent-bcc"
|
||||||
|
"resent-from" "resent-reply-to"))
|
||||||
|
(while (search-forward "," end t)
|
||||||
|
(or (looking-at "[ \t]")
|
||||||
|
(insert " "))))
|
||||||
|
(fill-region-as-paragraph beg end)
|
||||||
|
;; Mark all lines except the first as continuations.
|
||||||
|
(goto-char beg)
|
||||||
|
(forward-line 1)
|
||||||
|
(while (< (point) end)
|
||||||
|
(insert " ")
|
||||||
|
(forward-line 1))
|
||||||
|
(move-marker end nil)
|
||||||
|
t)))
|
||||||
|
|
||||||
|
(provide 'mh-xemacs-compat)
|
||||||
|
|
||||||
|
;;; mh-xemacs-compat.el ends here
|
||||||
BIN
lisp/mail/reply2.pbm
Normal file
BIN
lisp/mail/reply2.pbm
Normal file
Binary file not shown.
38
lisp/mail/reply2.xpm
Normal file
38
lisp/mail/reply2.xpm
Normal file
|
|
@ -0,0 +1,38 @@
|
||||||
|
/* XPM */
|
||||||
|
static char * mail_reply_xpm[] = {
|
||||||
|
/* columns rows colors chars-per-pixel */
|
||||||
|
"24 24 9 1",
|
||||||
|
" c None",
|
||||||
|
". c black",
|
||||||
|
"X c #673e666663d4",
|
||||||
|
"o c #eb46ea1de471",
|
||||||
|
"O c #a852a7bea3d2",
|
||||||
|
"+ c #ae51c17b9b26",
|
||||||
|
"@ c #8d4d97577838",
|
||||||
|
"# c #7c7c8b8b6e6e",
|
||||||
|
"$ c #5e0868be52d3",
|
||||||
|
/* pixels */
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" .... ",
|
||||||
|
" .....XooO. ",
|
||||||
|
" .....XOooooooO. ",
|
||||||
|
" .XOooooooooooXOO. ",
|
||||||
|
" .oXXooooooooOXOo. ",
|
||||||
|
" .OoOXXooooooXOoo. ",
|
||||||
|
" .oooOOXOooXXXooO. ",
|
||||||
|
" ........XXOoOXOo. ",
|
||||||
|
" ..++++@.ooooooXO. ",
|
||||||
|
" ..+@@@.oooooooXO. ",
|
||||||
|
" ..+@@@#.oooooooO.. ",
|
||||||
|
" ..++@@@#$.ooooO... ",
|
||||||
|
" .++++@@#.$.oO... ",
|
||||||
|
" .+@@@#.o.... ",
|
||||||
|
" .+@#$... ",
|
||||||
|
" .#$. ",
|
||||||
|
" .$. ",
|
||||||
|
" . ",
|
||||||
|
" "};
|
||||||
BIN
lisp/toolbar/execute.pbm
Normal file
BIN
lisp/toolbar/execute.pbm
Normal file
Binary file not shown.
35
lisp/toolbar/execute.xpm
Normal file
35
lisp/toolbar/execute.xpm
Normal file
|
|
@ -0,0 +1,35 @@
|
||||||
|
/* XPM */
|
||||||
|
static char * mail_exec_xpm[] = {
|
||||||
|
/* columns rows colors chars-per-pixel */
|
||||||
|
"24 24 6 1",
|
||||||
|
" c None",
|
||||||
|
". c black",
|
||||||
|
"X c #a5d8a5d89550",
|
||||||
|
"o c #d305d305bc3c",
|
||||||
|
"O c #ea03ea03d271",
|
||||||
|
"+ c white",
|
||||||
|
/* pixels */
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" .. ",
|
||||||
|
" XX .. ",
|
||||||
|
" oo XX .. ",
|
||||||
|
" OO oo XX .. ",
|
||||||
|
" OO oo XX .. ",
|
||||||
|
" OO oo XX .. ",
|
||||||
|
" OO oo XX .. ",
|
||||||
|
" OO oo XX .. ",
|
||||||
|
" OO oo XX .. ",
|
||||||
|
" OO oo XX .. ",
|
||||||
|
" OO oo XX ",
|
||||||
|
" OO oo ",
|
||||||
|
" OO + .. ",
|
||||||
|
" XX .. ",
|
||||||
|
" oo XX ",
|
||||||
|
" OO oo ",
|
||||||
|
" OO ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" "};
|
||||||
BIN
lisp/toolbar/page-down.pbm
Normal file
BIN
lisp/toolbar/page-down.pbm
Normal file
Binary file not shown.
34
lisp/toolbar/page-down.xpm
Normal file
34
lisp/toolbar/page-down.xpm
Normal file
|
|
@ -0,0 +1,34 @@
|
||||||
|
/* XPM */
|
||||||
|
static char * mail_page_xpm[] = {
|
||||||
|
/* columns rows colors chars-per-pixel */
|
||||||
|
"24 24 5 1",
|
||||||
|
" c None",
|
||||||
|
". c black",
|
||||||
|
"X c #ea03ea03d271",
|
||||||
|
"o c #a5d8a5d89550",
|
||||||
|
"O c #d305d305bc3c",
|
||||||
|
/* pixels */
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" .................. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XoooooooooooooXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .Xoooooooooo..oXX. ",
|
||||||
|
" .XXXXXXXXXXX..XXX. ",
|
||||||
|
" .XXXXXXXXXXX..XXX. ",
|
||||||
|
" .XooooooXXXX..XXX. ",
|
||||||
|
" .XXXXXXXXXXX..XXX. ",
|
||||||
|
" .XXXXXXXXX.O..O.X. ",
|
||||||
|
" .Xoooooooo.....XX. ",
|
||||||
|
" .XXXXXXXXXX....XX. ",
|
||||||
|
" .XXXXXXXXXXX..XXX. ",
|
||||||
|
" .XXXXXXXXXXXooXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .................. ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" "};
|
||||||
BIN
lisp/toolbar/refile.pbm
Normal file
BIN
lisp/toolbar/refile.pbm
Normal file
Binary file not shown.
36
lisp/toolbar/refile.xpm
Normal file
36
lisp/toolbar/refile.xpm
Normal file
|
|
@ -0,0 +1,36 @@
|
||||||
|
/* XPM */
|
||||||
|
static char * refile_xpm[] = {
|
||||||
|
/* columns rows colors chars-per-pixel */
|
||||||
|
"24 24 7 1",
|
||||||
|
" c None",
|
||||||
|
". c black",
|
||||||
|
"X c #a5d8a5d89550",
|
||||||
|
"o c #d305d305bc3c",
|
||||||
|
"O c #ea03ea03d271",
|
||||||
|
"+ c #828282827474",
|
||||||
|
"@ c #61b761b7600a",
|
||||||
|
/* pixels */
|
||||||
|
" . ",
|
||||||
|
" ..X. ",
|
||||||
|
" ..XoO.... ",
|
||||||
|
" ..XooooO.+. ",
|
||||||
|
" ..XooooooOX.. .. ",
|
||||||
|
" .@@ooooooOOO@. ... ",
|
||||||
|
" .O@oooooOOOOO..@@. ",
|
||||||
|
" .OO@oooOOOOOO..@@. ",
|
||||||
|
" ...OO@XooOOOOO...@@. ",
|
||||||
|
" ..+.O@XooOOOO..@@@@@. ",
|
||||||
|
" .++..XooOOOO..@@@@@@. ",
|
||||||
|
" .++.@oooOO...@@@@@@@. ",
|
||||||
|
" ..+.XooOOO..@@@@@@@. ",
|
||||||
|
" .++.OOOO.@@@@@@@@. ",
|
||||||
|
" .+.oOO..@@@@@@@. ",
|
||||||
|
" .++.OO.@@@@@@@. ",
|
||||||
|
" .++.O.@@@@@.. ",
|
||||||
|
" ..+.O.@@@@@. ",
|
||||||
|
" .++..@@@@. ",
|
||||||
|
" ..++.@@@. ",
|
||||||
|
" .+.@@. ",
|
||||||
|
" ...@. ",
|
||||||
|
" ... ",
|
||||||
|
" . "};
|
||||||
BIN
lisp/toolbar/repack.pbm
Normal file
BIN
lisp/toolbar/repack.pbm
Normal file
Binary file not shown.
35
lisp/toolbar/repack.xpm
Normal file
35
lisp/toolbar/repack.xpm
Normal file
|
|
@ -0,0 +1,35 @@
|
||||||
|
/* XPM */
|
||||||
|
static char * mail_repack_xpm[] = {
|
||||||
|
/* columns rows colors chars-per-pixel */
|
||||||
|
"24 24 6 1",
|
||||||
|
" c None",
|
||||||
|
". c black",
|
||||||
|
"X c #a5d8a5d89550",
|
||||||
|
"o c #d305d305bc3c",
|
||||||
|
"O c #ea03ea03d271",
|
||||||
|
"+ c #828282827474",
|
||||||
|
/* pixels */
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" .............. ",
|
||||||
|
" .XXXXXXXXXXXX.. ",
|
||||||
|
" .XXXXXXXXXXXX.X. ",
|
||||||
|
" .XXXXXXXXXXXX.oo. ",
|
||||||
|
" ..............ooo. ",
|
||||||
|
" .OOOOOOOOOOOO.oo. ",
|
||||||
|
" .O++++++++++O.oo. ",
|
||||||
|
" .O+XXXXXXXX+O.o. ",
|
||||||
|
" .+XXXXXXXX+.o.. ",
|
||||||
|
" .+XX...XXX+.... ",
|
||||||
|
" ....o.......oo. ",
|
||||||
|
" ....o.....Oooo. ",
|
||||||
|
" .OOO...OOOO.oooo. ",
|
||||||
|
" .++++++++++.oooo. ",
|
||||||
|
" .+XXXXXXXX+.oooo. ",
|
||||||
|
" .O+XXXXXXXX+O.ooX. ",
|
||||||
|
" .O+XXXXXXXX+O.oo.. ",
|
||||||
|
" .O++++++++++O.o.. ",
|
||||||
|
" ..OOOOOOOOOOOO... ",
|
||||||
|
" ................ ",
|
||||||
|
" ",
|
||||||
|
" "};
|
||||||
BIN
lisp/toolbar/rescan.pbm
Normal file
BIN
lisp/toolbar/rescan.pbm
Normal file
Binary file not shown.
35
lisp/toolbar/rescan.xpm
Normal file
35
lisp/toolbar/rescan.xpm
Normal file
|
|
@ -0,0 +1,35 @@
|
||||||
|
/* XPM */
|
||||||
|
static char * mail_rescan_xpm[] = {
|
||||||
|
/* columns rows colors chars-per-pixel */
|
||||||
|
"24 24 6 1",
|
||||||
|
" c None",
|
||||||
|
". c black",
|
||||||
|
"X c #a5d8a5d89550",
|
||||||
|
"o c #d305d305bc3c",
|
||||||
|
"O c #ea03ea03d271",
|
||||||
|
"+ c #828282827474",
|
||||||
|
/* pixels */
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" .............. ",
|
||||||
|
" .XXXXXXXXXXXX.. ",
|
||||||
|
" .XXXXXXXXXXXX.X. ",
|
||||||
|
" .XXXXXXXXXXXX.oo. ",
|
||||||
|
" ..............ooo. ",
|
||||||
|
" .OOOOOOOOOOOO.ooo. ",
|
||||||
|
" .O++++++++++O.ooo. ",
|
||||||
|
" .O+XXXXXXXX+O.ooo. ",
|
||||||
|
" .O+XXXXXXXX+O.ooo. ",
|
||||||
|
" .O+XXXXXXXX+O.ooo. ",
|
||||||
|
" .O+XXXXXXXX+O.ooo. ",
|
||||||
|
" .O++++++++++O.ooo. ",
|
||||||
|
" .OOOOOOOOOOOO.ooo. ",
|
||||||
|
" .O++++++++++O.ooo. ",
|
||||||
|
" .O+XXXXXXXX+O.ooo. ",
|
||||||
|
" .O+XXXXXXXX+O.ooX. ",
|
||||||
|
" .O+XXXXXXXX+O.oo.. ",
|
||||||
|
" .O++++++++++O.o.. ",
|
||||||
|
" ..OOOOOOOOOOOO... ",
|
||||||
|
" ................ ",
|
||||||
|
" ",
|
||||||
|
" "};
|
||||||
BIN
lisp/toolbar/show.pbm
Normal file
BIN
lisp/toolbar/show.pbm
Normal file
Binary file not shown.
33
lisp/toolbar/show.xpm
Normal file
33
lisp/toolbar/show.xpm
Normal file
|
|
@ -0,0 +1,33 @@
|
||||||
|
/* XPM */
|
||||||
|
static char * mail_show_xpm[] = {
|
||||||
|
/* columns rows colors chars-per-pixel */
|
||||||
|
"24 24 4 1",
|
||||||
|
" c None",
|
||||||
|
". c black",
|
||||||
|
"X c #ea03ea03d271",
|
||||||
|
"o c #a5d8a5d89550",
|
||||||
|
/* pixels */
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" .................. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XoooooooooooooXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XoooooooooooooXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XooooooXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XoooooooooXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .XXXXXXXXXXXXXXXX. ",
|
||||||
|
" .................. ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" "};
|
||||||
BIN
lisp/toolbar/widen.pbm
Normal file
BIN
lisp/toolbar/widen.pbm
Normal file
Binary file not shown.
32
lisp/toolbar/widen.xpm
Normal file
32
lisp/toolbar/widen.xpm
Normal file
|
|
@ -0,0 +1,32 @@
|
||||||
|
/* XPM */
|
||||||
|
static char * widen_xpm[] = {
|
||||||
|
/* columns rows colors chars-per-pixel */
|
||||||
|
"24 24 3 1",
|
||||||
|
" c None",
|
||||||
|
". c #8d4d97577838",
|
||||||
|
"X c black",
|
||||||
|
/* pixels */
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" . . ",
|
||||||
|
" . . ",
|
||||||
|
" . . ",
|
||||||
|
" . . ",
|
||||||
|
" . . ",
|
||||||
|
" . XX XX . ",
|
||||||
|
" . XX XX . ",
|
||||||
|
" . XX XX . ",
|
||||||
|
" .XXXXXXXX XXXXXXXX. ",
|
||||||
|
" .XXXXXXXX XXXXXXXX. ",
|
||||||
|
" . XX XX . ",
|
||||||
|
" . XX XX . ",
|
||||||
|
" . XX XX . ",
|
||||||
|
" . . ",
|
||||||
|
" . . ",
|
||||||
|
" . . ",
|
||||||
|
" . . ",
|
||||||
|
" . . ",
|
||||||
|
" ",
|
||||||
|
" ",
|
||||||
|
" "};
|
||||||
Loading…
Add table
Reference in a new issue