[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-utils.el mh-speed.el mh-seq....
|
From: |
Bill Wohler |
|
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-utils.el mh-speed.el mh-seq.... |
|
Date: |
Mon, 19 Dec 2005 23:32:16 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 05/12/19 23:32:16
Modified files:
lisp/mh-e : mh-utils.el mh-speed.el mh-seq.el mh-print.el
mh-pick.el mh-mime.el mh-junk.el mh-init.el
mh-index.el mh-inc.el mh-identity.el mh-gnus.el
mh-funcs.el mh-e.el mh-customize.el mh-comp.el
mh-alias.el mh-acros.el ChangeLog
Log message:
* 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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-utils.el.diff?tr1=1.22&tr2=1.23&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-speed.el.diff?tr1=1.12&tr2=1.13&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-seq.el.diff?tr1=1.15&tr2=1.16&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-print.el.diff?tr1=1.12&tr2=1.13&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-pick.el.diff?tr1=1.11&tr2=1.12&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-mime.el.diff?tr1=1.25&tr2=1.26&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-junk.el.diff?tr1=1.12&tr2=1.13&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-init.el.diff?tr1=1.15&tr2=1.16&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-index.el.diff?tr1=1.13&tr2=1.14&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-inc.el.diff?tr1=1.8&tr2=1.9&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-identity.el.diff?tr1=1.18&tr2=1.19&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-gnus.el.diff?tr1=1.9&tr2=1.10&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-funcs.el.diff?tr1=1.15&tr2=1.16&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-e.el.diff?tr1=1.37&tr2=1.38&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-customize.el.diff?tr1=1.44&tr2=1.45&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-comp.el.diff?tr1=1.26&tr2=1.27&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-alias.el.diff?tr1=1.14&tr2=1.15&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-acros.el.diff?tr1=1.9&tr2=1.10&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.77&tr2=1.78&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.77 emacs/lisp/mh-e/ChangeLog:1.78
--- emacs/lisp/mh-e/ChangeLog:1.77 Mon Dec 19 05:37:02 2005
+++ emacs/lisp/mh-e/ChangeLog Mon Dec 19 23:32:16 2005
@@ -1,3 +1,28 @@
+2005-12-19 Bill Wohler <address@hidden>
+
+ * 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 <address@hidden>
* mh-customize.el (mh-toolbar): Rename to mh-tool-bar.
Index: emacs/lisp/mh-e/mh-acros.el
diff -u emacs/lisp/mh-e/mh-acros.el:1.9 emacs/lisp/mh-e/mh-acros.el:1.10
--- emacs/lisp/mh-e/mh-acros.el:1.9 Sun Oct 23 22:47:27 2005
+++ emacs/lisp/mh-e/mh-acros.el Mon Dec 19 23:32:16 2005
@@ -55,7 +55,7 @@
`(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 @@
(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
Index: emacs/lisp/mh-e/mh-alias.el
diff -u emacs/lisp/mh-e/mh-alias.el:1.14 emacs/lisp/mh-e/mh-alias.el:1.15
--- emacs/lisp/mh-e/mh-alias.el:1.14 Sun Oct 23 22:47:27 2005
+++ emacs/lisp/mh-e/mh-alias.el Mon Dec 19 23:32:16 2005
@@ -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 @@
You can update the alias list manually using \\[mh-alias-reload].")
+
;;; Alias Loading
(defun mh-alias-tstamp (arg)
@@ -228,6 +232,7 @@
(mh-alias-reload)))
+
;;; Alias Expansion
(defun mh-alias-ali (alias &optional user)
@@ -312,6 +317,7 @@
(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 @@
(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
Index: emacs/lisp/mh-e/mh-comp.el
diff -u emacs/lisp/mh-e/mh-comp.el:1.26 emacs/lisp/mh-e/mh-comp.el:1.27
--- emacs/lisp/mh-e/mh-comp.el:1.26 Mon Dec 19 05:37:02 2005
+++ emacs/lisp/mh-e/mh-comp.el Mon Dec 19 23:32:16 2005
@@ -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 @@
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 @@
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 @@
(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 @@
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 @@
(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 @@
(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
Index: emacs/lisp/mh-e/mh-customize.el
diff -u emacs/lisp/mh-e/mh-customize.el:1.44
emacs/lisp/mh-e/mh-customize.el:1.45
--- emacs/lisp/mh-e/mh-customize.el:1.44 Mon Dec 19 05:37:02 2005
+++ emacs/lisp/mh-e/mh-customize.el Mon Dec 19 23:32:16 2005
@@ -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 @@
-;;; 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 @@
:prefix "mh-"
:group 'mh-e)
+
+
;;; Faces
(defgroup mh-folder-faces nil
@@ -998,7 +1000,7 @@
;;; 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 @@
;;; 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 @@
;;; 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 @@
"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
Index: emacs/lisp/mh-e/mh-e.el
diff -u emacs/lisp/mh-e/mh-e.el:1.37 emacs/lisp/mh-e/mh-e.el:1.38
--- emacs/lisp/mh-e/mh-e.el:1.37 Mon Dec 19 05:37:02 2005
+++ emacs/lisp/mh-e/mh-e.el Mon Dec 19 23:32:16 2005
@@ -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 @@
(defvar mh-colors-available-flag nil) ;Are colors available?
+
+
;;; Macros and generic functions:
(defun mh-mapc (function list)
@@ -1507,14 +1510,16 @@
(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 @@
"--"
["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 @@
["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 @@
(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 @@
-;;; Build the folder-mode keymap:
+;;; Build mh-folder-mode keymap:
(suppress-keymap mh-folder-mode-map)
@@ -2631,15 +2636,15 @@
;;; 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 @@
(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
Index: emacs/lisp/mh-e/mh-funcs.el
diff -u emacs/lisp/mh-e/mh-funcs.el:1.15 emacs/lisp/mh-e/mh-funcs.el:1.16
--- emacs/lisp/mh-e/mh-funcs.el:1.15 Sun Dec 4 22:34:49 2005
+++ emacs/lisp/mh-e/mh-funcs.el Mon Dec 19 23:32:16 2005
@@ -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 @@
(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
Index: emacs/lisp/mh-e/mh-gnus.el
diff -u emacs/lisp/mh-e/mh-gnus.el:1.9 emacs/lisp/mh-e/mh-gnus.el:1.10
--- emacs/lisp/mh-e/mh-gnus.el:1.9 Mon Oct 24 20:46:06 2005
+++ emacs/lisp/mh-e/mh-gnus.el Mon Dec 19 23:32:16 2005
@@ -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 @@
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 @@
(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
Index: emacs/lisp/mh-e/mh-identity.el
diff -u emacs/lisp/mh-e/mh-identity.el:1.18 emacs/lisp/mh-e/mh-identity.el:1.19
--- emacs/lisp/mh-e/mh-identity.el:1.18 Sun Oct 23 22:47:27 2005
+++ emacs/lisp/mh-e/mh-identity.el Mon Dec 19 23:32:16 2005
@@ -282,10 +282,10 @@
(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
Index: emacs/lisp/mh-e/mh-inc.el
diff -u emacs/lisp/mh-e/mh-inc.el:1.8 emacs/lisp/mh-e/mh-inc.el:1.9
--- emacs/lisp/mh-e/mh-inc.el:1.8 Mon Jul 4 17:15:52 2005
+++ emacs/lisp/mh-e/mh-inc.el Mon Dec 19 23:32:16 2005
@@ -98,10 +98,10 @@
(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
Index: emacs/lisp/mh-e/mh-index.el
diff -u emacs/lisp/mh-e/mh-index.el:1.13 emacs/lisp/mh-e/mh-index.el:1.14
--- emacs/lisp/mh-e/mh-index.el:1.13 Mon Dec 5 00:52:56 2005
+++ emacs/lisp/mh-e/mh-index.el Mon Dec 19 23:32:16 2005
@@ -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 @@
(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
Index: emacs/lisp/mh-e/mh-init.el
diff -u emacs/lisp/mh-e/mh-init.el:1.15 emacs/lisp/mh-e/mh-init.el:1.16
--- emacs/lisp/mh-e/mh-init.el:1.15 Sat Dec 10 01:41:43 2005
+++ emacs/lisp/mh-e/mh-init.el Mon Dec 19 23:32:16 2005
@@ -1,4 +1,4 @@
-;;; 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 @@
(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
Index: emacs/lisp/mh-e/mh-junk.el
diff -u emacs/lisp/mh-e/mh-junk.el:1.12 emacs/lisp/mh-e/mh-junk.el:1.13
--- emacs/lisp/mh-e/mh-junk.el:1.12 Sun Dec 4 22:34:49 2005
+++ emacs/lisp/mh-e/mh-junk.el Mon Dec 19 23:32:16 2005
@@ -420,10 +420,10 @@
(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
Index: emacs/lisp/mh-e/mh-mime.el
diff -u emacs/lisp/mh-e/mh-mime.el:1.25 emacs/lisp/mh-e/mh-mime.el:1.26
--- emacs/lisp/mh-e/mh-mime.el:1.25 Fri Dec 2 05:54:33 2005
+++ emacs/lisp/mh-e/mh-mime.el Mon Dec 19 23:32:16 2005
@@ -219,9 +219,9 @@
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)
"Return the content type associated with the given FILENAME.
@@ -1347,9 +1347,9 @@
(mm-set-handle-multipart-parameter
handle 'mh-region (cons (point-min-marker) (point-max-marker)))))
-;;; I rewrote the security part because Gnus doesn't seem to ever minimize
-;;; the button. That is once the mime-security button is pressed there seems
-;;; to be no way of getting rid of the inserted text.
+;; I rewrote the security part because Gnus doesn't seem to ever minimize
+;; the button. That is once the mime-security button is pressed there seems
+;; to be no way of getting rid of the inserted text.
(defun mh-mime-security-show-details (handle)
"Toggle display of detailed security info for HANDLE."
(let ((details (mm-handle-multipart-ctl-parameter handle 'gnus-details)))
@@ -1509,10 +1509,10 @@
(provide 'mh-mime)
-;;; 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: 0dd36518-1b64-4a84-8f4e-59f422d3f002
+;; arch-tag: 0dd36518-1b64-4a84-8f4e-59f422d3f002
;;; mh-mime.el ends here
Index: emacs/lisp/mh-e/mh-pick.el
diff -u emacs/lisp/mh-e/mh-pick.el:1.11 emacs/lisp/mh-e/mh-pick.el:1.12
--- emacs/lisp/mh-e/mh-pick.el:1.11 Fri Oct 14 17:15:40 2005
+++ emacs/lisp/mh-e/mh-pick.el Mon Dec 19 23:32:15 2005
@@ -158,15 +158,22 @@
(add-text-properties (point) (1- (line-end-position)) '(read-only t))
(goto-char (point-max)))
-;;; Menu extracted from mh-menubar.el V1.1 (31 July 2001)
+
+
+;;; Build mh-pick-mode menu
+
+;; Menu extracted from mh-menubar.el V1.1 (31 July 2001)
(easy-menu-define
mh-pick-menu mh-pick-mode-map "Menu for MH-E pick-mode"
'("Pick"
["Execute the Search" mh-pick-do-search t]))
+
+
;;; Help Messages
-;;; Group messages logically, more or less.
+
+;; Group messages logically, more or less.
(defvar mh-pick-mode-help-messages
'((nil
"Search messages using pick: \\[mh-pick-do-search]\n"
@@ -351,7 +358,8 @@
;;; Build the pick-mode keymap:
-;;; If this changes, modify mh-pick-mode-help-messages accordingly, above.
+
+;; If this changes, modify mh-pick-mode-help-messages accordingly, above.
(gnus-define-keys mh-pick-mode-map
"\C-c?" mh-help
"\C-c\C-i" mh-index-do-search
@@ -374,10 +382,10 @@
(provide 'mh-pick)
-;;; 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: aef2b271-7768-42bd-a782-9a14ba9f83f7
+;; arch-tag: aef2b271-7768-42bd-a782-9a14ba9f83f7
;;; mh-pick.el ends here
Index: emacs/lisp/mh-e/mh-print.el
diff -u emacs/lisp/mh-e/mh-print.el:1.12 emacs/lisp/mh-e/mh-print.el:1.13
--- emacs/lisp/mh-e/mh-print.el:1.12 Sun Dec 4 22:34:49 2005
+++ emacs/lisp/mh-e/mh-print.el Mon Dec 19 23:32:15 2005
@@ -183,7 +183,7 @@
(setq mh-ps-print-color-option nil)
(message "Colors will not be printed"))))
-;;; Old non-PS based printing
+;; Old non-PS based printing
;;;###mh-autoload
(defun mh-print-msg (range)
"Print RANGE the old fashioned way\\<mh-folder-mode-map>.
@@ -242,10 +242,10 @@
(provide 'mh-print)
-;;; 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: 8d84d50b-2a49-4d0d-b51e-ba9c9b6fc679
;;; mh-print.el ends here
Index: emacs/lisp/mh-e/mh-seq.el
diff -u emacs/lisp/mh-e/mh-seq.el:1.15 emacs/lisp/mh-e/mh-seq.el:1.16
--- emacs/lisp/mh-e/mh-seq.el:1.15 Thu Dec 15 19:32:01 2005
+++ emacs/lisp/mh-e/mh-seq.el Mon Dec 19 23:32:15 2005
@@ -78,7 +78,10 @@
;; Shush the byte-compiler
(defvar tool-bar-mode)
+
+
;;; Data structures (used in message threading)...
+
(mh-defstruct (mh-thread-message (:conc-name mh-message-)
(:constructor mh-thread-make-message))
(id nil)
@@ -91,15 +94,20 @@
message parent children
(real-child-p t))
+
;;; Internal variables:
+
(defvar mh-last-seq-used nil
"Name of seq to which a msg was last added.")
(defvar mh-non-seq-mode-line-annotation nil
"Saved value of `mh-mode-line-annotation' when narrowed to a seq.")
+
+
;;; Maps and hashes...
+
(defvar mh-thread-id-hash nil
"Hashtable used to canonicalize message identifiers.")
(defvar mh-thread-subject-hash nil
@@ -377,9 +385,10 @@
-;;; Commands to manipulate sequences. Sequences are stored in an alist
-;;; of the form:
-;;; ((seq-name msgs ...) (seq-name msgs ...) ...)
+;;; Commands to manipulate sequences.
+
+;; Sequences are stored in an alist of the form:
+;; ((seq-name msgs ...) (seq-name msgs ...) ...)
(defvar mh-sequence-history ())
@@ -412,7 +421,10 @@
(error "No messages in sequence `%s'" seq))
seq))
+
+
;;; Functions to read ranges with completion...
+
(defvar mh-range-seq-names)
(defvar mh-range-history ())
(defvar mh-range-completion-map (copy-keymap minibuffer-local-completion-map))
@@ -702,11 +714,10 @@
-;;; Commands to handle new 'subject sequence.
-;;; Or "Poor man's threading" by psg.
+;;; Commands to handle new 'subject sequence ("Poor man's threading" by psg)
-;;; XXX: The function mh-subject-to-sequence-unthreaded uses the magic number
-;;; 41 for the max size of the subject part. Avoiding this would be desirable.
+;; XXX: The function mh-subject-to-sequence-unthreaded uses the magic number
+;; 41 for the max size of the subject part. Avoiding this would be desirable.
(defun mh-subject-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.
@@ -970,6 +981,8 @@
(mh-thread-delete)
(mh-delete-subject)))
+
+
;;; Message threading:
(defmacro mh-thread-initialize-hash (var test)
@@ -1745,10 +1758,10 @@
(provide 'mh-seq)
-;;; 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: 8e952711-01a2-485b-bf21-c9e3ad4de942
+;; arch-tag: 8e952711-01a2-485b-bf21-c9e3ad4de942
;;; mh-seq.el ends here
Index: emacs/lisp/mh-e/mh-speed.el
diff -u emacs/lisp/mh-e/mh-speed.el:1.12 emacs/lisp/mh-e/mh-speed.el:1.13
--- emacs/lisp/mh-e/mh-speed.el:1.12 Wed Dec 14 18:47:38 2005
+++ emacs/lisp/mh-e/mh-speed.el Mon Dec 19 23:32:15 2005
@@ -558,10 +558,10 @@
(provide 'mh-speed)
-;;; 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: d38ddcd4-3c00-4e37-99bf-8b89dda7b32c
+;; arch-tag: d38ddcd4-3c00-4e37-99bf-8b89dda7b32c
;;; mh-speed.el ends here
Index: emacs/lisp/mh-e/mh-utils.el
diff -u emacs/lisp/mh-e/mh-utils.el:1.22 emacs/lisp/mh-e/mh-utils.el:1.23
--- emacs/lisp/mh-e/mh-utils.el:1.22 Mon Dec 19 05:37:02 2005
+++ emacs/lisp/mh-e/mh-utils.el Mon Dec 19 23:32:15 2005
@@ -62,7 +62,10 @@
(defvar font-lock-defaults)
(defvar mark-active)
+
+
;;; Autoloads
+
(autoload 'gnus-article-highlight-citation "gnus-cite")
(autoload 'message-fetch-field "message")
(autoload 'message-tokenize-header "message")
@@ -70,7 +73,10 @@
(unless (fboundp 'make-hash-table)
(autoload 'make-hash-table "cl"))
+
+
;;; CL Replacements
+
(defun mh-search-from-end (char string)
"Return the position of last occurrence of CHAR in STRING.
If CHAR is not present in STRING then return nil. The function is used in lieu
@@ -79,10 +85,11 @@
when (equal (aref string index) char) return index
finally return nil))
-;;; Additional header fields that might someday be added:
-;;; "Sender: " "Reply-to: "
+;; Additional header fields that might someday be added:
+;; "Sender: " "Reply-to: "
+
;;; Scan Line Formats
(defvar mh-scan-msg-number-regexp "^ *\\([0-9]+\\)"
@@ -171,7 +178,8 @@
; this number
(part-index-hash (make-hash-table))) ; Avoid incrementing the part number
; for nested messages
-;;; This has to be a macro, since we do: (setf (mh-buffer-data) ...)
+
+;; This has to be a macro, since we do: (setf (mh-buffer-data) ...)
(defmacro mh-buffer-data ()
"Convenience macro to get the MIME data structures of the current buffer."
`(gethash (current-buffer) mh-globals-hash))
@@ -457,6 +465,8 @@
(gnus-article-highlight-citation t)
(set-buffer-modified-p modified))))
+
+
;;; Internal bookkeeping variables:
;; Cached value of the `Path:' component in the user's MH profile.
@@ -510,6 +520,8 @@
;;Non-nil means next SPC or whatever goes to next undeleted message.
(defvar mh-page-to-next-msg-flag nil)
+
+
;;; Internal variables local to a folder.
;; Name of current folder, a string.
@@ -554,7 +566,7 @@
(cons modeline-buffer-id-left-extent "XEmacs%N:"))
(cons modeline-buffer-id-right-extent " %17b")))))
-;;; This holds a documentation string used by describe-mode.
+;; This holds a documentation string used by describe-mode.
(defun mh-showing-mode (&optional arg)
"Change whether messages should be displayed.
With arg, display messages iff ARG is positive."
@@ -574,6 +586,8 @@
;; Showing message with headers or normally.
(defvar mh-showing-with-headers nil)
+
+
;;; MH-E macros
(defmacro with-mh-folder-updating (save-modification-flag &rest body)
@@ -740,10 +754,10 @@
(mh-expand-file-name folder)
mh-folder-filename)))
-;;; Infrastructure to generate show-buffer functions from folder functions
-;;; XEmacs does not have deactivate-mark? What is the equivalent of
-;;; transient-mark-mode for XEmacs? Should we be restoring the mark in the
-;;; folder buffer after the operation has been carried out.
+;; Infrastructure to generate show-buffer functions from folder functions
+;; XEmacs does not have deactivate-mark? What is the equivalent of
+;; transient-mark-mode for XEmacs? Should we be restoring the mark in the
+;; folder buffer after the operation has been carried out.
(defmacro mh-defun-show-buffer (function original-function
&optional dont-return)
"Define FUNCTION to run ORIGINAL-FUNCTION in folder buffer.
@@ -784,8 +798,8 @@
(get-buffer cur-buffer-name))))
(pop-to-buffer (get-buffer cur-buffer-name) nil)))))))))
-;;; Generate interactive functions for the show buffer from the corresponding
-;;; folder functions.
+;; Generate interactive functions for the show buffer from the corresponding
+;; folder functions.
(mh-defun-show-buffer mh-show-previous-undeleted-msg
mh-previous-undeleted-msg)
(mh-defun-show-buffer mh-show-next-undeleted-msg
@@ -883,7 +897,10 @@
(mh-defun-show-buffer mh-show-display-with-external-viewer
mh-display-with-external-viewer)
-;;; Populate mh-show-mode-map
+
+
+;;; Build mh-show-mode keymaps
+
(gnus-define-keys mh-show-mode-map
" " mh-show-page-msg
"!" mh-show-refile-or-write-again
@@ -1081,7 +1098,7 @@
["Quit MH-E" mh-quit t]))
-;;; 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)
;; Avoid compiler warnings in XEmacs and Emacs 20
@@ -1260,10 +1277,10 @@
-;; Picon display
+;;; Picon display
-;;; XXX: This should be customizable. As a side-effect of setting this
-;;; variable, arrange to reset mh-picon-existing-directory-list to 'unset.
+;; XXX: This should be customizable. As a side-effect of setting this
+;; variable, arrange to reset mh-picon-existing-directory-list to 'unset.
(defvar mh-picon-directory-list
'("~/.picons" "~/.picons/users" "~/.picons/usenix" "~/.picons/news"
"~/.picons/domains" "~/.picons/misc"
@@ -2388,6 +2405,8 @@
(insert "\n \n"))
(buffer-size)))
+
+
;;; Issue commands to MH.
(defun mh-exec-cmd (command &rest args)
@@ -2593,10 +2612,10 @@
(provide 'mh-utils)
-;;; 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: 1af39fdf-f66f-4b06-9b48-18a7656c8e36
+;; arch-tag: 1af39fdf-f66f-4b06-9b48-18a7656c8e36
;;; mh-utils.el ends here
- [Emacs-commit] emacs/lisp/mh-e mh-utils.el mh-speed.el mh-seq....,
Bill Wohler <=