See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
+2004-08-24 Bill Wohler <wohler@newt.com>
+
+ * NEWS, MH-E-NEWS: Upgraded to MH-E version 7.82.
+
2004-08-22 David Kastrup <dak@gnu.org>
* PROBLEMS, MAILINGLISTS: Update AUCTeX information.
are permitted in any medium without royalty provided the copyright
notice and this notice are preserved.
+* Changes in MH-E 7.82
+
+Version 7.81 continues to address the saga surrounding the use of CL
+macros in CVS Emacs and fixes the auto-detection of vanilla MH (SF
+#1014781).
+
* Changes in MH-E 7.81
Version 7.81 fixes a `wrong-type-argument' argument error that
** MH-E changes.
-Upgraded to MH-E version 7.81. There have been major changes since
+Upgraded to MH-E version 7.82. There have been major changes since
version 5.0.2; see MH-E-NEWS for details.
+++
+2004-08-21 Bill Wohler <wohler@newt.com>
+
+ * Released MH-E version 7.82.
+
+ * MH-E-NEWS, README: Updated for release 7.82.
+
+ * mh-e.el (Version, mh-version): Updated for release 7.82.
+
+2004-08-24 Bill Wohler <wohler@newt.com>
+
+ * mh-init.el (mh-variant-set): Changed MH to mh as that's what is
+ emitted by `mh-variant-mh-info' (closes SF #1014781).
+ (mh-variant-p): Added mu-mh to docstring.
+
+2004-08-23 Satyaki Das <satyaki@theforce.stanford.edu>
+
+ * mh-acros.el (mh-require-cl): Remove unneeded autoloads.
+ (require): Add an advice to the function so that at compile time
+ the uncompiled file is loaded. This avoids compilation problems
+ when built in the Emacs tree.
+
+ * mh-mime.el (mh-identity-pgg-default-user-id): Defvar the
+ variable, to avoid compiler warnings.
+
+ * mh-e.el (mh-seq): Load mh-seq since functions defined there are
+ used here. Without this, the state mh-seq.elc would be loaded.
+
+ * mh-customize.el (mh-init, mh-identity): Load mh-init and
+ mh-identity at compile time manually, before the corresponding
+ stale elc files get autoloaded.
+
+2004-08-21 Bill Wohler <wohler@newt.com>
+
+ * mh-e.el (Version, mh-version): Added +cvs to release number.
+
2004-08-21 Bill Wohler <wohler@newt.com>
* Released MH-E version 7.81.
\(setf (gethash ...) ...) that uses functions in `cl' at run time. This macro
recognizes that and loads `cl' where appropriate."
(if (eq (car (macroexpand '(setf (gethash foo bar) baz))) 'cl-puthash)
- `(progn
- (require 'cl)
- ;; Autoloads of CL functions go here...
- (autoload 'cl-puthash "cl")
- (autoload 'values "cl")
- (autoload 'copy-tree "cl"))
+ `(require 'cl)
`(eval-when-compile (require 'cl))))
;;; Macros to generate correct code for different emacs variants
(list 'nth ,x z)))
(quote ,struct-name))))
+(defadvice require (around mh-prefer-el activate)
+ "Modify `require' to load uncompiled MH-E files."
+ (or (featurep (ad-get-arg 0))
+ (and (string-match "^mh-" (symbol-name (ad-get-arg 0)))
+ (load (format "%s.el" (ad-get-arg 0)) t t))
+ ad-do-it))
(provide 'mh-acros)
(when mh-xemacs-flag
(require 'mh-xemacs))
+;; XXX: Functions autoloaded from the following files are used to initialize
+;; customizable variables. They are require'd here, since otherwise the
+;; corresponding .elc would be loaded at compile time.
+(eval-when-compile
+ (require 'mh-init)
+ (require 'mh-identity))
+
(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
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
-;; Version: 7.81
+;; Version: 7.82
;; Keywords: mail
;; This file is part of GNU Emacs.
(require 'mh-utils)
(require 'mh-init)
(require 'mh-inc)
+(require 'mh-seq)
(require 'gnus-util)
(require 'easymenu)
(defvar font-lock-auto-fontify)
(defvar font-lock-defaults)
-(defconst mh-version "7.81" "Version number of MH-E.")
+(defconst mh-version "7.82" "Version number of MH-E.")
;;; Autoloads
(autoload 'Info-goto-node "info")
(cond
((mh-variant-set-variant 'nmh)
(message "%s installed as MH variant" mh-variant-in-use))
- ((mh-variant-set-variant 'MH)
+ ((mh-variant-set-variant 'mh)
(message "%s installed as MH variant" mh-variant-in-use))
((mh-variant-set-variant 'mu-mh)
(message "%s installed as MH variant" mh-variant-in-use))
;;;###mh-autoload
(defun mh-variant-p (&rest variants)
"Return t if variant is any of VARIANTS.
-Currently known variants are 'mh and 'nmh."
+Currently known variants are 'MH, 'nmh, and 'mu-mh."
(let ((variant-in-use
(cadr (assoc 'variant (assoc mh-variant-in-use mh-variants)))))
(not (null (member variant-in-use variants)))))
;;;;;; mh-check-whom mh-insert-signature mh-to-fcc mh-to-field mh-fill-paragraph-function
;;;;;; mh-get-header-field mh-send-other-window mh-send mh-reply
;;;;;; mh-redistribute mh-forward mh-extract-rejected-mail mh-edit-again)
-;;;;;; "mh-comp" "mh-comp.el" (16665 55172))
+;;;;;; "mh-comp" "mh-comp.el" (16665 53716))
;;; Generated autoloads from mh-comp.el
(autoload (quote mh-edit-again) "mh-comp" "\
;;;;;; mh-store-msg mh-undo-folder mh-sort-folder mh-page-digest-backwards
;;;;;; mh-page-digest mh-pipe-msg mh-pack-folder mh-list-folders
;;;;;; mh-kill-folder mh-copy-msg mh-burst-digest) "mh-funcs" "mh-funcs.el"
-;;;;;; (16671 49652))
+;;;;;; (16671 48788))
;;; Generated autoloads from mh-funcs.el
(autoload (quote mh-burst-digest) "mh-funcs" "\
;;;;;; mh-identity-insert-attribution-verb mh-identity-handler-attribution-verb
;;;;;; mh-identity-handler-signature mh-identity-handler-gpg-identity
;;;;;; mh-insert-identity mh-identity-list-set mh-identity-make-menu)
-;;;;;; "mh-identity" "mh-identity.el" (16680 7172))
+;;;;;; "mh-identity" "mh-identity.el" (16671 57010))
;;; Generated autoloads from mh-identity.el
(autoload (quote mh-identity-make-menu) "mh-identity" "\
;;;***
\f
;;;### (autoloads (mh-inc-spool-list-set) "mh-inc" "mh-inc.el" (16671
-;;;;;; 49652))
+;;;;;; 48848))
;;; Generated autoloads from mh-inc.el
(autoload (quote mh-inc-spool-list-set) "mh-inc" "\
;;;;;; mh-index-parse-search-regexp mh-index-do-search mh-index-p
;;;;;; mh-index-read-data mh-index-search mh-index-create-sequences
;;;;;; mh-create-sequence-map mh-index-update-maps) "mh-index" "mh-index.el"
-;;;;;; (16665 55172))
+;;;;;; (16665 53754))
;;; Generated autoloads from mh-index.el
(autoload (quote mh-index-update-maps) "mh-index" "\
;;;***
\f
;;;### (autoloads (mh-variants mh-variant-p mh-variant-set) "mh-init"
-;;;;;; "mh-init.el" (16680 9361))
+;;;;;; "mh-init.el" (16684 6777))
;;; Generated autoloads from mh-init.el
(autoload (quote mh-variant-set) "mh-init" "\
(autoload (quote mh-variant-p) "mh-init" "\
Return t if variant is any of VARIANTS.
-Currently known variants are 'mh and 'nmh." nil nil)
+Currently known variants are 'MH, 'nmh, and 'mu-mh." nil nil)
(autoload (quote mh-variants) "mh-init" "\
Return a list of installed variants of MH on the system.
;;;***
\f
;;;### (autoloads (mh-junk-whitelist mh-junk-blacklist) "mh-junk"
-;;;;;; "mh-junk.el" (16671 49652))
+;;;;;; "mh-junk.el" (16671 48929))
;;; Generated autoloads from mh-junk.el
(autoload (quote mh-junk-blacklist) "mh-junk" "\
;;;;;; mh-mhn-compose-external-compressed-tar mh-mhn-compose-anon-ftp
;;;;;; mh-mhn-compose-insertion mh-file-mime-type mh-have-file-command
;;;;;; mh-compose-forward mh-compose-insertion) "mh-mime" "mh-mime.el"
-;;;;;; (16680 7172))
+;;;;;; (16684 7323))
;;; Generated autoloads from mh-mime.el
(autoload (quote mh-compose-insertion) "mh-mime" "\
;;;***
\f
;;;### (autoloads (mh-do-search mh-pick-do-search mh-search-folder)
-;;;;;; "mh-pick" "mh-pick.el" (16671 49652))
+;;;;;; "mh-pick" "mh-pick.el" (16671 49140))
;;; Generated autoloads from mh-pick.el
(autoload (quote mh-search-folder) "mh-pick" "\
\f
;;;### (autoloads (mh-print-msg mh-ps-print-toggle-mime mh-ps-print-toggle-color
;;;;;; mh-ps-print-toggle-faces mh-ps-print-msg-show mh-ps-print-msg-file
-;;;;;; mh-ps-print-msg) "mh-print" "mh-print.el" (16680 9361))
+;;;;;; mh-ps-print-msg) "mh-print" "mh-print.el" (16680 11171))
;;; Generated autoloads from mh-print.el
(autoload (quote mh-ps-print-msg) "mh-print" "\
;;;;;; mh-rename-seq mh-translate-range mh-read-range mh-read-seq-default
;;;;;; mh-notate-deleted-and-refiled mh-widen mh-put-msg-in-seq
;;;;;; mh-narrow-to-seq mh-msg-is-in-seq mh-list-sequences mh-delete-seq)
-;;;;;; "mh-seq" "mh-seq.el" (16668 22297))
+;;;;;; "mh-seq" "mh-seq.el" (16671 65286))
;;; Generated autoloads from mh-seq.el
(autoload (quote mh-delete-seq) "mh-seq" "\
\f
;;;### (autoloads (mh-speed-add-folder mh-speed-invalidate-map mh-speed-flists
;;;;;; mh-speed-view mh-speed-toggle mh-folder-speedbar-buttons)
-;;;;;; "mh-speed" "mh-speed.el" (16665 55171))
+;;;;;; "mh-speed" "mh-speed.el" (16665 53793))
;;; Generated autoloads from mh-speed.el
(autoload (quote mh-folder-speedbar-buttons) "mh-speed" "\
;;;;;; mh-alias-grab-from-field mh-alias-add-alias mh-alias-for-from-p
;;;;;; mh-alias-address-to-alias mh-alias-letter-expand-alias mh-alias-minibuffer-confirm-address
;;;;;; mh-read-address mh-alias-reload-maybe mh-alias-reload) "mh-alias"
-;;;;;; "mh-alias.el" (16671 49553))
+;;;;;; "mh-alias.el" (16671 49382))
;;; Generated autoloads from mh-alias.el
(autoload (quote mh-alias-reload) "mh-alias" "\
(mml-insert-empty-tag 'part 'type type 'filename file
'disposition dispos 'description description)))
+(defvar mh-identity-pgg-default-user-id)
+
(defun mh-secure-message (method mode &optional identity)
"Add directive to Encrypt/Sign an entire message.
METHOD should be one of: \"pgpmime\", \"pgp\", \"smime\".
;;;###mh-autoload
(defun mh-toggle-mh-decode-mime-flag ()
"Toggle whether MH-E should decode MIME or not."
- (interactive)
+ (interactive)
(setq mh-decode-mime-flag (not mh-decode-mime-flag))
(mh-show nil t)
(message (format "(setq mh-decode-mime-flag %s)" mh-decode-mime-flag)))