;; Copyright (C) 1985, 1986, 1987, 1988,
;; 1990, 1992, 1993, 1994, 1995, 1997, 1999,
-;; 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
+;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
-;; Version: 8.0
+;; Version: 8.0.3+cvs
;; Keywords: mail
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
(mh-require-cl)
+(require 'mh-buffers)
+(require 'mh-compat)
+
(eval-and-compile
(defvar mh-xemacs-flag (featurep 'xemacs)
"Non-nil means the current Emacs is XEmacs."))
(mh-do-in-xemacs
(require 'mh-xemacs))
-(require 'mh-buffers)
-(require 'mh-compat)
-
(mh-font-lock-add-keywords
'emacs-lisp-mode
(eval-when-compile
;; 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.0" "Version number of MH-E.")
+(defconst mh-version "8.0.3+cvs" "Version number of MH-E.")
;; Variants
(defvar mh-draft-folder nil
"Cached value of the \"Draft-Folder:\" MH profile component.
Name of folder containing draft messages.
-Nil means do not use a draft folder.")
+Do not use a draft folder if nil.")
(defvar mh-inbox nil
"Cached value of the \"Inbox:\" MH profile component.
:package-version '(MH-E . "7.1"))
(defcustom-mh mh-alias-local-users t
- "*If on, local users are added to alias completion.
+ "*Non-nil means local users are added to alias completion.
Aliases are created from \"/etc/passwd\" entries with a user ID
larger than a magical number, typically 200. This can be a handy
By default, the programs are run in the foreground, but this can
be slow when junking large numbers of messages. If you have
enough memory or don't junk that many messages at the same time,
-you might try turning on this option."
+you might try turning on this option.
+
+Note that this option is used as the \"display\" argument in the
+call to `call-process'. Therefore, turning on this option means
+setting its value to \"0\". You can also set its value to t to
+direct the programs' output to the \"*MH-E Log*\" buffer; this
+may be useful for debugging."
:type '(choice (const :tag "Off" nil)
(const :tag "On" 0))
:group 'mh-junk
:group 'mh-show
:package-version '(MH-E . "8.0"))
+;; Theese entries have been intentionally excluded by the developers.
+;; "X-Operator:" ; Similar to X-Mailer, so display it
+;; "Comments:" ; RFC 2822 - show this one
+;; "Fax:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+;; "Mail-System-Version:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+;; "Mailer:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+;; "Phone:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+;; "Reply-By:" ; RFC 2156
+;; "Reply-To:" ; RFC 2822
+;; "User-Agent:" ; Similar to X-Mailer, so display it.
+;;
;; Keep fields alphabetized. Mention source, if known.
(defvar mh-invisible-header-fields-internal
- '("Approved:"
- "Autoforwarded:"
+ '(
+ "Abuse-Reports-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "Also-Control:" ; H. Spencer: News Article Format and Transmission, June 1994
+ "Alternate-recipient:" ; RFC 2156
+ "Approved-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "Approved:" ; RFC 1036
+ "Article-Names:" ; H. Spencer: News Article Format and Transmission, June 1994
+ "Article-Updates:" ; H. Spencer: News Article Format and Transmission, June 1994
+ "Authentication-Results:"
+ "Auto-forwarded:" ; RFC 2156
+ "Autoforwarded:" ; RFC 2156
"Bestservhost:"
+ "Cancel-Key:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Cancel-Lock:" ; NNTP posts
- "Content-" ; RFC 2045
- "Delivered-To:" ; Egroups/yahoogroups mailing list manager
- "Delivery-Date:" ; MH
+ "Comment:" ; Shows up with DomainKeys
+ "Content-" ; RFC 2045, 1123, 1766, 1864, 2045, 2110, 2156, 2183, 2912
+ "Control:" ; RFC 1036
+ "Conversion-With-Loss:" ; RFC 2156
+ "Conversion:" ; RFC 2156
+ "DKIM-" ; http://antispam.yahoo.com/domainkeys
+ "DL-Expansion-History:" ; RFC 2156
+ "Delivered-To:" ; Egroups/yahoogroups mailing list manager
+ "Delivery-Date:" ; RFC 2156
"Delivery:"
- "DomainKey-Signature:" ;http://antispam.yahoo.com/domainkeys
- "Encoding:"
+ "Discarded-X400-" ; RFC 2156
+ "Disclose-Recipients:" ; RFC 2156
+ "Disposition-Notification-Options:" ; RFC 2298
+ "Disposition-Notification-To:" ; RFC 2298
+ "Distribution:" ; RFC 1036
+ "DomainKey-" ; http://antispam.yahoo.com/domainkeys
+ "Encoding:" ; RFC 1505
"Envelope-to:"
- "Errors-To:"
+ "Errors-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "Expires:" ; RFC 1036
+ "Expiry-Date:" ; RFC 2156
"Face:" ; Gnus Face header
+ "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/
"Forwarded:" ; MH
"From " ; sendmail
- "Importance:" ; MS Outlook
- "In-Reply-To:" ; MH
- "Lines:"
- "List-" ; Mailman mailing list manager
- "List-" ; Unknown mailing list managers
- "List-Subscribe:" ; Unknown mailing list managers
- "List-Unsubscribe:" ; Unknown mailing list managers
+ "Generate-Delivery-Report:" ; RFC 2156
+ "Importance:" ; RFC 2156, 2421
+ "In-Reply-To:" ; RFC 2822
+ "Incomplete-Copy:" ; RFC 2156
+ "Keywords:" ; RFC 2822
+ "Language:" ; RFC 2156
+ "Lines:" ; RFC 1036
+ "List-" ; RFC 2369, 2919
+ "Mail-Copies-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "Mail-Followup-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "Mail-Reply-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Mail-from:" ; MH
- "Mailing-List:" ; Egroups/yahoogroups mailing list manager
+ "Mailing-List:" ; Egroups/yahoogroups mailing list manager
+ "Message-Content:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Message-Id:" ; RFC 822
+ "Message-Type:" ; RFC 2156
"Mime-Version" ; RFC 2045
"NNTP-" ; News
+ "Newsgroups:" ; RFC 1036
+ "Obsoletes:" ; RFC 2156
"Old-Return-Path:"
- "Original-Encoded-Information-Types:" ; X400
+ "OpenPGP:"
+ "Original-Encoded-Information-Types:" ; RFC 2156
"Original-Lines:" ; mail to news
"Original-NNTP-" ; mail to news
"Original-Newsgroups:" ; mail to news
"Original-Path:" ; mail to news
"Original-Received:" ; mail to news
+ "Original-Recipt:" ; RFC 2298
"Original-To:" ; mail to news
"Original-X-" ; mail to news
- "Originator:"
+ "Origination-Client:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "Originator:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"P1-Content-Type:" ; X400
"P1-Message-Id:" ; X400
"P1-Recipient:" ; X400
- "Path:"
- "Precedence:"
+ "Path:" ; RFC 1036
+ "Pics-Label:" ; W3C
+ "Posted-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "Precedence:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Prev-Resent" ; MH
- "Priority:"
- "Received:" ; RFC 822
+ "Prevent-NonDelivery-Report:" ; RFC 2156
+ "Priority:" ; RFC 2156
+ "Read-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Received-SPF:" ; Gmail
- "References:"
+ "Received:" ; RFC 822
+ "References:" ; RFC 2822
+ "Registered-Mail-Reply-Requested-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Remailed-" ; MH
+ "Replaces:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Replied:" ; MH
- "Resent" ; MH
+ "Resent-" ; RFC 2822
"Return-Path:" ; RFC 822
- "Sensitivity:" ; MS Outlook
+ "Return-Receipt-Requested:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "Return-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "See-Also:" ; H. Spencer: News Article Format and Transmission, June 1994
+ "Sensitivity:" ; RFC 2156, 2421
+ "Speach-Act:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Status:" ; sendmail
+ "Supersedes:" ; H. Spencer: News Article Format and Transmission, June 1994
+ "Telefax:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Thread-"
+ "Translated-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "Translation-Of:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Ua-Content-Id:" ; X400
-;; "User-Agent:" ; Similar to X-Mailer, so display it.
"Via:" ; MH
+ "X-AMAZON" ; Amazon.com
"X-AOL-IP:" ; AOL WebMail
"X-Abuse-Info:"
"X-Abuse-and-DMCA-"
"X-Accept-Language:"
"X-Accept-Language:" ; Netscape/Mozilla
"X-Ack:"
+ "X-Admin:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-Administrivia-To:"
"X-AntiAbuse:" ; cPanel
+ "X-Antivirus-Scanner:"
"X-Apparently-From:" ; MS Outlook
"X-Apparently-To:" ; Egroups/yahoogroups mailing list manager
+ "X-Attribution:"
+ "X-AuditID:"
+ "X-Authenticated-Info:" ; Verizon.net?
"X-Authenticated-Sender:" ; AT&T Message Center (webmail)
"X-Authentication-Warning:" ; sendmail
"X-Barracuda-" ; Barracuda spam scores
"X-Beenthere:" ; Mailman mailing list manager
+ "X-Bigfish:"
"X-Bogosity:" ; bogofilter
- "X-BrightmailFiltered:" ; Brightmail
"X-Brightmail-Tracker:" ; Brightmail
+ "X-BrightmailFiltered:" ; Brightmail
"X-Bugzilla-" ; Bugzilla
- "X-Complaints-To:"
+ "X-Comment:" ; AT&T Mailennium
+ "X-Complaints-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "X-Confirm-Reading-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-ContentStamp:" ; NetZero
+ "X-Cr-Hashedpuzzle:"
+ "X-Cr-Puzzleid:"
"X-Cron-Env:"
"X-DMCA"
"X-Delivered"
"X-EFL-Spamscore:" ; MIT alumni spam filtering
"X-ELNK-Trace:" ; Earthlink mailer
+ "X-Enigmail-Version:"
"X-Envelope-Date:" ; GNU mailutils
- "X-Envelope-From:"
+ "X-Envelope-From:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-Envelope-Sender:"
- "X-Envelope-To:"
+ "X-Envelope-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "X-EviteMessageId:" ; evite.com
"X-Evolution:" ; Evolution mail client
- "X-Face:"
+ "X-ExtLoop"
+ "X-Face:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-Folder:" ; Spam
"X-From-Line"
"X-Gmail-" ; Gmail
"X-Gnus-Mail-Source:" ; gnus
+ "X-Google-" ; Google mail
"X-Greylist:" ; milter-greylist-1.2.1
- "X-Habeas-SWE-1:" ; Spam
- "X-Habeas-SWE-2:" ; Spam
- "X-Habeas-SWE-3:" ; Spam
- "X-Habeas-SWE-4:" ; Spam
- "X-Habeas-SWE-5:" ; Spam
- "X-Habeas-SWE-6:" ; Spam
- "X-Habeas-SWE-7:" ; Spam
- "X-Habeas-SWE-8:" ; Spam
- "X-Habeas-SWE-9:" ; Spam
+ "X-HTTP-UserAgent:"
+ "X-Habeas-SWE-" ; Spam
"X-Hashcash:" ; hashcash
+ "X-IMAP:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "X-Image-URL:"
"X-Info:" ; NTMail
- "X-IronPort-AV:" ; IronPort AV
+ "X-IronPort-" ; IronPort AV
"X-Juno-" ; Juno
- "X-List-Host:" ; Unknown mailing list managers
+ "X-List-Host:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-List-Subscribe:" ; Unknown mailing list managers
"X-List-Unsubscribe:" ; Unknown mailing list managers
"X-Listprocessor-" ; ListProc(tm) by CREN
- "X-Listserver:" ; Unknown mailing list managers
- "X-Loop:" ; Unknown mailing list managers
+ "X-Listserver:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "X-Loop:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "X-Lrde-Mailscanner:"
"X-Lumos-SenderID:" ; Roving ConstantContact
"X-MAIL-INFO:" ; NetZero
"X-MB-Message-" ; AOL WebMail
"X-MHE-Checksum:" ; Checksum added during index search
"X-MIME-Autoconverted:" ; sendmail
+ "X-MIMEOLE:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/sendmail
"X-MIMETrack:"
"X-MS-" ; MS Outlook
+ "X-MSMail-Priority" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-Mail-from:" ; fastmail.fm
"X-MailScanner" ; ListProc(tm) by CREN
"X-Mailing-List:" ; Unknown mailing list managers
"X-Mailman-Approved-At:" ; Mailman mailing list manager
"X-Mailman-Version:" ; Mailman mailing list manager
+ "X-Mailutils-Message-Id" ; GNU Mailutils
"X-Majordomo:" ; Majordomo mailing list manager
"X-Message-Id"
"X-MessageWall-Score:" ; Unknown mailing list manager, AUC TeX
"X-Msmail-" ; MS Outlook
"X-NAI-Spam-" ; Network Associates Inc. SpamKiller
"X-News:" ; News
- "X-No-Archive:"
+ "X-Newsreader:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "X-No-Archive:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-Notes-Item:" ; Lotus Notes Domino structured header
"X-OperatingSystem:"
- ;;"X-Operator:" ; Similar to X-Mailer, so display it
"X-Orcl-Content-Type:"
+ "X-Original-Arrival-Type:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-Original-Complaints-To:"
"X-Original-Date:" ; SourceForge mailing list manager
"X-Original-To:"
"X-Original-Trace:"
"X-OriginalArrivalTime:" ; Hotmail
+ "X-Originating-Email:" ; Hotmail
"X-Originating-IP:" ; Hotmail
+ "X-PMG-"
"X-Postfilter:"
"X-Priority:" ; MS Outlook
"X-Provags-ID:"
"X-Qotd-" ; User added
+ "X-RCPT-TO:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-RM"
"X-Received-Date:"
"X-Received:"
+ "X-Report-Abuse-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-Request-"
"X-Resolved-to:" ; fastmail.fm
"X-Return-Path-Hint:" ; Roving ConstantContact
+ "X-RocketYMMF:" ; Yahoo
"X-Roving-" ; Roving ConstantContact
"X-SA-Exim-" ; Exim SpamAssassin
"X-SBClass:" ; Spam
"X-SMTP-"
"X-Sasl-enc:" ; Apple Mail
"X-Scanned-By:"
- "X-Sender:"
+ "X-Sender:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-Server-Date:"
"X-Server-Uuid:"
"X-Sieve:" ; Sieve filtering
"X-Telecom-Digest"
"X-Trace:"
"X-UID"
- "X-UIDL:"
+ "X-UIDL:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-UNTD-" ; NetZero
+ "X-URI:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "X-URL:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"X-USANET-" ; usa.net
+ "X-Unity"
"X-UserInfo1:"
"X-VSMLoop:" ; NTMail
- "X-Virus-Scanned" ; amavisd-new
+ "X-Virus-" ;
"X-Vms-To:"
"X-WebTV-Signature:"
"X-Wss-Id:" ; Worldtalk gateways
+ "X-X-Sender:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+ "X-YMail-"
"X-Yahoo"
- "X-eGroups-" ; Egroups/yahoogroups mailing list manager
+ "X-eGroups-" ; Egroups/yahoogroups mailing list manager
"X-pgp:"
"X-submission-address:"
"X400-" ; X400
- "Xref:")
+ "Xref:" ; RFC 1036
+ )
"List of default header fields that are not to be shown.
Do not alter this variable directly. Instead, add entries from
:group 'mh-alias
:package-version '(MH-E . "8.0"))
+(defcustom-mh mh-annotate-msg-hook nil
+ "Hook run by `mh-annotate-msg' after annotation.
+Variables that are useful in this hook include `mh-current-folder',
+the current folder, and `mh-annotate-list', the messages annotated."
+ :type 'hook
+ :group 'mh-hooks
+ :group 'mh-sending-mail
+ :package-version '(MH-E . "8.1"))
+
(defcustom-mh mh-before-commands-processed-hook nil
"Hook run by \\<mh-folder-mode-map>\\[mh-execute-commands] before performing outstanding refile and delete requests.