Mercurial > emacs
diff lisp/mh-e/mh-customize.el @ 67681:3a8785724cca
* 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.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Mon, 19 Dec 2005 23:32:16 +0000 |
parents | 76690fbcd56a |
children | 98eba52a8481 |
line wrap: on
line diff
--- a/lisp/mh-e/mh-customize.el Mon Dec 19 23:31:31 2005 +0000 +++ b/lisp/mh-e/mh-customize.el Mon Dec 19 23:32:16 2005 +0000 @@ -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: - -;;; arch-tag: 778d2a20-82e2-4276-be9d-309386776a68 +;; Local Variables: +;; indent-tabs-mode: nil +;; sentence-end-double-space: nil +;; End: + +;; arch-tag: 778d2a20-82e2-4276-be9d-309386776a68 ;;; mh-customize.el ends here