mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
Upgraded to MH-E version 7.82.
See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
This commit is contained in:
Bill Wohler
parent
1c6cfb0b0d
commit
eccf961345
@ -1,3 +1,7 @@
|
||||
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.
|
||||
|
||||
@ -6,6 +6,12 @@ Copying and distribution of this file, with or without modification,
|
||||
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
|
||||
|
||||
2
etc/NEWS
2
etc/NEWS
@ -660,7 +660,7 @@ You can now put the init files .emacs and .emacs_SHELL under
|
||||
|
||||
** 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.
|
||||
|
||||
+++
|
||||
|
||||
@ -1,3 +1,38 @@
|
||||
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.
|
||||
|
||||
@ -51,12 +51,7 @@ Some versions of `cl' produce code for the expansion of
|
||||
\(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
|
||||
@ -130,6 +125,12 @@ various structure fields. Lookup `defstruct' for more details."
|
||||
(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)
|
||||
|
||||
|
||||
@ -78,6 +78,13 @@
|
||||
(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
|
||||
|
||||
@ -5,7 +5,7 @@
|
||||
|
||||
;; 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.
|
||||
@ -89,6 +89,7 @@
|
||||
(require 'mh-utils)
|
||||
(require 'mh-init)
|
||||
(require 'mh-inc)
|
||||
(require 'mh-seq)
|
||||
(require 'gnus-util)
|
||||
(require 'easymenu)
|
||||
|
||||
@ -96,7 +97,7 @@
|
||||
(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")
|
||||
|
||||
@ -90,7 +90,7 @@ GNU mailutils."
|
||||
(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))
|
||||
@ -145,7 +145,7 @@ If VARIANT is a symbol, select the first entry that matches that variant."
|
||||
;;;###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)))))
|
||||
|
||||
@ -13,7 +13,7 @@
|
||||
;;;;;; 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" "\
|
||||
@ -183,7 +183,7 @@ If we are at the first header field go to the start of the message body." t nil)
|
||||
;;;;;; 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" "\
|
||||
@ -261,7 +261,7 @@ Display cheat sheet for the commands of the current prefix in minibuffer." t nil
|
||||
;;;;;; 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" "\
|
||||
@ -307,7 +307,7 @@ If the field wasn't present, the VALUE is added at the bottom of the header." ni
|
||||
;;;***
|
||||
|
||||
;;;### (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" "\
|
||||
@ -326,7 +326,7 @@ This is called after 'customize is used to alter `mh-inc-spool-list'." nil nil)
|
||||
;;;;;; 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" "\
|
||||
@ -582,7 +582,7 @@ system." nil nil)
|
||||
;;;***
|
||||
|
||||
;;;### (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" "\
|
||||
@ -593,7 +593,7 @@ GNU mailutils." t nil)
|
||||
|
||||
(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.
|
||||
@ -604,7 +604,7 @@ by the variable `mh-variants'." nil nil)
|
||||
;;;***
|
||||
|
||||
;;;### (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" "\
|
||||
@ -644,7 +644,7 @@ The `mh-junk-program' option specifies the spam program in use." t nil)
|
||||
;;;;;; 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" "\
|
||||
@ -857,7 +857,7 @@ View MIME PART-INDEX externally." t nil)
|
||||
;;;***
|
||||
|
||||
;;;### (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" "\
|
||||
@ -882,7 +882,7 @@ indexing program specified in `mh-index-program' is used." t nil)
|
||||
|
||||
;;;### (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" "\
|
||||
@ -935,7 +935,7 @@ The messages are formatted by mhl. See the variable `mhl-formfile'." t nil)
|
||||
;;;;;; 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" "\
|
||||
@ -1157,7 +1157,7 @@ Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command." t nil)
|
||||
|
||||
;;;### (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" "\
|
||||
@ -1196,7 +1196,7 @@ The function invalidates the latest ancestor that is present." nil nil)
|
||||
;;;;;; 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" "\
|
||||
|
||||
@ -583,6 +583,8 @@ automatically."
|
||||
(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\".
|
||||
@ -852,7 +854,7 @@ If message has been encoded for transfer take that into account."
|
||||
;;;###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)))
|
||||
|
||||
Loading…
Reference in New Issue
Block a user