;;; mh-e.el --- GNU Emacs interface to the MH mail system
-;; Copyright (C) 1985, 1986, 1987, 1988,
-;; 1990, 1992, 1993, 1994, 1995, 1997, 1999,
-;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
+;; Copyright (C) 1985-1988, 1990, 1992-1995, 1997, 1999-2011
;; Free Software Foundation, Inc.
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
-;; Version: 8.2
+;; Version: 8.3
;; Keywords: mail
;; This file is part of GNU Emacs.
;; MH-E is an Emacs interface to the MH mail system.
-;; MH-E is supported in GNU Emacs 21 and 22, as well as XEmacs 21
+;; MH-E is supported in GNU Emacs 21 and higher, as well as XEmacs 21
;; (except for versions 21.5.9-21.5.16). It is compatible with MH
;; versions 6.8.4 and higher, all versions of nmh, and GNU mailutils
;; 1.0 and higher. Gnus is also required; version 5.10 or higher is
;; Provide functions to the rest of MH-E. However, mh-e.el must not
;; use any definitions in files that require mh-e from mh-loaddefs,
;; for if it does it will introduce a require loop.
-(eval-and-compile
- ;; Load it during compilation as well, since it defines the macro
- ;; mh-require-cl.
- (load "mh-loaddefs" nil 'nomessage))
+(require 'mh-loaddefs)
(mh-require-cl)
;; Try to keep variables local to a single file. Provide accessors if
;; variables are shared. Use this section as a last resort.
-(defconst mh-version "8.2" "Version number of MH-E.")
+(defconst mh-version "8.3" "Version number of MH-E.")
;; Variants
(mh-exchange-point-and-mark-preserving-active-mark))
;; Shush compiler.
-(defvar mark-active) ; XEmacs
+(mh-do-in-xemacs
+ (defvar mark-active))
(defun mh-exchange-point-and-mark-preserving-active-mark ()
"Put the mark where point is now, and point where the mark is now.
(t
(message "Unknown variant %s; use %s"
variant
- (mapconcat '(lambda (x) (format "%s" (car x)))
+ (mapconcat (lambda (x) (format "%s" (car x)))
(mh-variants) " or "))))))
(defcustom-mh mh-variant 'autodetect
"*Non-nil means to expand aliases entered in the minibuffer.
In other words, aliases entered in the minibuffer will be
-expanded to the full address in the message draft. By default,
+expanded to the full address in the message draft. By default,
this expansion is not performed."
:type 'boolean
:group 'mh-alias
"Followup-To:" ; RFC 1036
"For-Approval:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"For-Comment:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
- "For-Handdling:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "For-Handling:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Forwarded:" ; MH
"From " ; sendmail
"Generate-Delivery-Report:" ; RFC 2156
;; sentence-end-double-space: nil
;; End:
-;; arch-tag: cce884de-bd37-4104-9963-e4439d5ed22b
;;; mh-e.el ends here