Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
eccf9613
Commit
eccf9613
authored
Aug 25, 2004
by
Bill Wohler
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Upgraded to MH-E version 7.82.
See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
parent
1c6cfb0b
Changes
10
Hide whitespace changes
Inline
Side-by-side
Showing
10 changed files
with
82 additions
and
26 deletions
+82
-26
etc/ChangeLog
etc/ChangeLog
+4
-0
etc/MH-E-NEWS
etc/MH-E-NEWS
+6
-0
etc/NEWS
etc/NEWS
+1
-1
lisp/mh-e/ChangeLog
lisp/mh-e/ChangeLog
+35
-0
lisp/mh-e/mh-acros.el
lisp/mh-e/mh-acros.el
+7
-6
lisp/mh-e/mh-customize.el
lisp/mh-e/mh-customize.el
+7
-0
lisp/mh-e/mh-e.el
lisp/mh-e/mh-e.el
+3
-2
lisp/mh-e/mh-init.el
lisp/mh-e/mh-init.el
+2
-2
lisp/mh-e/mh-loaddefs.el
lisp/mh-e/mh-loaddefs.el
+14
-14
lisp/mh-e/mh-mime.el
lisp/mh-e/mh-mime.el
+3
-1
No files found.
etc/ChangeLog
View file @
eccf9613
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.
...
...
etc/MH-E-NEWS
View file @
eccf9613
...
...
@@ -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
...
...
etc/NEWS
View file @
eccf9613
...
...
@@ -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.8
1
. There have been major changes since
Upgraded to MH-E version 7.8
2
. There have been major changes since
version 5.0.2; see MH-E-NEWS for details.
+++
...
...
lisp/mh-e/ChangeLog
View file @
eccf9613
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.
...
...
lisp/mh-e/mh-acros.el
View file @
eccf9613
...
...
@@ -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
)
...
...
lisp/mh-e/mh-customize.el
View file @
eccf9613
...
...
@@ -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
...
...
lisp/mh-e/mh-e.el
View file @
eccf9613
...
...
@@ -5,7 +5,7 @@
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
;; Version: 7.8
1
;; Version: 7.8
2
;; 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.8
1
"
"Version number of MH-E."
)
(
defconst
mh-version
"7.8
2
"
"Version number of MH-E."
)
;;; Autoloads
(
autoload
'Info-goto-node
"info"
)
...
...
lisp/mh-e/mh-init.el
View file @
eccf9613
...
...
@@ -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 '
n
mh."
Currently known variants are '
MH, 'n
mh
,
and '
mu-
mh."
(
let
((
variant-in-use
(
cadr
(
assoc
'variant
(
assoc
mh-variant-in-use
mh-variants
)))))
(
not
(
null
(
member
variant-in-use
variants
)))))
...
...
lisp/mh-e/mh-loaddefs.el
View file @
eccf9613
...
...
@@ -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 5
5172
))
;;;;;; "mh-comp" "mh-comp.el" (16665 5
3716
))
;;; 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 4
9652
))
;;;;;; (16671 4
8788
))
;;; 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
" (166
80 7172
))
;;;;;; "
mh-identity
" "
mh-identity.el
" (166
71 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
;;;;;; 4
9652
))
;;;;;; 4
8848
))
;;; 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 5
5172
))
;;;;;; (16665 5
3754
))
;;; 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
" (1668
0 9361
))
;;;;;; "
mh-init.el
" (1668
4 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
'
n
mh.
" nil nil)
Currently
known
variants
are
'
MH,
'n
mh
,
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 4
9652
))
;;;;;; "
mh-junk.el
" (16671 4
8929
))
;;; 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
"
;;;;;; (1668
0
7
172
))
;;;;;; (1668
4
7
323
))
;;; 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 49
652
))
;;;;;; "
mh-pick
" "
mh-pick.el
" (16671 49
140
))
;;; 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
936
1))
;;;;;; mh-ps-print-msg) "
mh-print
" "
mh-print.el
" (16680
1117
1))
;;; 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
" (166
68 22297
))
;;;;;; "
mh-seq
" "
mh-seq.el
" (166
71 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 5
5171
))
;;;;;; "
mh-speed
" "
mh-speed.el
" (16665 5
3793
))
;;; 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 49
553
))
;;;;;; "
mh-alias.el
" (16671 49
382
))
;;; Generated autoloads from mh-alias.el
(autoload (quote mh-alias-reload) "
mh-alias
" "
\
...
...
lisp/mh-e/mh-mime.el
View file @
eccf9613
...
...
@@ -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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment