Commit cee9f5c6 authored by Bill Wohler's avatar Bill Wohler
Browse files

* mh-acros.el:

* mh-alias.el:
* mh-comp.el:
* mh-customize.el:
* mh-e.el:
* mh-funcs.el:
* mh-gnus.el:
* mh-identity.el:
* mh-inc.el:
* mh-index.el:
* mh-init.el:
* mh-junk.el:
* mh-mime.el:
* mh-pick.el:
* mh-print.el:
* mh-seq.el:
* mh-speed.el:
* mh-utils.el:
Follow commenting conventions. Don't use ;;; form so much, except for
headings. Precede headings with page feed. This was mostly already
done, so I made it a convention. Did not update copyright on a couple
of files since this was an insignificant change.
parent c8fee345
2005-12-19 Bill Wohler <wohler@newt.com>
* mh-acros.el:
* mh-alias.el:
* mh-comp.el:
* mh-customize.el:
* mh-e.el:
* mh-funcs.el:
* mh-gnus.el:
* mh-identity.el:
* mh-inc.el:
* mh-index.el:
* mh-init.el:
* mh-junk.el:
* mh-mime.el:
* mh-pick.el:
* mh-print.el:
* mh-seq.el:
* mh-speed.el:
* mh-utils.el:
Follow commenting conventions. Don't use ;;; form so much, except
for headings. Precede headings with page feed. This was mostly
already done, so I made it a convention. Did not update copyright
on a couple of files since this was an insignificant change.
2005-12-18 Bill Wohler <wohler@newt.com>
* mh-customize.el (mh-toolbar): Rename to mh-tool-bar.
......
......@@ -55,7 +55,7 @@ recognizes that and loads `cl' where appropriate."
`(require 'cl)
`(eval-when-compile (require 'cl))))
;;; Macros to generate correct code for different emacs variants
;; Macros to generate correct code for different emacs variants
(defmacro mh-do-in-gnu-emacs (&rest body)
"Execute BODY if in GNU Emacs."
......@@ -144,11 +144,11 @@ Emacs 22."
(provide 'mh-acros)
;;; Local Variables:
;;; no-byte-compile: t
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; no-byte-compile: t
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;; arch-tag: b383b49a-494f-4ed0-a30a-cb6d5d2da4ff
;;; mh-acros.el ends here
......@@ -38,7 +38,10 @@
; completing-read-multiple.
(eval-when-compile (defvar mail-abbrev-syntax-table))
;;; Autoloads
(eval-when (compile load eval)
(ignore-errors
(require 'mailabbrev)
......@@ -71,6 +74,7 @@ listed in your `Aliasfile:' MH profile component are automatically included.
You can update the alias list manually using \\[mh-alias-reload].")
;;; Alias Loading
(defun mh-alias-tstamp (arg)
......@@ -228,6 +232,7 @@ with no arguments, after the aliases have been loaded."
(mh-alias-reload)))
;;; Alias Expansion
(defun mh-alias-ali (alias &optional user)
......@@ -312,6 +317,7 @@ Blind aliases or users from /etc/passwd are not expanded."
(delete-region begin end)
(insert expansion)))))
;;; Adding addresses to alias file.
(defun mh-alias-suggest-alias (string &optional no-comma-swap)
......@@ -653,10 +659,10 @@ name hint when filing messages."
(provide 'mh-alias)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; arch-tag: 49879e46-5aa3-4569-bece-e5a58731d690
;; arch-tag: 49879e46-5aa3-4569-bece-e5a58731d690
;;; mh-alias.el ends here
......@@ -52,7 +52,9 @@
(defvar mh-mml-mode-default)
(defvar mh-identity-menu)
;;; Autoloads
(autoload 'mail-mode-fill-paragraph "sendmail")
(autoload 'mm-handle-displayed-p "mm-decode")
......@@ -80,6 +82,8 @@ For Emacs 19's, the region need not be active (and typically isn't
when this function is called. Also, the hook `sc-pre-hook' is run
before, and `sc-post-hook' is run after the guts of this function.")
;;; Site customization (see also mh-utils.el):
(defvar mh-send-prog "send"
......@@ -91,6 +95,8 @@ Some sites need to change this because of a name conflict.")
This allows transaction log to be visible if -watch, -verbose or -snoop are
used.")
;;; Scan Line Formats
(defvar mh-note-repl ?-
......@@ -824,7 +830,7 @@ Returns t if found, nil if not."
(put 'mh-letter-mode 'mode-class 'special)
;;; Menu extracted from mh-menubar.el V1.1 (31 July 2001)
;; Menu extracted from mh-menubar.el V1.1 (31 July 2001)
(eval-when-compile (defvar mh-letter-menu nil))
(easy-menu-define
mh-letter-menu mh-letter-mode-map "Menu for MH-E letter mode."
......@@ -874,8 +880,11 @@ Returns t if found, nil if not."
mh-mh-to-mime-undo (equal mh-compose-insertion 'mh)]
["Kill This Draft" mh-fully-kill-draft t]))
;;; Help Messages
;;; Group messages logically, more or less.
;; Group messages logically, more or less.
(defvar mh-letter-mode-help-messages
'((nil
"Send letter: \\[mh-send-letter]"
......@@ -2026,8 +2035,11 @@ Otherwise return the empty string."
(goto-char (point-max))
(mh-letter-next-header-field)))
;;; Build the letter-mode keymap:
;;; If this changes, modify mh-letter-mode-help-messages accordingly, above.
;;; Build mh-letter-mode keymap
;; If this changes, modify mh-letter-mode-help-messages accordingly, above.
(gnus-define-keys mh-letter-mode-map
" " mh-letter-complete-or-space
"," mh-letter-confirm-address
......@@ -2089,10 +2101,10 @@ Otherwise return the empty string."
(provide 'mh-comp)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; arch-tag: 62865511-e610-4923-b0b5-f45a8ab70a34
;; arch-tag: 62865511-e610-4923-b0b5-f45a8ab70a34
;;; mh-comp.el ends here
......@@ -83,6 +83,11 @@
(require 'mh-init)
(require 'mh-identity))
;; For compiler warnings...
(eval-when-compile
(defvar mh-show-buffer)
(defvar mh-show-folder-buffer))
(defun mh-customize (&optional delete-other-windows-flag)
"Customize MH-E variables.
If optional argument DELETE-OTHER-WINDOWS-FLAG is non-nil, other windows in
......@@ -94,11 +99,6 @@ the frame are removed."
;;; For compiler warnings...
(eval-when-compile
(defvar mh-show-buffer)
(defvar mh-show-folder-buffer))
;;; MH-E Customization Groups
(defgroup mh-e nil
......@@ -217,6 +217,8 @@ mailutils."
:prefix "mh-"
:group 'mh-e)
;;; Faces
(defgroup mh-folder-faces nil
......@@ -998,7 +1000,7 @@ default). If you need to scan just the message 200, then use the range
;;; Scan Line Formats (:group 'mh-scan-line-formats)
;;; Forward definition to avoid compiler and runtime error.
;; Forward definition to avoid compiler and runtime error.
(defvar mh-scan-format-file t)
(defun mh-adaptive-cmd-note-flag-check (symbol value)
......@@ -1163,9 +1165,9 @@ See also `mh-reply'."
;;; Sequences (:group 'mh-sequences)
;;; If `mh-unpropagated-sequences' becomes a defcustom, add the following to
;;; the docstring: "Additional sequences that should not to be preserved can be
;;; specified by setting `mh-unpropagated-sequences' appropriately." XXX
;; If `mh-unpropagated-sequences' becomes a defcustom, add the following to
;; the docstring: "Additional sequences that should not to be preserved can be
;; specified by setting `mh-unpropagated-sequences' appropriately." XXX
(defcustom mh-refile-preserves-sequences-flag t
"*Non-nil means that sequences are preserved when messages are refiled.
......@@ -2394,6 +2396,8 @@ will be removed from the unseen sequence."
;;; Faces (:group 'mh-*-faces + group where faces described)
;;; Faces Used in Scan Listing (:group 'mh-folder-faces)
(defvar mh-folder-body-face 'mh-folder-body
......@@ -2758,10 +2762,10 @@ The background and foreground is used in the image."
"Face used for the current folder when it has unread messages."
:group 'mh-speed-faces)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; arch-tag: 778d2a20-82e2-4276-be9d-309386776a68
;; arch-tag: 778d2a20-82e2-4276-be9d-309386776a68
;;; mh-customize.el ends here
......@@ -105,11 +105,12 @@
The string is displayed after the folder's name. nil for no annotation.")
;;; Scan Line Formats
;;; Parameterize MH-E to work with different scan formats. The defaults work
;;; with the standard MH scan listings, in which the first 4 characters on
;;; the line are the message number, followed by two places for notations.
;; Parameterize MH-E to work with different scan formats. The defaults work
;; with the standard MH scan listings, in which the first 4 characters on
;; the line are the message number, followed by two places for notations.
;; The following scan formats are passed to the scan program if the setting of
;; `mh-scan-format-file' is t. They are identical except the later one makes
......@@ -483,6 +484,8 @@ is done highlighting.")
(defvar mh-colors-available-flag nil) ;Are colors available?
;;; Macros and generic functions:
(defun mh-mapc (function list)
......@@ -1507,14 +1510,16 @@ Make it the current folder."
(mh-index-read-data))
(mh-make-folder-mode-line))
;;; 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-folder-mode 'mode-class 'special)
;;; Menu extracted from mh-menubar.el V1.1 (31 July 2001)
;;; Menus for folder mode: folder, message, sequence (in that order)
;;; folder-mode "Sequence" menu
;;; Build mh-folder-mode menu
;; Menu extracted from mh-menubar.el V1.1 (31 July 2001)
;; Menus for folder mode: folder, message, sequence (in that order)
;; folder-mode "Sequence" menu
(easy-menu-define
mh-folder-sequence-menu mh-folder-mode-map "Menu for MH-E folder-sequence."
'("Sequence"
......@@ -1535,7 +1540,7 @@ Make it the current folder."
"--"
["Push State Out to MH" mh-update-sequences t]))
;;; folder-mode "Message" menu
;; folder-mode "Message" menu
(easy-menu-define
mh-folder-message-menu mh-folder-mode-map "Menu for MH-E folder-message."
'("Message"
......@@ -1568,7 +1573,7 @@ Make it the current folder."
["Unpack Uuencoded Message..." mh-store-msg (mh-get-msg-num nil)]
["Burst Digest Message" mh-burst-digest (mh-get-msg-num nil)]))
;;; folder-mode "Folder" menu
;; folder-mode "Folder" menu
(easy-menu-define
mh-folder-folder-menu mh-folder-mode-map "Menu for MH-E folder."
'("Folder"
......@@ -1786,7 +1791,7 @@ DESKTOP-BUFFER-MISC holds a list of miscellaneous info used by the
(mh-visit-folder desktop-buffer-name)
(current-buffer))
;;; desktop-buffer-mode-handlers appeared in Emacs 22.
;; desktop-buffer-mode-handlers appeared in Emacs 22.
(if (fboundp 'desktop-buffer-mode-handlers)
(add-to-list 'desktop-buffer-mode-handlers
'(mh-folder-mode . mh-restore-desktop-buffer)))
......@@ -2478,7 +2483,7 @@ If INCLUDE-INTERNAL-FLAG non-nil, include MH-E internal sequences in list."
;;; Build the folder-mode keymap:
;;; Build mh-folder-mode keymap:
(suppress-keymap mh-folder-mode-map)
......@@ -2631,15 +2636,15 @@ If INCLUDE-INTERNAL-FLAG non-nil, include MH-E internal sequences in list."
;;; Help Messages
;;; If you add a new prefix, add appropriate text to the nil key.
;;;
;;; In general, messages are grouped logically. Taking the main commands for
;;; example, the first line is "ways to view messages," the second line is
;;; "things you can do with messages", and the third is "composing" messages.
;;;
;;; When adding a new prefix, ensure that the help message contains "what" the
;;; prefix is for. For example, if the word "folder" were not present in the
;;; `F' entry, it would not be clear what these commands operated upon.
;; If you add a new prefix, add appropriate text to the nil key.
;;
;; In general, messages are grouped logically. Taking the main commands for
;; example, the first line is "ways to view messages," the second line is
;; "things you can do with messages", and the third is "composing" messages.
;;
;; When adding a new prefix, ensure that the help message contains "what" the
;; prefix is for. For example, if the word "folder" were not present in the
;; `F' entry, it would not be clear what these commands operated upon.
(defvar mh-help-messages
'((nil "[i]nc, [.]show, [,]show all, [n]ext, [p]revious,\n"
"[d]elete, [o]refile, e[x]ecute,\n"
......@@ -2682,10 +2687,10 @@ well.")
(provide 'mh-e)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; arch-tag: cce884de-bd37-4104-9963-e4439d5ed22b
;; arch-tag: cce884de-bd37-4104-9963-e4439d5ed22b
;;; mh-e.el ends here
......@@ -39,6 +39,8 @@
(mh-require-cl)
(require 'mh-e)
;;; Scan Line Formats
(defvar mh-note-copied "C"
......@@ -47,6 +49,8 @@
(defvar mh-note-printed "P"
"Messages that have been printed are marked by this character.")
;;; Functions
;;;###mh-autoload
......@@ -411,10 +415,10 @@ Default directory is the last directory used, or initially the value of
(provide 'mh-funcs)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; arch-tag: 1936c4f1-4843-438e-bc4b-a63bb75a7762
;; arch-tag: 1936c4f1-4843-438e-bc4b-a63bb75a7762
;;; mh-funcs.el ends here
......@@ -30,8 +30,8 @@
;;; Code:
;;; Load libraries in a non-fatal way in order to see if certain functions are
;;; pre-defined.
;; Load libraries in a non-fatal way in order to see if certain functions are
;; pre-defined.
(load "mailabbrev" t t)
(load "mailcap" t t)
(load "mm-decode" t t)
......@@ -147,10 +147,10 @@ BODY."
disposition
default)))
;;; This is mm-save-part from Gnus 5.10 since that function in emacs21.2 is
;;; buggy (the args to read-file-name are incorrect). When all supported
;;; versions of Emacs come with at least Gnus 5.10, we can delete this
;;; function and rename calls to mh-mm-save-part to mm-save-part.
;; This is mm-save-part from Gnus 5.10 since that function in emacs21.2 is
;; buggy (the args to read-file-name are incorrect). When all supported
;; versions of Emacs come with at least Gnus 5.10, we can delete this
;; function and rename calls to mh-mm-save-part to mm-save-part.
(defun mh-mm-save-part (handle)
"Write HANDLE to a file."
(let ((name (mail-content-type-get (mm-handle-type handle) 'name))
......@@ -181,12 +181,12 @@ BODY."
(provide 'mh-gnus)
;;; Local Variables:
;;; no-byte-compile: t
;;; no-update-autoloads: t
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; no-byte-compile: t
;; no-update-autoloads: t
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;; arch-tag: 1e3638af-cad3-4c69-8427-bc8eb6e5e4fa
;;; mh-gnus.el ends here
......@@ -282,10 +282,10 @@ If the field wasn't present, it is added to the bottom of the header."
(provide 'mh-identity)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; arch-tag: 07d66ef6-8726-4ac6-9ecf-e566cd5bfb45
;; arch-tag: 07d66ef6-8726-4ac6-9ecf-e566cd5bfb45
;;; mh-identity.el ends here
......@@ -98,10 +98,10 @@ This is called after 'customize is used to alter `mh-inc-spool-list'."
(provide 'mh-inc)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; arch-tag: 3713cf2a-6082-4cb4-8ce2-99d9acaba835
;; arch-tag: 3713cf2a-6082-4cb4-8ce2-99d9acaba835
;;; mh-inc.el ends here
......@@ -26,18 +26,18 @@
;;; Commentary:
;;; (1) The following search engines are supported:
;;; swish++
;;; swish-e
;;; mairix
;;; namazu
;;; pick
;;; grep
;;;
;;; (2) To use this package, you first have to build an index. Please read
;;; the documentation for `mh-index-search' to get started. That
;;; documentation will direct you to the specific instructions for your
;;; particular indexer.
;; (1) The following search engines are supported:
;; swish++
;; swish-e
;; mairix
;; namazu
;; pick
;; grep
;;
;; (2) To use this package, you first have to build an index. Please read
;; the documentation for `mh-index-search' to get started. That
;; documentation will direct you to the specific instructions for your
;; particular indexer.
;;; Change Log:
......@@ -91,17 +91,17 @@
;;; A few different checksum programs are supported. The supported programs
;;; are:
;;; 1. md5sum
;;; 2. md5
;;; 3. openssl
;;;
;;; To add support for your favorite checksum program add a clause to the cond
;;; statement in mh-checksum-choose. This should set the variable
;;; mh-checksum-cmd to the command line needed to run the checsum program and
;;; should set mh-checksum-parser to a function which returns a cons cell
;;; containing the message number and checksum string.
;; A few different checksum programs are supported. The supported programs
;; are:
;; 1. md5sum
;; 2. md5
;; 3. openssl
;;
;; To add support for your favorite checksum program add a clause to the cond
;; statement in mh-checksum-choose. This should set the variable
;; mh-checksum-cmd to the command line needed to run the checsum program and
;; should set mh-checksum-parser to a function which returns a cons cell
;; containing the message number and checksum string.
(defvar mh-checksum-cmd)
(defvar mh-checksum-parser)
......@@ -152,8 +152,7 @@
;;; Make sure that we don't produce too long a command line.
;; Make sure that we don't produce too long a command line.
(defvar mh-index-max-cmdline-args 500
"Maximum number of command line args.")
......@@ -1653,10 +1652,10 @@ system."
(provide 'mh-index)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; arch-tag: 607762ad-0dff-4fe1-a27e-6c0dde0dcc47
;; arch-tag: 607762ad-0dff-4fe1-a27e-6c0dde0dcc47
;;; mh-index ends here
;;; mh-init.el --- MH-E initialization.
;;; mh-init.el --- MH-E initialization
;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
......@@ -43,14 +43,14 @@
(mh-require-cl)
(require 'mh-utils)
;;; Avoid compiler warnings.
;; Avoid compiler warnings.
(eval-when-compile (defvar image-load-path))
;;; Set for local environment:
;;; 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
;;; was installed into. But if you installed MH after building Emacs,
;;; this would almost certainly be wrong, so now we do it at run time.
;; Set for local environment:
;; 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
;; was installed into. But if you installed MH after building Emacs,
;; this would almost certainly be wrong, so now we do it at run time.
(defvar mh-progs nil
"Directory containing MH commands, such as inc, repl, and rmm.")
......@@ -350,10 +350,10 @@ single \"class\" requirement with a \"color\" item, renames the requirement to
(provide 'mh-init)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;; arch-tag: e8372aeb-d803-42b1-9c95-3c93ad22f63c
;;; mh-init.el ends here
......@@ -420,10 +420,10 @@ See `mh-spamprobe-blacklist' for more information."
(provide 'mh-junk)
;;; Local Variables:
;;; indent-tabs-mode: nil
;;; sentence-end-double-space: nil
;;; End:
;; Local Variables:
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; arch-tag: 603335f1-77ff-4306-8828-5d3dad51abe1
;; arch-tag: 603335f1-77ff-4306-8828-5d3dad51abe1
;;; mh-junk.el ends here
......@@ -219,9 +219,9 @@ Obsolete; use `mailcap-mime-types'.
See also \\[mh-mh-to-mime].")
;;; Delete mh-minibuffer-read-type and mh-mime-content-types and use
;;; mml-minibuffer-read-type when Emacs20 is no longer supported unless we
;;; think (mh-file-mime-type) is better than (mm-default-file-encoding).
;; Delete mh-minibuffer-read-type and mh-mime-content-types and use
;; mml-minibuffer-read-type when Emacs20 is no longer supported unless we
;; think (mh-file-mime-type) is better than (mm-default-file-encoding).
(defun mh-minibuffer-read-type (filename &optional default)