Mercurial > emacs
comparison lisp/mh-e/mh-scan.el @ 68465:37d03b3298bf
The Great Cleanup
Remove circular dependencies.
mh-e.el now includes few require statements and stands alone. Other
files should need to require mh-e.el, which requires mh-loaddefs.el,
plus variable-only files such as mh-scan.el.
Remove unneeded require statements.
Remove unneeded load statements, or replace them with non-fatal
require statements.
Break out components into their own files that were often spread
between many files. As a result, many functions that are now only used
within a single file no longer need to be autoloaded.
Rearrange and provide consistent headings.
Untabify.
* mh-acros.el: Update commentary to reflect current usage. Add
autoload cookies to all macros.
(mh-require-cl): Merge docstring and comment.
(mh-do-in-xemacs): Fix typo in docstring.
(assoc-string): Move to new file mh-compat.el.
(with-mh-folder-updating, mh-in-show-buffer)
(mh-do-at-event-location, mh-seq-msgs): Move here from mh-utils.el.
(mh-iterate-on-messages-in-region, mh-iterate-on-range): Move here
from mh-seq.el.
* mh-alias.el (mh-address-mail-regexp)
(mh-goto-address-find-address-at-point): Move here from mh-utils.el.
(mh-folder-line-matches-show-buffer-p): Move here from mh-e.el.
* mh-buffers.el: Update descriptive text.
* mh-comp.el (mh-note-repl, mh-note-forw, mh-note-dist): Move to new
file mh-scan.el.
(mh-yank-hooks, mh-to-field-choices, mh-position-on-field)
(mh-letter-menu, mh-letter-mode-help-messages)
(mh-letter-buttons-init-flag, mh-letter-mode)
(mh-font-lock-field-data, mh-letter-header-end)
(mh-auto-fill-for-letter, mh-to-field, mh-to-fcc)
(mh-file-is-vcard-p, mh-insert-signature, mh-check-whom)
(mh-insert-letter, mh-extract-from-attribution, mh-yank-cur-msg)
(mh-filter-out-non-text, mh-insert-prefix-string)
(mh-current-fill-prefix, mh-open-line, mh-complete-word)
(mh-folder-expand-at-point, mh-letter-complete-function-alist)
(mh-letter-complete, mh-letter-complete-or-space)
(mh-letter-confirm-address, mh-letter-header-field-at-point)
(mh-letter-next-header-field-or-indent)
(mh-letter-next-header-field, mh-letter-previous-header-field)
(mh-letter-skipped-header-field-p)
(mh-letter-skip-leading-whitespace-in-header-field)
(mh-hidden-header-keymap)
(mh-letter-toggle-header-field-display-button)
(mh-letter-toggle-header-field-display)
(mh-letter-truncate-header-field, mh-letter-mode-map): Move to new
file mh-letter.el.
(mh-letter-mode-map, mh-sent-from-folder, mh-send-args)
(mh-pgp-support-flag, mh-x-mailer-string)
(mh-letter-header-field-regexp): Move to mh-e.el.
(mh-goto-header-field, mh-goto-header-end)
(mh-extract-from-header-value, mh-beginning-of-word): Move to
mh-utils.el.
(mh-insert-header-separator): Move to mh-comp.el.
(mh-display-completion-list-compat): Move to new file mh-compat.el.
* mh-compat.el: New file.
(assoc-string): Move here from mh-acros.el.
(mh-display-completion-list): Move here from mh-comp.el.
* mh-customize.el: Move content into mh-e.el and remove.
* mh-e.el (mh-folder-mode-map, mh-folder-seq-tool-bar-map)
(mh-folder-tool-bar-map, mh-inc-spool-map, mh-letter-mode-map)
(mh-letter-tool-bar-map, mh-search-mode-map, mh-show-mode-map)
(mh-show-seq-tool-bar-map, mh-show-tool-bar-map): All maps now
declared here so that they can be used in docstrings.
(mh-sent-from-folder, mh-sent-from-msg)
(mh-letter-header-field-regexp, mh-pgp-support-flag)
(mh-x-mailer-string): Move here from mh-comp.el.
(mh-folder-line-matches-show-buffer-p): Move to mh-alias.el.
(mh-thread-scan-line-map, mh-thread-scan-line-map-stack): Move here
from mh-seq.el.
(mh-draft-folder, mh-inbox, mh-user-path, mh-current-folder)
(mh-previous-window-config, mh-seen-list, mh-seq-list)
(mh-show-buffer, mh-showing-mode, mh-globals-hash)
(mh-show-folder-buffer, mh-mail-header-separator)
(mh-unseen-seq, mh-previous-seq, mh-page-to-next-msg-flag)
(mh-signature-separator, mh-signature-separator-regexp)
(mh-list-to-string, mh-list-to-string-1): Move here from mh-utils.el.
(mh-index-max-cmdline-args, mh-xargs, mh-quote-for-shell)
(mh-exec-cmd, mh-exec-cmd-error, mh-exec-cmd-daemon)
(mh-exec-cmd-env-daemon, mh-process-daemon, mh-exec-cmd-quiet)
(mh-exec-cmd-output)
(mh-exchange-point-and-mark-preserving-active-mark)
(mh-exec-lib-cmd-output, mh-handle-process-error): Move here from
deprecated file mh-exec.el.
(mh-path): Move here from deprecated file mh-customize.el.
(mh-sys-path, mh-variants, mh-variant-in-use, mh-progs, mh-lib)
(mh-flists-present-flag, mh-variants, mh-variant-mh-info)
(mh-variant-mu-mh-info, mh-variant-nmh-info, mh-file-command-p)
(mh-variant-set-variant, mh-variant-p, mh-profile-component)
(mh-profile-component-value, mh-defface-compat): Move here from
deprecated file mh-init.el.
(mh-goto-next-button, mh-folder-mime-action)
(mh-folder-toggle-mime-part, mh-folder-inline-mime-part)
(mh-folder-save-mime-part, mh-toggle-mime-buttons): Move to to
mh-mime.el.
(mh-scan-format-mh, mh-scan-format-nmh, mh-note-deleted)
(mh-note-refiled, mh-note-cur, mh-scan-good-msg-regexp)
(mh-scan-deleted-msg-regexp, mh-scan-refiled-msg-regexp)
(mh-scan-valid-regexp, mh-scan-cur-msg-number-regexp)
(mh-scan-date-regexp, mh-scan-rcpt-regexp, mh-scan-body-regexp)
(mh-scan-subject-regexp, mh-scan-sent-to-me-sender-regexp)
(mh-scan-cmd-note-width, mh-scan-destination-width)
(mh-scan-date-width, mh-scan-date-flag-width)
(mh-scan-from-mbox-width, mh-scan-from-mbox-sep-width)
(mh-scan-field-destination-offset)
(mh-scan-field-from-start-offset, mh-scan-field-from-end-offset)
(mh-scan-field-subject-start-offset, mh-scan-format)
(mh-msg-num-width-to-column, mh-set-cmd-note): Move to new file
mh-scan.el.
(mh-partial-folder-mode-line-annotation)
(mh-folder-font-lock-keywords, mh-folder-font-lock-subject)
(mh-generate-sequence-font-lock, mh-last-destination)
(mh-last-destination-write, mh-first-msg-num, mh-last-msg-num)
(mh-rmail, mh-nmail, mh-delete-msg, mh-delete-msg-no-motion)
(mh-execute-commands, mh-first-msg, mh-header-display)
(mh-inc-folder, mh-last-msg, mh-next-undeleted-msg)
(mh-folder-from-address, mh-prompt-for-refile-folder)
(mh-refile-msg, mh-refile-or-write-again, mh-quit, mh-page-msg)
(mh-previous-page, mh-previous-undeleted-msg)
(mh-previous-unread-msg, mh-next-button, mh-prev-button)
(mh-reset-threads-and-narrowing, mh-rescan-folder)
(mh-write-msg-to-file, mh-toggle-showing, mh-undo)
(mh-visit-folder, mh-update-sequences, mh-delete-a-msg)
(mh-refile-a-msg, mh-next-msg, mh-next-unread-msg)
(mh-set-scan-mode, mh-undo-msg, mh-make-folder)
(mh-folder-sequence-menu, mh-folder-message-menu)
(mh-folder-folder-menu, mh-remove-xemacs-horizontal-scrollbar)
(mh-write-file-functions-compat, mh-folder-mode)
(mh-restore-desktop-buffer, mh-scan-folder)
(mh-regenerate-headers, mh-generate-new-cmd-note)
(mh-get-new-mail, mh-make-folder-mode-line, mh-goto-cur-msg)
(mh-process-or-undo-commands, mh-process-commands)
(mh-update-unseen, mh-delete-scan-msgs)
(mh-outstanding-commands-p): Move to new file mh-folder.el.
(mh-mapc, mh-colors-available-p, mh-colors-in-use-p)
(mh-make-local-vars, mh-coalesce-msg-list, mh-greaterp)
(mh-lessp): Move to mh-utils.el.
(mh-parse-flist-output-line, mh-folder-size-folder)
(mh-folder-size-flist, mh-folder-size, mh-add-sequence-notation)
(mh-remove-sequence-notation, mh-remove-cur-notation)
(mh-remove-all-notation, mh-delete-seq-locally)
(mh-read-folder-sequences, mh-read-msg-list)
(mh-notate-user-sequences, mh-internal-seqs, mh-internal-seq)
(mh-valid-seq-p, mh-delete-msg-from-seq, mh-catchup)
(mh-delete-a-msg-from-seq, mh-undefine-sequence)
(mh-define-sequence, mh-seq-containing-msg): Move to mh-seq.el.
(mh-xemacs-flag)
(mh-customize, mh-e, mh-alias, mh-folder, mh-folder-selection)
(mh-identity, mh-inc, mh-junk, mh-letter, mh-ranges)
(mh-scan-line-formats, mh-search, mh-sending-mail, mh-sequences)
(mh-show, mh-speedbar, mh-thread, mh-tool-bar, mh-hooks)
(mh-faces, mh-alias-completion-ignore-case-flag)
(mh-alias-expand-aliases-flag, mh-alias-flash-on-comma)
(mh-alias-insert-file, mh-alias-insertion-location)
(mh-alias-local-users, mh-alias-local-users-prefix)
(mh-alias-passwd-gecos-comma-separator-flag)
(mh-new-messages-folders, mh-ticked-messages-folders)
(mh-large-folder, mh-recenter-summary-flag)
(mh-recursive-folders-flag, mh-sortm-args)
(mh-default-folder-for-message-function, mh-default-folder-list)
(mh-default-folder-must-exist-flag, mh-default-folder-prefix)
(mh-identity-list, mh-auto-fields-list)
(mh-auto-fields-prompt-flag, mh-identity-default)
(mh-identity-handlers, mh-inc-prog, mh-inc-spool-list)
(mh-junk-choice, mh-junk-function-alist, mh-junk-choose)
(mh-junk-background, mh-junk-disposition, mh-junk-program)
(mh-compose-insertion, mh-compose-skipped-header-fields)
(mh-compose-space-does-completion-flag)
(mh-delete-yanked-msg-window-flag)
(mh-extract-from-attribution-verb, mh-ins-buf-prefix)
(mh-letter-complete-function, mh-letter-fill-column)
(mh-mml-method-default, mh-signature-file-name)
(mh-signature-separator-flag, mh-x-face-file, mh-yank-behavior)
(mh-interpret-number-as-range-flag, mh-adaptive-cmd-note-flag)
(mh-scan-format-file-check, mh-scan-format-file)
(mh-adaptive-cmd-note-flag-check, mh-scan-prog)
(mh-search-program, mh-compose-forward-as-mime-flag)
(mh-compose-letter-function, mh-compose-prompt-flag)
(mh-forward-subject-format, mh-insert-x-mailer-flag)
(mh-redist-full-contents-flag, mh-reply-default-reply-to)
(mh-reply-show-message-flag, mh-refile-preserves-sequences-flag)
(mh-tick-seq, mh-update-sequences-after-mh-show-flag)
(mh-bury-show-buffer-flag, mh-clean-message-header-flag)
(mh-decode-mime-flag, mh-display-buttons-for-alternatives-flag)
(mh-display-buttons-for-inline-parts-flag)
(mh-do-not-confirm-flag, mh-fetch-x-image-url)
(mh-graphical-smileys-flag, mh-graphical-emphasis-flag)
(mh-highlight-citation-style)
(mh-invisible-header-fields-internal)
(mh-delay-invisible-header-generation-flag)
(mh-invisible-header-fields, mh-invisible-header-fields-default)
(mh-invisible-header-fields-compiled, mh-invisible-headers)
(mh-lpr-command-format, mh-max-inline-image-height)
(mh-max-inline-image-width, mh-mhl-format-file)
(mh-mime-save-parts-default-directory, mh-print-background-flag)
(mh-show-maximum-size, mh-show-use-goto-addr-flag)
(mh-show-use-xface-flag, mh-store-default-directory)
(mh-summary-height, mh-speed-update-interval)
(mh-show-threads-flag, mh-tool-bar-search-function)
(mh-after-commands-processed-hook, mh-alias-reloaded-hook)
(mh-before-commands-processed-hook, mh-before-quit-hook)
(mh-before-send-letter-hook, mh-delete-msg-hook)
(mh-find-path-hook, mh-folder-mode-hook, mh-forward-hook)
(mh-inc-folder-hook, mh-insert-signature-hook)
(mh-kill-folder-suppress-prompt-hooks, mh-letter-mode-hook)
(mh-mh-to-mime-hook, mh-search-mode-hook, mh-quit-hook)
(mh-refile-msg-hook, mh-show-hook, mh-show-mode-hook)
(mh-unseen-updated-hook, mh-min-colors-defined-flag)
(mh-folder-address, mh-folder-body)
(mh-folder-cur-msg-number, mh-folder-date, mh-folder-deleted)
(mh-folder-followup, mh-folder-msg-number, mh-folder-refiled)
(mh-folder-sent-to-me-hint, mh-folder-sent-to-me-sender)
(mh-folder-subject, mh-folder-tick, mh-folder-to)
(mh-search-folder, mh-letter-header-field, mh-show-cc)
(mh-show-date, mh-show-from, mh-show-header, mh-show-pgg-bad)
(mh-show-pgg-good, mh-show-pgg-unknown, mh-show-signature)
(mh-show-subject, mh-show-to, mh-show-xface, mh-speedbar-folder)
(mh-speedbar-folder-with-unseen-messages)
(mh-speedbar-selected-folder)
(mh-speedbar-selected-folder-with-unseen-messages): Move here from
deprecated file mh-customize.el.
* mh-exec.el: Move content into mh-e.el and remove.
* mh-folder.el: New file. Contains mh-folder-mode from mh-e.el
* mh-funcs.el (mh-note-copied, mh-note-printed): Move to new file
mh-scan.el.
(mh-ephem-message, mh-help, mh-prefix-help): Move to mh-utils.el.
* mh-gnus.el (mm-uu-dissect-text-parts): Add.
(mh-mail-abbrev-make-syntax-table): Move to mh-utils.el and rename to
mail-abbrev-make-syntax-table.
* mh-identity.el (mh-identity-menu): New variable for existing menu.
(mh-identity-make-menu-no-autoload): New alias for
mh-identity-make-menu which can be called from mh-e.el.
(mh-identity-list-set): Move to mh-e.el.
(mh-identity-add-menu): New function
(mh-insert-identity): Add optional argument maybe-insert so that local
variable mh-identity-local does not have to be visible.
(mh-identity-handler-default):
* mh-inc.el (mh-inc-spool-map): Move declaration to mh-e.el (with rest
of keymaps). Update key binding for ? to call mh-help with help
messages in new argument.
(mh-inc-spool-make-no-autoload): New alias for mh-inc-spool-make which
can be called from mh-e.el.
(mh-inc-spool-list-set): Simplify update of mh-inc-spool-map-help.
* mh-init.el: Move content into mh-e.el and remove.
* mh-junk.el: Update requires, untabify, and add mh-autoload cookies.
* mh-letter.el: New file. Contains mh-letter-mode from mh-comp.el.
* mh-limit.el: New file. Contains display limit commands from
mh-mime.el.
* mh-mime.el: Rearrange for consistency with other files.
(mh-buffer-data, mh-mm-inline-media-tests): Move here from
mh-utils.el.
(mh-folder-inline-mime-part, mh-folder-save-mime-part)
(mh-folder-toggle-mime-part, mh-toggle-mime-buttons)
(mh-goto-next-button): Move here from mh-e.el.
* mh-print.el: Rearrange for consistency with other files.
* mh-scan.el: New file. Contains scan line constants and utilities
from XXX, mh-funcs, mh-utils.el.
* mh-search.el: Rearrange for consistency with other files.
(mh-search-mode-map): Drop C-c C-f {dr} bindings since these fields
which don't exist in the saved header. Replace C-c C-f f with C-c C-f
m per mail-mode consistency.
(mh-search-mode): Use mh-set-help instead of setting mh-help-messages.
* mh-seq.el (mh-thread-message, mh-thread-container)
(mh-thread-id-hash, mh-thread-subject-hash, mh-thread-id-table)
(mh-thread-id-index-map, mh-thread-index-id-map)
(mh-thread-scan-line-map, mh-thread-scan-line-map-stack)
(mh-thread-subject-container-hash, mh-thread-duplicates)
(mh-thread-history, mh-thread-body-width)
(mh-thread-find-msg-subject mh-thread-initialize-hash)
(mh-thread-initialize, mh-thread-id-container)
(mh-thread-remove-parent-link, mh-thread-add-link)
(mh-thread-ancestor-p, mh-thread-get-message-container)
(mh-thread-get-message, mh-thread-canonicalize-id)
(mh-thread-prune-subject, mh-thread-container-subject)
(mh-thread-rewind-pruning, mh-thread-prune-containers)
(mh-thread-sort-containers, mh-thread-group-by-subject)
(mh-thread-process-in-reply-to, mh-thread-set-tables)
(mh-thread-update-id-index-maps, mh-thread-generate)
(mh-thread-inc, mh-thread-generate-scan-lines)
(mh-thread-parse-scan-line, mh-thread-update-scan-line-map)
(mh-thread-add-spaces, mh-thread-print-scan-lines)
(mh-thread-folder, mh-toggle-threads, mh-thread-forget-message)
(mh-thread-current-indentation-level, mh-thread-next-sibling)
(mh-thread-previous-sibling, mh-thread-immediate-ancestor)
(mh-thread-ancestor, mh-thread-find-children)
(mh-message-id-regexp, mh-thread-delete, mh-thread-refile): Move to
new file mh-thread.el.
(mh-subject-to-sequence, mh-subject-to-sequence-unthreaded)
(mh-subject-to-sequence-threaded, mh-edit-pick-expr)
(mh-pick-args-list, mh-narrow-to-subject, mh-narrow-to-from)
(mh-narrow-to-cc, mh-narrow-to-to, mh-narrow-to-header-field)
(mh-current-message-header-field, mh-narrow-to-range)
(mh-delete-subject, mh-delete-subject-or-thread): Move to new file
mh-limit.el.
(mh-iterate-on-messages-in-region, mh-iterate-on-range): Move to
mh-acros.el.
(mh-internal-seqs, mh-catchup, mh-delete-msg-from-seq)
(mh-internal-seq, mh-valid-seq-p, mh-seq-containing-msg)
(mh-define-sequence, mh-undefine-sequence)
(mh-delete-a-msg-from-seq, mh-delete-seq-locally)
(mh-folder-size, mh-folder-size-flist, mh-folder-size-folder)
(mh-parse-flist-output-line, mh-read-folder-sequences)
(mh-read-msg-list, mh-notate-user-sequences)
(mh-remove-cur-notation, mh-add-sequence-notation)
(mh-remove-sequence-notation, mh-remove-all-notation): Move here from
mh-e.el.
(mh-make-seq, mh-seq-name, mh-find-seq, mh-seq-to-msgs)
(mh-add-msgs-to-seq, mh-notate): Move here from mh-utils.el.
* mh-show.el: New file. Contains mh-show-mode from mh-utils.el.
* mh-speed.el: Rearrange for consistency with other files.
* mh-thread.el: New file. Contains threading code from mh-seq.el.
* mh-tool-bar.el: New file. Contains tool bar creation code from
deprecated file mh-customize.el.
* mh-utils.el (recursive-load-depth-limit): Remove setting. No longer
needed.
(mh-scan-msg-number-regexp, mh-scan-msg-overflow-regexp)
(mh-scan-msg-format-regexp, mh-scan-msg-format-string)
(mh-scan-msg-search-regexp, mh-cmd-note, mh-note-seq)
(mh-update-scan-format, mh-msg-num-width): Move to new file
mh-scan.el.
(mh-show-buffer-mode-line-buffer-id, mh-letter-header-font-lock)
(mh-header-field-font-lock, mh-header-to-font-lock)
(mh-header-cc-font-lock, mh-header-subject-font-lock)
(mh-show-font-lock-keywords)
(mh-show-font-lock-keywords-with-cite)
(mh-show-font-lock-fontify-region)
(mh-gnus-article-highlight-citation, mh-showing-with-headers)
(mh-start-of-uncleaned-message, mh-invalidate-show-buffer)
(mh-unvisit-file, mh-defun-show-buffer, mh-show-mode-map)
(mh-show-sequence-menu, mh-show-message-menu)
(mh-show-folder-menu, mh-show-mode, mh-show-addr)
(mh-maybe-show, mh-show, mh-show-msg, mh-show-unquote-From)
(mh-msg-folder, mh-display-msg, mh-clean-msg-header): Move to new file
mh-show.el.
(mh-mail-header-separator, mh-signature-separator-regexp)
(mh-signature-separator, mh-globals-hash, mh-user-path)
(mh-draft-folder, mh-unseen-seq, mh-previous-seq, mh-inbox)
(mh-previous-window-config, mh-current-folder mh-show-buffer)
(mh-showing-mode, mh-show-mode-map, mh-show-folder-buffer)
(mh-showing-mode, mh-seq-list, mh-seen-list, mh-summary-height)
(mh-list-to-string, mh-list-to-string-1): Move to mh-e.el.
(mh-buffer-data, mh-mm-inline-media-tests): Move to mh-mime.el.
(mh-address-mail-regexp, mh-goto-address-find-address-at-point): Move
to mh-alias.el.
(mh-letter-font-lock-keywords): Move to new file mh-letter.el.
(mh-folder-filename, mh-msg-count, mh-recenter, mh-msg-filename)
(mh-show-mouse, mh-modify, mh-goto-msg, mh-set-folder-modified-p):
Move to new file mh-folder.el.
(with-mh-folder-updating, mh-in-show-buffer)
(mh-do-at-event-location, mh-seq-msgs): Moved to mh-acros.el.
(mh-make-seq, mh-seq-name, mh-notate, mh-find-seq)
(mh-seq-to-msgs, mh-add-msgs-to-seq, mh-canonicalize-sequence): Moved
to mh-seq.el.
(mh-show-xface-function, mh-uncompface-executable, mh-face-to-png)
(mh-uncompface, mh-icontopbm, mh-face-foreground-compat)
(mh-face-background-compat, mh-face-display-function)
(mh-show-xface, mh-picon-directory-list)
(mh-picon-existing-directory-list)
(mh-picon-cache, mh-picon-image-types)
(mh-picon-set-directory-list, mh-picon-get-image)
(mh-picon-file-contents, mh-picon-generate-path)
(mh-x-image-cache-directory, mh-x-image-scaling-function)
(mh-wget-executable, mh-wget-choice, mh-wget-option)
(mh-x-image-temp-file, mh-x-image-url, mh-x-image-marker)
(mh-x-image-url-cache-file, mh-x-image-scale-with-pnm)
(mh-x-image-scale-with-convert)
(url-unreserved-chars, url-hexify-string)
(mh-x-image-url-cache-canonicalize)
(mh-x-image-set-download-state, mh-x-image-get-download-state)
(mh-x-image-url-fetch-image, mh-x-image-display)
(mh-x-image-scale-and-display, mh-x-image-url-sane-p)
(mh-x-image-url-display): Move to new file mh-xface.el.
(mh-logo-display): Call mh-image-load-path.
(mh-find-path-run, mh-find-path): Move here from deprecated file
mh-init.el.
(mh-help-messages): Now an alist of modes to an alist of messages.
(mh-set-help): New function used to set mh-help-messages
(mh-help): Adjust for new format of mh-help-messages. Add
help-messages argument.
(mh-prefix-help): Refactor to use mh-help.
(mh-coalesce-msg-list, mh-greaterp, mh-lessp): Move here from mh-e.el.
(mh-clear-sub-folders-cache): New function added to avoid exposing
mh-sub-folders-cache variable.
* mh-xface.el: New file. Contains X-Face and Face header field display
routines from mh-utils.el.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Sun, 29 Jan 2006 19:34:57 +0000 |
parents | |
children | 4bd450a8dbe2 |
comparison
equal
deleted
inserted
replaced
68464:79464a6167f5 | 68465:37d03b3298bf |
---|---|
1 ;;; mh-scan.el --- MH-E scan line constants and utilities | |
2 | |
3 ;; Copyright (C) 1993, 1995, 1997, | |
4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | |
5 | |
6 ;; Author: Bill Wohler <wohler@newt.com> | |
7 ;; Maintainer: Bill Wohler <wohler@newt.com> | |
8 ;; Keywords: mail | |
9 ;; See: mh-e.el | |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
15 ;; the Free Software Foundation; either version 2, or (at your option) | |
16 ;; any later version. | |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | |
26 ;; Boston, MA 02110-1301, USA. | |
27 | |
28 ;;; Commentary: | |
29 | |
30 ;; This file contains constants and a few functions for interpreting | |
31 ;; scan lines. | |
32 | |
33 ;;; Change Log: | |
34 | |
35 ;;; Code: | |
36 | |
37 (require 'mh-e) | |
38 | |
39 | |
40 | |
41 ;;; Scan Formats | |
42 | |
43 ;; The following scan formats are passed to the scan program if the setting of | |
44 ;; `mh-scan-format-file' is t. They are identical except the later one makes | |
45 ;; use of the nmh `decode' function to decode RFC 2047 encodings. If you just | |
46 ;; want to change the column of the notations, use the `mh-set-cmd-note' | |
47 ;; function. | |
48 | |
49 (defvar mh-scan-format-mh | |
50 (concat | |
51 "%4(msg)" | |
52 "%<(cur)+%| %>" | |
53 "%<{replied}-" | |
54 "%?(nonnull(comp{to}))%<(mymbox{to})t%>" | |
55 "%?(nonnull(comp{cc}))%<(mymbox{cc})c%>" | |
56 "%?(nonnull(comp{bcc}))%<(mymbox{bcc})b%>" | |
57 "%?(nonnull(comp{newsgroups}))n%>" | |
58 "%<(zero) %>" | |
59 "%02(mon{date})/%02(mday{date})%<{date} %|*%>" | |
60 "%<(mymbox{from})%<{to}To:%14(friendly{to})%>%>" | |
61 "%<(zero)%17(friendly{from})%> " | |
62 "%{subject}%<{body}<<%{body}%>") | |
63 "*Scan format string for MH. | |
64 This string is passed to the scan program via the -format | |
65 argument. This format is identical to the default except that | |
66 additional hints for fontification have been added to the fifth | |
67 column (remember that in Emacs, the first column is 0). | |
68 | |
69 The values of the fifth column, in priority order, are: \"-\" if | |
70 the message has been replied to, t if an address on the To: line | |
71 matches one of the mailboxes of the current user, \"c\" if the Cc: | |
72 line matches, \"b\" if the Bcc: line matches, and \"n\" if a | |
73 non-empty Newsgroups: header is present.") | |
74 | |
75 (defvar mh-scan-format-nmh | |
76 (concat | |
77 "%4(msg)" | |
78 "%<(cur)+%| %>" | |
79 "%<{replied}-" | |
80 "%?(nonnull(comp{to}))%<(mymbox{to})t%>" | |
81 "%?(nonnull(comp{cc}))%<(mymbox{cc})c%>" | |
82 "%?(nonnull(comp{bcc}))%<(mymbox{bcc})b%>" | |
83 "%?(nonnull(comp{newsgroups}))n%>" | |
84 "%<(zero) %>" | |
85 "%02(mon{date})/%02(mday{date})%<{date} %|*%>" | |
86 "%<(mymbox{from})%<{to}To:%14(decode(friendly{to}))%>%>" | |
87 "%<(zero)%17(decode(friendly{from}))%> " | |
88 "%(decode{subject})%<{body}<<%{body}%>") | |
89 "*Scan format string for nmh. | |
90 This string is passed to the scan program via the -format arg. | |
91 This format is identical to the default except that additional | |
92 hints for fontification have been added to the fifth | |
93 column (remember that in Emacs, the first column is 0). | |
94 | |
95 The values of the fifth column, in priority order, are: \"-\" if | |
96 the message has been replied to, t if an address on the To: field | |
97 matches one of the mailboxes of the current user, \"c\" if the Cc: | |
98 field matches, \"b\" if the Bcc: field matches, and \"n\" if a | |
99 non-empty Newsgroups: field is present.") | |
100 | |
101 | |
102 | |
103 ;;; Regular Expressions | |
104 | |
105 ;; Alphabetical. | |
106 | |
107 (defvar mh-scan-body-regexp "\\(<<\\([^\n]+\\)?\\)" | |
108 "This regular expression matches the message body fragment. | |
109 | |
110 Note that the default setting of `mh-folder-font-lock-keywords' | |
111 expects this expression to contain at least one parenthesized | |
112 expression which matches the body text as in the default of | |
113 \"\\\\(<<\\\\([^\\n]+\\\\)?\\\\)\". If this regular expression is | |
114 not correct, the body fragment will not be highlighted with the | |
115 face `mh-folder-body'.") | |
116 | |
117 (defvar mh-scan-cur-msg-number-regexp "^\\( *[0-9]+\\+\\).*" | |
118 "This regular expression matches the current message. | |
119 | |
120 It must match from the beginning of the line. Note that the | |
121 default setting of `mh-folder-font-lock-keywords' expects this | |
122 expression to contain at least one parenthesized expression which | |
123 matches the message number as in the default of | |
124 | |
125 \"^\\\\( *[0-9]+\\\\+\\\\).*\". | |
126 | |
127 This expression includes the leading space and current message | |
128 marker \"+\" within the parenthesis since it looks better to | |
129 highlight these items as well. The highlighting is done with the | |
130 face `mh-folder-cur-msg-number'. This regular expression should | |
131 be correct as it is needed by non-fontification functions. See | |
132 also `mh-note-cur'.") | |
133 | |
134 (defvar mh-scan-date-regexp "\\([0-9][0-9]/[0-9][0-9]\\)" | |
135 "This regular expression matches a valid date. | |
136 | |
137 It must not be anchored to the beginning or the end of the line. | |
138 Note that the default setting of `mh-folder-font-lock-keywords' | |
139 expects this expression to contain only one parenthesized | |
140 expression which matches the date field as in the default of | |
141 \"\\\\([0-9][0-9]/[0-9][0-9]\\\\)\"}. If this regular expression | |
142 is not correct, the date will not be highlighted with the face | |
143 `mh-folder-date'.") | |
144 | |
145 (defvar mh-scan-deleted-msg-regexp "^\\( *[0-9]+\\)D" | |
146 "This regular expression matches deleted messages. | |
147 | |
148 It must match from the beginning of the line. Note that the | |
149 default setting of `mh-folder-font-lock-keywords' expects this | |
150 expression to contain at least one parenthesized expression which | |
151 matches the message number as in the default of | |
152 | |
153 \"^\\\\( *[0-9]+\\\\)D\". | |
154 | |
155 This expression includes the leading space within the parenthesis | |
156 since it looks better to highlight it as well. The highlighting | |
157 is done with the face `mh-folder-deleted'. This regular | |
158 expression should be correct as it is needed by non-fontification | |
159 functions. See also `mh-note-deleted'.") | |
160 | |
161 (defvar mh-scan-good-msg-regexp "^\\( *[0-9]+\\)[^D^0-9]" | |
162 "This regular expression matches \"good\" messages. | |
163 | |
164 It must match from the beginning of the line. Note that the | |
165 default setting of `mh-folder-font-lock-keywords' expects this | |
166 expression to contain at least one parenthesized expression which | |
167 matches the message number as in the default of | |
168 | |
169 \"^\\\\( *[0-9]+\\\\)[^D^0-9]\". | |
170 | |
171 This expression includes the leading space within the parenthesis | |
172 since it looks better to highlight it as well. The highlighting | |
173 is done with the face `mh-folder-msg-number'. This regular | |
174 expression should be correct as it is needed by non-fontification | |
175 functions.") | |
176 | |
177 (defvar mh-scan-msg-format-regexp "%\\([0-9]*\\)(msg)" | |
178 "This regular expression finds the message number width in a scan format. | |
179 | |
180 Note that the message number must be placed in a parenthesized | |
181 expression as in the default of \"%\\\\([0-9]*\\\\)(msg)\". This | |
182 variable is only consulted if `mh-scan-format-file' is set to | |
183 \"Use MH-E scan Format\".") | |
184 | |
185 (defvar mh-scan-msg-format-string "%d" | |
186 "This is a format string for width of the message number in a scan format. | |
187 | |
188 Use \"0%d\" for zero-filled message numbers. This variable is only | |
189 consulted if `mh-scan-format-file' is set to \"Use MH-E scan | |
190 Format\".") | |
191 | |
192 (defvar mh-scan-msg-number-regexp "^ *\\([0-9]+\\)" | |
193 "This regular expression extracts the message number. | |
194 | |
195 It must match from the beginning of the line. Note that the | |
196 message number must be placed in a parenthesized expression as in | |
197 the default of \"^ *\\\\([0-9]+\\\\)\".") | |
198 | |
199 (defvar mh-scan-msg-overflow-regexp "^[?0-9][0-9]" | |
200 "This regular expression matches overflowed message numbers.") | |
201 | |
202 (defvar mh-scan-msg-search-regexp "^[^0-9]*%d[^0-9]" | |
203 "This regular expression matches a particular message. | |
204 | |
205 It is a format string; use \"%d\" to represent the location of the | |
206 message number within the expression as in the default of | |
207 \"^[^0-9]*%d[^0-9]\".") | |
208 | |
209 (defvar mh-scan-rcpt-regexp "\\(To:\\)\\(..............\\)" | |
210 "This regular expression specifies the recipient in messages you sent. | |
211 | |
212 Note that the default setting of `mh-folder-font-lock-keywords' | |
213 expects this expression to contain two parenthesized expressions. | |
214 The first is expected to match the \"To:\" that the default scan | |
215 format file generates. The second is expected to match the | |
216 recipient's name as in the default of | |
217 \"\\\\(To:\\\\)\\\\(..............\\\\)\". If this regular | |
218 expression is not correct, the \"To:\" string will not be | |
219 highlighted with the face `mh-folder-to' and the recipient will | |
220 not be highlighted with the face `mh-folder-address'") | |
221 | |
222 (defvar mh-scan-refiled-msg-regexp "^\\( *[0-9]+\\)\\^" | |
223 "This regular expression matches refiled messages. | |
224 | |
225 It must match from the beginning of the line. Note that the | |
226 default setting of `mh-folder-font-lock-keywords' expects this | |
227 expression to contain at least one parenthesized expression which | |
228 matches the message number as in the default of | |
229 | |
230 \"^\\\\( *[0-9]+\\\\)\\\\^\". | |
231 | |
232 This expression includes the leading space within the parenthesis | |
233 since it looks better to highlight it as well. The highlighting | |
234 is done with the face `mh-folder-refiled'. This regular | |
235 expression should be correct as it is needed by non-fontification | |
236 functions. See also `mh-note-refiled'.") | |
237 | |
238 (defvar mh-scan-sent-to-me-sender-regexp | |
239 "^ *[0-9]+.\\([bct]\\).....[ ]*\\(..................\\)" | |
240 "This regular expression matches messages sent to us. | |
241 | |
242 Note that the default setting of `mh-folder-font-lock-keywords' | |
243 expects this expression to contain at least two parenthesized | |
244 expressions. The first should match the fontification hint (see | |
245 `mh-scan-format-nmh') and the second should match the user name | |
246 as in the default of | |
247 | |
248 ^ *[0-9]+.\\\\([bct]\\\\).....[ ]*\\\\(..................\\\\) | |
249 | |
250 If this regular expression is not correct, the notation hints | |
251 will not be highlighted with the face | |
252 `mh-mh-folder-sent-to-me-hint' and the sender will not be | |
253 highlighted with the face `mh-folder-sent-to-me-sender'.") | |
254 | |
255 (defvar mh-scan-subject-regexp | |
256 "^ *[0-9]+........[ ]*...................\\([Rr][Ee]\\(\\[[0-9]+\\]\\)?:\\s-*\\)*\\([^<\n]*\\)" | |
257 "This regular expression matches the subject. | |
258 | |
259 It must match from the beginning of the line. Note that the | |
260 default setting of `mh-folder-font-lock-keywords' expects this | |
261 expression to contain at least three parenthesized expressions. | |
262 The first is expected to match the \"Re:\" string, if any, and is | |
263 highlighted with the face `mh-folder-followup'. The second | |
264 matches an optional bracketed number after \"Re:\", such as in | |
265 \"Re[2]:\" (and is thus a sub-expression of the first expression) | |
266 and the third is expected to match the subject line itself which | |
267 is highlighted with the face `mh-folder-subject'. For example, | |
268 the default (broken on multiple lines for readability) is | |
269 | |
270 ^ *[0-9]+........[ ]*................... | |
271 \\\\([Rr][Ee]\\\\(\\\\\\=[[0-9]+\\\\]\\\\)?:\\\\s-*\\\\)* | |
272 \\\\([^<\\n]*\\\\) | |
273 | |
274 This regular expression should be correct as it is needed by | |
275 non-fontification functions.") | |
276 | |
277 (defvar mh-scan-valid-regexp "^ *[0-9]" | |
278 "This regular expression describes a valid scan line. | |
279 | |
280 This is used to eliminate error messages that are occasionally | |
281 produced by \"inc\".") | |
282 | |
283 | |
284 | |
285 ;;; Widths, Offsets and Columns | |
286 | |
287 (defvar mh-cmd-note 4 | |
288 "Column for notations. | |
289 | |
290 This variable should be set with the function `mh-set-cmd-note'. | |
291 This variable may be updated dynamically if | |
292 `mh-adaptive-cmd-note-flag' is on. | |
293 | |
294 Note that columns in Emacs start with 0.") | |
295 (make-variable-buffer-local 'mh-cmd-note) | |
296 | |
297 (defvar mh-scan-cmd-note-width 1 | |
298 "Number of columns consumed by the cmd-note field in `mh-scan-format'. | |
299 | |
300 This column will have one of the values: \" \", \"D\", \"^\", \"+\" and | |
301 where \" \" is the default value, | |
302 | |
303 \"D\" is the `mh-note-deleted' character, | |
304 \"^\" is the `mh-note-refiled' character, and | |
305 \"+\" is the `mh-note-cur' character.") | |
306 | |
307 (defvar mh-scan-destination-width 1 | |
308 "Number of columns consumed by the destination field in `mh-scan-format'. | |
309 | |
310 This column will have one of \" \", \"%\", \"-\", \"t\", \"c\", \"b\", or \"n\" | |
311 in it. | |
312 | |
313 \" \" blank space is the default character. | |
314 \"%\" indicates that the message in in a named MH sequence. | |
315 \"-\" indicates that the message has been annotated with a replied field. | |
316 \"t\" indicates that the message contains mymbox in the To: field. | |
317 \"c\" indicates that the message contains mymbox in the Cc: field. | |
318 \"b\" indicates that the message contains mymbox in the Bcc: field. | |
319 \"n\" indicates that the message contains a Newsgroups: field.") | |
320 | |
321 (defvar mh-scan-date-width 5 | |
322 "Number of columns consumed by the date field in `mh-scan-format'. | |
323 This column will typically be of the form mm/dd.") | |
324 | |
325 (defvar mh-scan-date-flag-width 1 | |
326 "Number of columns consumed to flag (in)valid dates in `mh-scan-format'. | |
327 This column will have \" \" for valid and \"*\" for invalid or | |
328 missing dates.") | |
329 | |
330 (defvar mh-scan-from-mbox-width 17 | |
331 "Number of columns consumed with the \"From:\" line in `mh-scan-format'. | |
332 This column will have a friendly name or e-mail address of the | |
333 originator, or a \"To: address\" for outgoing e-mail messages.") | |
334 | |
335 (defvar mh-scan-from-mbox-sep-width 2 | |
336 "Number of columns consumed by whitespace after from-mbox in `mh-scan-format'. | |
337 This column will only ever have spaces in it.") | |
338 | |
339 (defvar mh-scan-field-destination-offset | |
340 (+ mh-scan-cmd-note-width) | |
341 "The offset from the `mh-cmd-note' for the destination column.") | |
342 | |
343 (defvar mh-scan-field-from-start-offset | |
344 (+ mh-scan-cmd-note-width | |
345 mh-scan-destination-width | |
346 mh-scan-date-width | |
347 mh-scan-date-flag-width) | |
348 "The offset from the `mh-cmd-note' to find the start of \"From:\" address.") | |
349 | |
350 (defvar mh-scan-field-from-end-offset | |
351 (+ mh-scan-field-from-start-offset mh-scan-from-mbox-width) | |
352 "The offset from the `mh-cmd-note' to find the end of \"From:\" address.") | |
353 | |
354 (defvar mh-scan-field-subject-start-offset | |
355 (+ mh-scan-cmd-note-width | |
356 mh-scan-destination-width | |
357 mh-scan-date-width | |
358 mh-scan-date-flag-width | |
359 mh-scan-from-mbox-width | |
360 mh-scan-from-mbox-sep-width) | |
361 "The offset from the `mh-cmd-note' to find the start of the subject.") | |
362 | |
363 | |
364 | |
365 ;;; Notation | |
366 | |
367 ;; Alphabetical. | |
368 | |
369 (defvar mh-note-cur ?+ | |
370 "The current message (in MH, not in MH-E) is marked by this character. | |
371 See also `mh-scan-cur-msg-number-regexp'.") | |
372 | |
373 (defvar mh-note-copied "C" | |
374 "Messages that have been copied are marked by this character.") | |
375 | |
376 (defvar mh-note-deleted ?D | |
377 "Messages that have been deleted are marked by this character. | |
378 See also `mh-scan-deleted-msg-regexp'.") | |
379 | |
380 (defvar mh-note-dist ?R | |
381 "Messages that have been redistributed are marked by this character.") | |
382 | |
383 (defvar mh-note-forw ?F | |
384 "Messages that have been forwarded are marked by this character.") | |
385 | |
386 (defvar mh-note-printed "P" | |
387 "Messages that have been printed are marked by this character.") | |
388 | |
389 (defvar mh-note-refiled ?^ | |
390 "Messages that have been refiled are marked by this character. | |
391 See also `mh-scan-refiled-msg-regexp'.") | |
392 | |
393 (defvar mh-note-repl ?- | |
394 "Messages that have been replied to are marked by this character.") | |
395 | |
396 (defvar mh-note-seq ?% | |
397 "Messages in a user-defined sequence are marked by this character. | |
398 | |
399 Messages in the \"search\" sequence are marked by this character as | |
400 well.") | |
401 | |
402 | |
403 | |
404 ;;; Utilities | |
405 | |
406 ;;;###mh-autoload | |
407 (defun mh-scan-msg-number-regexp () | |
408 "Return value of variable `mh-scan-msg-number-regexp'." | |
409 mh-scan-msg-number-regexp) | |
410 | |
411 ;;;###mh-autoload | |
412 (defun mh-scan-msg-search-regexp () | |
413 "Return value of variable `mh-scan-msg-search-regexp'." | |
414 mh-scan-msg-search-regexp) | |
415 | |
416 ;;;###mh-autoload | |
417 (defun mh-set-cmd-note (column) | |
418 "Set `mh-cmd-note' to COLUMN. | |
419 Note that columns in Emacs start with 0." | |
420 (setq mh-cmd-note column)) | |
421 | |
422 ;;;###mh-autoload | |
423 (defun mh-scan-format () | |
424 "Return the output format argument for the scan program." | |
425 (if (equal mh-scan-format-file t) | |
426 (list "-format" (if (mh-variant-p 'nmh 'mu-mh) | |
427 (list (mh-update-scan-format | |
428 mh-scan-format-nmh mh-cmd-note)) | |
429 (list (mh-update-scan-format | |
430 mh-scan-format-mh mh-cmd-note)))) | |
431 (if (not (equal mh-scan-format-file nil)) | |
432 (list "-form" mh-scan-format-file)))) | |
433 | |
434 (defun mh-update-scan-format (fmt width) | |
435 "Return a scan format with the (msg) width in the FMT replaced with WIDTH. | |
436 | |
437 The message number width portion of the format is discovered | |
438 using `mh-scan-msg-format-regexp'. Its replacement is controlled | |
439 with `mh-scan-msg-format-string'." | |
440 (or (and | |
441 (string-match mh-scan-msg-format-regexp fmt) | |
442 (let ((begin (match-beginning 1)) | |
443 (end (match-end 1))) | |
444 (concat (substring fmt 0 begin) | |
445 (format mh-scan-msg-format-string width) | |
446 (substring fmt end)))) | |
447 fmt)) | |
448 | |
449 ;;;###mh-autoload | |
450 (defun mh-msg-num-width (folder) | |
451 "Return the width of the largest message number in this FOLDER." | |
452 (or mh-progs (mh-find-path)) | |
453 (let ((tmp-buffer (get-buffer-create mh-temp-buffer)) | |
454 (width 0)) | |
455 (save-excursion | |
456 (set-buffer tmp-buffer) | |
457 (erase-buffer) | |
458 (apply 'call-process | |
459 (expand-file-name mh-scan-prog mh-progs) nil '(t nil) nil | |
460 (list folder "last" "-format" "%(msg)")) | |
461 (goto-char (point-min)) | |
462 (if (re-search-forward mh-scan-msg-number-regexp nil 0 1) | |
463 (setq width (length (buffer-substring | |
464 (match-beginning 1) (match-end 1)))))) | |
465 width)) | |
466 | |
467 ;;;###mh-autoload | |
468 (defun mh-msg-num-width-to-column (width) | |
469 "Return the column for notations given message number WIDTH. | |
470 Note that columns in Emacs start with 0. | |
471 | |
472 If `mh-scan-format-file' is set to \"Use MH-E scan Format\" this | |
473 means that either `mh-scan-format-mh' or `mh-scan-format-nmh' are | |
474 in use. This function therefore assumes that the first column is | |
475 empty (to provide room for the cursor), the following WIDTH | |
476 columns contain the message number, and the column for notations | |
477 comes after that." | |
478 (if (eq mh-scan-format-file t) | |
479 (max (1+ width) 2) | |
480 (error "%s %s" "Can't call `mh-msg-num-width-to-column' when" | |
481 "`mh-scan-format-file' is not set to \"Use MH-E scan Format\""))) | |
482 | |
483 (provide 'mh-scan) | |
484 | |
485 ;; Local Variables: | |
486 ;; indent-tabs-mode: nil | |
487 ;; sentence-end-double-space: nil | |
488 ;; End: | |
489 | |
490 ;;; mh-scan.el ends here |