Commit d103d8b3 authored by Bill Wohler's avatar Bill Wohler

Upgraded to MH-E version 7.81.

See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
parent 44feddcf
2004-08-21 Bill Wohler <wohler@newt.com>
* NEWS, MH-E-NEWS: Upgraded to MH-E version 7.81.
2004-08-21 Eric S. Raymond <esr@thyrsus.com>
* PROBLEMS: Massively rearranged by category, to make environment
......
......@@ -6,6 +6,17 @@ 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.81
Version 7.81 fixes a `wrong-type-argument' argument error that
sometimes occurred when processing the Message-ID, adds the ";
(mh-toggle-mh-decode-mime-flag)" command, and uses ":default" instead
of "default" in `mh-identity-handlers' to avoid problems with
"Default:" as a user defined field. If you have modified
`mh-identity-handlers' in your .emacs, you'll need to rename "default"
to ":default". This release also corrects the release numbering; the
previous version number was intended to be 7.80.
* Changes in MH-E 7.4.80
Version 7.4.80 now supports GNU mailutils, S/MIME, picons,
......
......@@ -658,7 +658,7 @@ You can now put the init files .emacs and .emacs_SHELL under
** MH-E changes.
Upgraded to MH-E version 7.4.80. There have been major changes since
Upgraded to MH-E version 7.81. 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.81.
* MH-E-NEWS, README: Updated for release 7.81.
* mh-e.el (Version, mh-version): Updated for release 7.81.
2004-08-21 Bill Wohler <wohler@newt.com>
* release-utils (variable_changes): Check for checked-out
directory before proceeding. Remove temporary files. Renamed
--variable-update flag to --variable-changes.
2004-08-16 Mark D. Baushke <mdb@gnu.org>
* mh-mime.el (mh-toggle-mh-decode-mime-flag: New function.
* mh-e.el (mh-help-messages): Add [;] help string for it.
(mh-folder-mode-map): Add ";" key binding for it.
2004-08-15 Satyaki Das <satyaki@theforce.stanford.edu>
* mh-acros.el (mh-defstruct): Distinguishing structures created
by mh-defstruct just based on the number of fields is not
sufficient, since both the mh-thread-message and
mh-thread-container structures have the same length.
2004-08-15 Mark D. Baushke <mdb@gnu.org>
* mh-customize.el (mh-identity-handlers): Use ":default" instead of
"default" to avoid problems with "Default:" as a user defined field.
* mh-identity.el (mh-identity-field-handler): Ditto.
2004-08-15 Bill Wohler <wohler@newt.com>
* mh-e.el (Version, mh-version): Added +cvs to release number.
2004-08-15 Bill Wohler <wohler@newt.com>
* Released MH-E version 7.4.80.
......
......@@ -121,10 +121,10 @@ various structure fields. Lookup `defstruct' for more details."
`(progn
(defun* ,constructor (&key ,@(mapcar* #'(lambda (x y) (list x y))
field-names field-init-forms))
(list ,@field-names))
(list (quote ,struct-name) ,@field-names))
(defun ,predicate (arg)
(and (consp arg) (eql (length arg) ,(length fields))))
,@(loop for x from 0
(and (consp arg) (eq (car arg) (quote ,struct-name))))
,@(loop for x from 1
for y in field-names
collect `(defmacro ,(intern (format "%s%s" conc-name y)) (z)
(list 'nth ,x z)))
......
......@@ -527,7 +527,7 @@ See `mh-auto-fields-list'."
:group 'mh-identity)
(defcustom mh-identity-handlers
'(("default" . mh-identity-handler-bottom)
'((":default" . mh-identity-handler-bottom)
("from" . mh-identity-handler-top)
(":attribution-verb" . mh-identity-handler-attribution-verb)
(":signature" . mh-identity-handler-signature)
......@@ -535,9 +535,8 @@ See `mh-auto-fields-list'."
"Handler functions for fields in `mh-identity-list'.
This is an alist of fields (strings) and handlers (functions). Strings are
lowercase. Use \":signature\" for Signature and \":pgg-default-user-id\" for
GPG Key ID. The function associated with the string \"default\" is used if no
other functions are appropriate. For this reason, don't name a header field
\"Default\"."
GPG Key ID. The function associated with the string \":default\" is used if no
other functions are appropriate."
:type '(repeat (cons (string :tag "Field") function))
:group 'mh-identity)
......
......@@ -5,7 +5,7 @@
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
;; Version: 7.4.80
;; Version: 7.81
;; Keywords: mail
;; This file is part of GNU Emacs.
......@@ -96,7 +96,7 @@
(defvar font-lock-auto-fontify)
(defvar font-lock-defaults)
(defconst mh-version "7.4.80" "Version number of MH-E.")
(defconst mh-version "7.81" "Version number of MH-E.")
;;; Autoloads
(autoload 'Info-goto-node "info")
......@@ -2347,6 +2347,7 @@ If INCLUDE-INTERNAL-FLAG non-nil, include MH-E internal sequences in list."
"'" mh-toggle-tick
"," mh-header-display
"." mh-alt-show
";" mh-toggle-mh-decode-mime-flag
">" mh-write-msg-to-file
"?" mh-help
"E" mh-extract-rejected-mail
......@@ -2496,7 +2497,8 @@ If INCLUDE-INTERNAL-FLAG non-nil, include MH-E internal sequences in list."
(defvar mh-help-messages
'((nil "[i]nc, [.]show, [,]show all, [n]ext, [p]revious,\n"
"[d]elete, [o]refile, e[x]ecute,\n"
"[s]end, [r]eply.\n"
"[s]end, [r]eply,\n"
"[;]toggle MIME decoding.\n"
"Prefix characters:\n [F]older, [S]equence, [J]unk, MIME [K]eys,"
"\n [T]hread, [/]limit, e[X]tract, [D]igest, [I]nc spools.")
......
......@@ -127,7 +127,7 @@ message header."
(or (cdr (assoc (downcase field) mh-identity-handlers))
(and (eq (aref field 0) ?:)
(error (format "Field %s - unknown mh-identity-handler" field)))
(cdr (assoc "default" mh-identity-handlers))
(cdr (assoc ":default" mh-identity-handlers))
'mh-identity-handler-default))
;;;###mh-autoload
......
......@@ -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" (16665 55172))
;;;;;; "mh-identity" "mh-identity.el" (16680 7172))
;;; Generated autoloads from mh-identity.el
(autoload (quote mh-identity-make-menu) "mh-identity" "\
......@@ -582,7 +582,7 @@ system." nil nil)
;;;***
;;;### (autoloads (mh-variants mh-variant-p mh-variant-set) "mh-init"
;;;;;; "mh-init.el" (16671 49652))
;;;;;; "mh-init.el" (16680 9361))
;;; Generated autoloads from mh-init.el
(autoload (quote mh-variant-set) "mh-init" "\
......@@ -633,17 +633,18 @@ The `mh-junk-program' option specifies the spam program in use." t nil)
;;;### (autoloads (mh-display-with-external-viewer mh-mime-inline-part
;;;;;; mh-mime-save-part mh-push-button mh-press-button mh-mime-display
;;;;;; mh-decode-message-header mh-mime-save-parts mh-display-emphasis
;;;;;; mh-display-smileys mh-add-missing-mime-version-header mh-destroy-postponed-handles
;;;;;; mh-mime-cleanup mh-mml-directive-present-p mh-mml-secure-message-signencrypt
;;;;;; mh-mml-secure-message-encrypt mh-mml-secure-message-sign
;;;;;; mh-mml-unsecure-message mh-mml-attach-file mh-mml-query-cryptographic-method
;;;;;; mh-mml-forward-message mh-mml-to-mime mh-mhn-directive-present-p
;;;;;; mh-revert-mhn-edit mh-edit-mhn mh-mhn-compose-forw mh-mhn-compose-external-type
;;;;;; mh-decode-message-header mh-toggle-mh-decode-mime-flag mh-mime-save-parts
;;;;;; mh-display-emphasis mh-display-smileys mh-add-missing-mime-version-header
;;;;;; mh-destroy-postponed-handles mh-mime-cleanup mh-mml-directive-present-p
;;;;;; mh-mml-secure-message-signencrypt mh-mml-secure-message-encrypt
;;;;;; mh-mml-secure-message-sign mh-mml-unsecure-message mh-mml-attach-file
;;;;;; mh-mml-query-cryptographic-method mh-mml-forward-message
;;;;;; mh-mml-to-mime mh-mhn-directive-present-p mh-revert-mhn-edit
;;;;;; mh-edit-mhn mh-mhn-compose-forw mh-mhn-compose-external-type
;;;;;; 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"
;;;;;; (16665 55171))
;;;;;; (16680 7172))
;;; Generated autoloads from mh-mime.el
(autoload (quote mh-compose-insertion) "mh-mime" "\
......@@ -821,6 +822,9 @@ If ARG, prompt for directory, else use that specified by the variable
mh_profile directives, since this function calls on mhstore or mhn to do the
actual storing." t nil)
(autoload (quote mh-toggle-mh-decode-mime-flag) "mh-mime" "\
Toggle whether MH-E should decode MIME or not." t nil)
(autoload (quote mh-decode-message-header) "mh-mime" "\
Decode RFC2047 encoded message header fields." nil nil)
......@@ -878,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" (16671 49652))
;;;;;; mh-ps-print-msg) "mh-print" "mh-print.el" (16680 9361))
;;; Generated autoloads from mh-print.el
(autoload (quote mh-ps-print-msg) "mh-print" "\
......
......@@ -849,6 +849,14 @@ If message has been encoded for transfer take that into account."
(gnus-strip-whitespace cte))))
(car ct))))))
;;;###mh-autoload
(defun mh-toggle-mh-decode-mime-flag ()
"Toggle whether MH-E should decode MIME or not."
(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)))
;;;###mh-autoload
(defun mh-decode-message-header ()
"Decode RFC2047 encoded message header fields."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment