Note: HTML conversion may not be complete.
If you change the name of some of the MH programs or have your own printing programs, the following variables can help you. They are described in detail in the subsequent sections.
Variable | Default | Description
__________________________|____________________|______________________
mh-inc-prog | "inc" | Program to incor-
| | porate mail
mh-inc-folder-hook | nil | Functions to run
| | when incorporating
| | mail
mh-delete-msg-hook | nil | Functions to run
| | when deleting mes-
| | sages
mh-print-background | nil | Print in foreground
| | or background
mh-lpr-command-format | "lpr -J '%s'" | Command used to
| | print
mh-default-folder-for- | nil | Command to generate
message-function | | a default folder
mh-auto-folder-collect | t | Collect folder names
| | in background at
| | startup
mh-recursive-folders | nil | Collect nested fold-
| | ers
mh-refile-msg-hook | nil | Functions to run
| | when refiling mes-
| | sage
mh-store-default-directory| nil | Default directory
| | for storing uuencode
| | or shar files
mh-sortm-args | nil | Additional arguments
| | for sortm
mh-scan-prog | "scan" | Program to scan mes-
| | sages
mh-msg-number-regexp | "^ *\\([0-9]+\\)" | Matches message
| | number in scan line
mh-msg-search-regexp | "^[^0-9]*%d[^0-9]"| Matches message
| | number %d
mh-valid-scan-line | "^ *[0-9]" | Matches a valid scan
| | line
mh-cmd-note | 4 | Offset for notation
mh-deleted-msg-regexp | "^....D" | Matches deleted mes-
| | sage
mh-refiled-msg-regexp | "^....\\^" | Matches refiled mes-
| | sage
mh-cur-scan-msg-regexp | "^....\\+" | Matches the current
| | message
mh-good-msg-regexp | "^....[^D^]" | Matches message that
| | can be shown by n,
| | etc.
mh-note-deleted | "D" | Notation for deleted
| | messages
mh-note-refiled | "^" | Notation for refiled
| | messages
mh-note-copied | "C" | Notation for copied
| | messages
mh-note-cur | "+" | Notation for the
| | current message
mh-note-repl | "-" | Notation for replied
| | to messages
mh-note-forw | "F" | Notation for for-
| | warded messages
mh-note-dist | "R" | Notation for redis-
| | tributed messages
mh-note-printed | "P" | Notation for printed
| | messages
mh-note-seq | "%" | Notation for mes-
| | sages in a sequence
mh-quit-hook | nil | Functions to run
| | after quitting
__________________________|____________________|______________________
Example: Rescan folder after incorporating new mail via mh-inc-folder-hook
(defun my-mh-inc-folder-hook ()
"Hook to rescan folder after incorporating mail."
(if (buffer-modified-p) ; if outstanding refiles and deletes,
(mh-execute-commands)) ; flush them
(mh-rescan-folder) ; synchronize with +inbox
(mh-show)) ; show the current message
(add-hook 'mh-inc-folder-hook 'my-mh-inc-folder-hook)
The function mh-default-folder-for-message-function is used by o (mh-refile-msg) and C-c C-f C-f (mh-to-fcc) to generate a default folder. The generated folder name should be a string with a "+" before it. For each of my correspondents, I use the same name for both an alias and a folder. So, I wrote a function that takes the address in the From: header field, finds it in my alias file, and returns the alias which is used as a default folder name. This is the most complicated example given here, and it demonstrates several features of Emacs Lisp programming. You should be able to drop this into ~/.emacs, however. If you use this to store messages in a subfolder of your Mail directory, you can modify the line that starts (format "+%s" ... and insert your subfolder after the folder symbol "+".
Example: Default refiling folder via mh-default-folder-for-message-function
(defun my-mh-folder-from-address ()
"Determine folder name from address.
Takes the address in the From: header field, and returns its corresponding
alias from the user's personal aliases file. Returns nil if the address
was not found."
(require 'rfc822) ; for the rfc822 functions
(search-forward-regexp "^From: \\(.*\\)") ; grab contents of header field
(setq addr (car (rfc822-addresses ; get address from header field
(buffer-substring (match-beginning 1)
(match-end 1)))))
(save-excursion ; save state
(let ((buffer (get-buffer-create " *temp*")) ; set local variables
folder)
(set-buffer buffer) ; jump to temporary buffer
(unwind-protect ; run kill-buffer when done or on error
(progn ; function grouping construct
(insert-file-contents (expand-file-name "aliases" mh-user-path))
(goto-char (point-min)) ; grab aliases file and go to beginning
(setq folder
;; Search for the given address, even commented-out addresses are
;; found! The function search-forward-regexp sets values that are
;; later used by match-beginning and match-end.
(if (search-forward-regexp (format "^;*\\(.*\\):.*%s"
addr) nil t)
;; NOTE WELL: this is what the return value looks like. You can
;; modify the format string to match your own Mail hierarchy.
(format "+%s" (buffer-substring (match-beginning 1)
(match-end 1))))))
(kill-buffer buffer)) ; get rid of our temporary buffer
folder))) ; function's return value
(setq mh-default-folder-for-message-function 'my-mh-folder-from-address)
The hook
mh-refile-msg-hook
is called after a message is marked to be filed.
The variable mh-sortm-args holds extra arguments to pass on to the sortm(1) command (the Section Sorting Messages: sortm). Note: this variable is only consulted when a prefix argument is given to M-x mh-sort-folder. It is used to override any arguments given in a sortm: entry in your MH profile (~/.mh_profile).
Scan line formatting
The name of the program that generates a listing of one line per message is held in mh-scan-prog (default: "scan"). Unless this variable contains an absolute pathname, it is assumed to be in the mh-progs directory. You may link another program to scan (the Section Making a New Command Version) to produce a different type of listing.
If you change the format of the scan lines you'll need to tell mh-e how to parse the new format. As you see, quite a lot of variables are involved to do that. The first variable has to do with pruning out garbage.
Next, two variables control how the message numbers are parsed.
Finally, there are a slew of variables that control how mh-e marks up the scan lines.
(setq mh-store-default-directory (expand-file-name "~/src/"))Subsequent incarnations of mh-store-msg offer the last directory used as the default. By the way, mh-store-msg calls the Emacs Lisp function mh-store-buffer. I mention this because you can use it directly if you're editing a buffer that contains a file that has been run through uuencode or shar. For example, you can extract the contents of the current buffer in your home directory by typing ESC ESC (mh-store-buffer "~").
[Table of Contents] [Index] [Previous: Editing a Draft] [Next: Searching Through Messages]
This file is from the third edition of the book MH & xmh: Email for Users & Programmers, ISBN 1-56592-093-7, by Jerry Peek. Copyright © 1991, 1992, 1995 by O'Reilly & Associates, Inc. This file is freely-available; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation. For more information, see the file copying.htm.
Suggestions are welcome: Bill Wohler <wohler@newt.com>
HIVE: All information for read only. Please respect copyright! |
