lisp/mh-e/mh-e.el

15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 2, or (at your option)
17 ;; any later version.
33 ;; MH-E is supported by GNU Emacs 21 and 22, as well as XEmacs 21
72 ;;   Include the output of M-x mh-version in the bug report unless
83 ;; Original version for Gosling emacs by Brian Reid, Stanford, 1982.
135 ;; variables are shared. Use this section as a last resort.
137 (defconst mh-version "8.0.3" "Version number of MH-E.")
159 Do not access this variable directly as it may not have yet been initialized.
163   "The MH variant currently in use; a string with variant and version number.
168   "Directory containing MH commands, such as inc, repl, and rmm.")
324 Do not make this a regular expression as it may be the argument
364 from the signature. This can be used by user agents such as MH-E
385 If nil, this variable is initialized to show the version of MH-E,
395 (defmacro mh-macro-expansion-time-gnus-version ()
396   "Return Gnus version available at macro expansion time.
397 The macro evaluates the Gnus version at macro expansion time. If
399 gnus-version)
401 (defun mh-run-time-gnus-version ()
402   "Return Gnus version available at run time."
404   gnus-version)
407 (defun mh-version ()
408   "Display version information about MH-E and the MH mail handling system."
412   ;; MH-E version.
413   (insert "MH-E " mh-version "\n\n")
416   (let* ((compiled-mhe (byte-code-function-p (symbol-function 'mh-version)))
417          (gnus-compiled-version (if compiled-mhe
418                                     (mh-macro-expansion-time-gnus-version)
421             " Gnus (compile-time):\t" gnus-compiled-version "\n"
422             " Gnus (run-time):\t" (mh-run-time-gnus-version) "\n\n"))
423   ;; Emacs version.
424   (insert (emacs-version) "\n\n")
425   ;; MH version.
432   ;; Linux version.
554 ARGS are passed to COMMAND as command line arguments."
576 ARGS are passed to COMMAND as command line arguments."
672 (defvar customize-package-emacs-version-alist)
676 (defmacro mh-strip-package-version (args)
677   "Strip :package-version keyword and its value from ARGS.
678 In Emacs versions that support the :package-version keyword,
680   `(if (boundp 'customize-package-emacs-version-alist)
684              if (cond ((eq keyword ':package-version) (setq seen t) nil)
690   "Declare SYMBOL as a customization group containing MEMBERS.
693 This macro is used by Emacs versions that lack the :package-version
696   `(defgroup ,symbol ,members ,doc ,@(mh-strip-package-version args)))
700   "Declare SYMBOL as a customizable variable that defaults to VALUE.
703 This macro is used by Emacs versions that lack the :package-version
706   `(defcustom ,symbol ,value ,doc ,@(mh-strip-package-version args)))
710   "Declare FACE as a customizable face that defaults to SPEC.
713 This macro is used by Emacs versions that lack the :package-version
716   `(defface ,face ,spec ,doc ,@(mh-strip-package-version args)))
729   :package-version '(MH-E "8.0"))
763   ;; MH does not have the -version option.
764   ;; Its version number is included in the output of "-help" as:
766   ;; version: MH 6.8.4 #2[UCI] (burrito) of Fri Jan 15 20:01:39 EST 1999
778       (when (search-forward-regexp "version: MH \\(\\S +\\)" nil t)
779         (let ((version (format "MH %s" (match-string 1))))
785               `(,version
795   ;; 'mhparam -version' output:
800       (call-process mhparam nil '(t nil) nil "-version")
804         (let ((version (match-string 1))
806           `(,version
816   ;; `mhparam -version' outputs:
821       (call-process mhparam nil '(t nil) nil "-version")
824         (let ((version (format "nmh %s" (match-string 1)))
826           `(,version
862           return (let* ((version   (car variant-list))
874                          mh-variant-in-use      version)
922         (message "%s installed as MH variant" mh-variant-in-use))
924         (message "%s installed as MH variant" mh-variant-in-use))
926         (message "%s installed as MH variant" mh-variant-in-use))
954 accordingly. Prior to version 8, it was often necessary to set
964   :package-version '(MH-E "8.0"))
1014 (if (boundp 'customize-package-emacs-version-alist)
1015     (add-to-list 'customize-package-emacs-version-alist
1031   :package-version '(MH-E . "8.0"))
1038   :package-version '(MH-E . "7.1"))
1045   :package-version '(MH-E . "7.1"))
1052   :package-version '(MH-E . "8.0"))
1059   :package-version '(MH-E . "7.1"))
1066   :package-version '(MH-E . "8.0"))
1073   :package-version '(MH-E . "7.3"))
1080   :package-version '(MH-E . "7.1"))
1087   :package-version '(MH-E . "8.0"))
1094   :package-version '(MH-E . "8.0"))
1101   :package-version '(MH-E . "8.0"))
1108   :package-version '(MH-E . "8.0"))
1115   :package-version '(MH-E . "8.0"))
1122   :package-version '(MH-E . "7.1"))
1129   :package-version '(MH-E . "8.0"))
1136   :package-version '(MH-E . "8.0"))
1143   :package-version '(MH-E . "8.0"))
1150   :package-version '(MH-E . "7.1"))
1158   :package-version '(MH-E . "7.1"))
1178   :package-version '(MH-E . "7.1"))
1188   :package-version '(MH-E . "7.1"))
1201   :package-version '(MH-E . "7.1"))
1215   :package-version '(MH-E . "7.1"))
1227   :package-version '(MH-E . "7.1"))
1248   :package-version '(MH-E . "7.1"))
1270   :package-version '(MH-E . "7.4"))
1282   :package-version '(MH-E . "7.4"))
1299   :package-version '(MH-E . "8.0"))
1314   :package-version '(MH-E . "8.0"))
1323 folders are treated as if they are small."
1326   :package-version '(MH-E . "7.0"))
1335   :package-version '(MH-E . "7.0"))
1341   :package-version '(MH-E . "7.0"))
1353   :package-version '(MH-E . "8.0"))
1362 should return the default folder as a string with a leading \"+\"
1363 sign. It can also return nil so that the last folder name is used as
1367   :package-version '(MH-E . "8.0"))
1373 list is used as the default for `mh-refile-msg' and similar
1385   :package-version '(MH-E . "7.2"))
1399   :package-version '(MH-E . "7.2"))
1409   :package-version '(MH-E . "7.2"))
1424 such as \"Home\" or \"Work\". Then click on the \"INS\" button with the
1431 with a period, then you must quote your name as in '\"First I. Last\"
1436 field's label with \"X-\", as in \"X-Fruit-of-the-Day:\". The value of
1451 identity until you exit Emacs. The menu item \"Save as Default\" sets
1487   :package-version '(MH-E . "7.1"))
1505 the recipient's mail user agent supports this header field (as nmh
1525 as the result is undefined."
1548   :package-version '(MH-E . "7.3"))
1555   :package-version '(MH-E . "8.0"))
1566   :package-version '(MH-E . "7.1"))
1600   :package-version '(MH-E . "8.0"))
1614   :package-version '(MH-E . "6.0"))
1646 using the Emacs 22 command \"emacsclient\" as follows:
1664   :package-version '(MH-E . "7.3"))
1679 blacklist a message as spam and whitelist a message incorrectly
1680 classified as spam.")
1704 Note that this option is used as the \"display\" argument in the
1712   :package-version '(MH-E . "8.0"))
1719   :package-version '(MH-E . "8.0"))
1735   :package-version '(MH-E . "7.3"))
1742 In addition to MH-style directives, MH-E also supports MML (MIME
1747 MH-style directives are preferred."
1751   :package-version '(MH-E . "7.0"))
1759   :package-version '(MH-E . "7.4"))
1765   :package-version '(MH-E . "7.4"))
1775   :package-version '(MH-E . "7.0"))
1789   :package-version '(MH-E . "7.0"))
1805   :package-version '(MH-E . "6.0"))
1815   :package-version '(MH-E . "7.1"))
1824   :package-version '(MH-E . "6.0"))
1838 all messages I encrypt are encrypted with my public key as well.
1847   :package-version '(MH-E . "8.0"))
1863 reports t if the buffer contains a separator, may be useful as well.
1870   :package-version '(MH-E . "6.0"))
1881   :package-version '(MH-E . "8.0"))
1910   :package-version '(MH-E . "7.0"))
1936 the option `mh-delete-yanked-msg-window-flag' as well so that the
1955   :package-version '(MH-E . "8.0"))
1959 (defcustom-mh mh-interpret-number-as-range-flag t
1960   "*Non-nil means interpret a number as a range.
1963 will interpret input such as \"200\" as \"last:200\" if this
1968   :package-version '(MH-E . "7.4"))
1995   :package-version '(MH-E . "7.0"))
2018 same output as you would get if you ran \"scan\" from the shell. If
2034   :package-version '(MH-E . "6.0"))
2057   :package-version '(MH-E . "6.0"))
2081   :package-version '(MH-E . "8.0"))
2085 (defcustom-mh mh-compose-forward-as-mime-flag t
2086   "*Non-nil means that messages are forwarded as attachments.
2089 messages are included as attachments. If you would prefer to
2090 forward your messages verbatim (as text, inline), then turn off
2095 forwarded messages will always be included as attachments
2099   :package-version '(MH-E . "8.0"))
2111   :package-version '(MH-E . "6.0"))
2117   :package-version '(MH-E . "7.4"))
2127   :package-version '(MH-E . "6.0"))
2132 This header field includes the version of MH-E and Emacs that you
2137   :package-version '(MH-E . "7.0"))
2149   :package-version '(MH-E . "8.0"))
2165   :package-version '(MH-E . "6.0"))
2176   :package-version '(MH-E . "7.0"))
2193   :package-version '(MH-E . "7.4"))
2205   :package-version '(MH-E . "7.3"))
2220   :package-version '(MH-E . "7.0"))
2233   :package-version '(MH-E . "7.0"))
2242   :package-version '(MH-E . "7.0"))
2247 MH-E can handle attachments as well if the Gnus `mm-decode'
2260   :package-version '(MH-E . "7.0"))
2272   :package-version '(MH-E . "7.4"))
2281 may receive code or HTML which the sender has added to his message as
2295   :package-version '(MH-E . "7.0"))
2300 Commands such as `mh-pack-folder' prompt to confirm whether to
2307   :package-version '(MH-E . "7.0"))
2343   :package-version '(MH-E . "7.3"))
2349 cornucopia of punctuation, also known as the \"smileys\". MH-E
2350 can render these as graphical widgets if this option is turned
2351 on, which it is by default. Smileys include patterns such as :-)
2358   :package-version '(MH-E . "7.0"))
2375   :package-version '(MH-E . "7.0"))
2377 (defcustom-mh mh-highlight-citation-style 'gnus
2383 change the highlighting style. The \"Multicolor\" method uses a
2391   :package-version '(MH-E . "8.0"))
2624   :package-version '(MH-E . "7.1"))
2642   :package-version '(MH-E . "8.0"))
2653 Done using `mh-invisible-header-fields-internal' as input, from
2694   :package-version '(MH-E . "6.0"))
2710   :package-version '(MH-E . "7.0"))
2726   :package-version '(MH-E . "7.0"))
2737 output as you would get if you ran \"mhl\" from the shell.
2750   :package-version '(MH-E . "8.0"))
2766   :package-version '(MH-E . "7.0"))
2782   :package-version '(MH-E . "7.0"))
2792   :package-version '(MH-E . "8.0"))
2794 (defcustom-mh mh-show-use-xface-flag (>= emacs-major-version 21)
2816 your version of XEmacs does not, then you'll need both \"uncompface\"
2832   :package-version '(MH-E . "7.0"))
2844   :package-version '(MH-E . "6.0"))
2857   :package-version '(MH-E . "7.4"))
2866   :package-version '(MH-E . "8.0"))
2879   :package-version '(MH-E . "7.1"))
2895   :package-version '(MH-E . "7.0"))
2913     :package-version '(MH-E . "7.3"))
2931     :package-version '(MH-E . "7.3")))
2948   :package-version '(MH-E . "8.0"))
2955   :package-version '(MH-E . "8.0"))
2966   :package-version '(MH-E . "8.0"))
2979   :package-version '(MH-E . "6.0"))
2990   :package-version '(MH-E . "6.0"))
3000   :package-version '(MH-E . "6.0"))
3011   :package-version '(MH-E . "7.0"))
3018   :package-version '(MH-E . "6.0"))
3025   :package-version '(MH-E . "8.0"))
3032   :package-version '(MH-E . "6.0"))
3043   :package-version '(MH-E . "8.0"))
3061   :package-version '(MH-E . "7.4"))
3074   :package-version '(MH-E . "6.0"))
3081   :package-version '(MH-E . "8.0"))
3093   :package-version '(MH-E . "8.0"))
3105   :package-version '(MH-E . "6.0"))
3112   :package-version '(MH-E . "6.0"))
3123   :package-version '(MH-E . "6.0"))
3134   :package-version '(MH-E . "6.0"))
3145   :package-version '(MH-E . "6.0"))
3158 ;;    :package-version keyword where these are not supported),
3316                                         (>= emacs-major-version 22))
3364   :package-version '(MH-E . "8.0"))
3375   :package-version '(MH-E . "8.0"))
3383   :package-version '(MH-E . "8.0"))
3390   :package-version '(MH-E . "8.0"))
3397   :package-version '(MH-E . "8.0"))
3403   :package-version '(MH-E . "8.0"))
3409   :package-version '(MH-E . "8.0"))
3415   :package-version '(MH-E . "8.0"))
3425   :package-version '(MH-E . "8.0"))
3435   :package-version '(MH-E . "8.0"))
3441   :package-version '(MH-E . "8.0"))
3447   :package-version '(MH-E . "8.0"))
3453   :package-version '(MH-E . "8.0"))
3459   :package-version '(MH-E . "8.0"))
3465   :package-version '(MH-E . "8.0"))
3471   :package-version '(MH-E . "8.0"))
3477   :package-version '(MH-E . "8.0"))
3483   :package-version '(MH-E . "8.0"))
3489   :package-version '(MH-E . "8.0"))
3495   :package-version '(MH-E . "8.0"))
3501   :package-version '(MH-E . "8.0"))
3507   :package-version '(MH-E . "8.0"))
3513   :package-version '(MH-E . "8.0"))
3520   :package-version '(MH-E . "8.0"))
3526   :package-version '(MH-E . "8.0"))
3534   :package-version '(MH-E . "8.0"))
3540   :package-version '(MH-E . "8.0"))
3548   :package-version '(MH-E . "8.0"))
3555   :package-version '(MH-E . "8.0"))
3563   :package-version '(MH-E . "8.0"))