Mercurial > emacs

comparison lisp/mail/metamail.el @ 17663:d2c64a1563f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use defgroup and defcustom.
author Richard M. Stallman <rms@gnu.org>
date Mon, 05 May 1997 11:57:31 +0000
parents e9949b093b46
children 10af35406220
comparison
equal deleted inserted replaced
17662:9b1b6974b36f 17663:d2c64a1563f7
1 ;;; metamail.el --- Metamail interface for GNU Emacs 1 ;;; metamail.el --- Metamail interface for GNU Emacs
2 2
3 ;; Copyright (C) 1993, 1996 Masanobu UMEDA 3 ;; Copyright (C) 1993, 1996 Masanobu UMEDA
4 4
5 ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> 5 ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
6 ;; Version: $Id: /home/gd/gnu/emacs/19.0/lisp/RCS/metamail.el,v 1.5 1996/04/19 18:05:38 rms Exp eggert $ 6 ;; Version: $Id: metamail.el,v 1.6 1997/05/05 05:45:46 eggert Exp rms $
7 ;; Keywords: mail, news, mime, multimedia 7 ;; Keywords: mail, news, mime, multimedia
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
46 ;; The idea of using metamail to process MIME messages is from 46 ;; The idea of using metamail to process MIME messages is from
47 ;; gnus-mime.el by Spike <Spike@world.std.com>. 47 ;; gnus-mime.el by Spike <Spike@world.std.com>.
48 48
49 ;;; Code: 49 ;;; Code:
50 50
51 (defvar metamail-program-name "metamail" 51 (defgroup metamail nil
52 "*Metamail program name.") 52 "Metamail interface for Emacs."
53 53 :group 'mail
54 (defvar metamail-mailer-name "emacs" 54 :group 'hypermedia
55 "*Mailer name set to MM_MAILER environment variable.") 55 :group 'processes)
56
57 (defcustom metamail-program-name "metamail"
58 "*Metamail program name."
59 :type 'string
60 :group 'metamail)
61
62 (defcustom metamail-mailer-name "emacs"
63 "*Mailer name set to MM_MAILER environment variable."
64 :type 'string
65 :group 'metamail)
56 66
57 (defvar metamail-environment '("KEYHEADS=*" "MM_QUIET=1") 67 (defvar metamail-environment '("KEYHEADS=*" "MM_QUIET=1")
58 "*Environment variables passed to `metamail'. 68 "*Environment variables passed to `metamail'.
59 It must be a list of strings that have the format ENVVARNAME=VALUE. 69 It must be a list of strings that have the format ENVVARNAME=VALUE.
60 It is not expected to be altered globally by `set' or `setq'. 70 It is not expected to be altered globally by `set' or `setq'.
61 Instead, change its value temporary using `let' or `let*' form.") 71 Instead, change its value temporary using `let' or `let*' form.")
62 72
63 (defvar metamail-switches '("-x" "-d" "-z") 73 (defcustom metamail-switches '("-x" "-d" "-z")
64 "*Switches for `metamail' program. 74 "*Switches for `metamail' program.
65 `-z' is required to remove zap file. 75 `-z' is required to remove zap file.
66 It is not expected to be altered globally by `set' or `setq'. 76 It is not expected to be altered globally by `set' or `setq'.
67 Instead, change its value temporary using `let' or `let*' form. 77 Instead, change its value temporary using `let' or `let*' form.
68 `-m MAILER' argument is automatically generated from the 78 `-m MAILER' argument is automatically generated from the
69 `metamail-mailer-name' variable.") 79 `metamail-mailer-name' variable."
80 :type '(repeat (string :tag "Switch"))
81 :group 'metamail)
70 82
71 ;;;###autoload 83 ;;;###autoload
72 (defun metamail-interpret-header () 84 (defun metamail-interpret-header ()
73 "Interpret a header part of a MIME message in current buffer. 85 "Interpret a header part of a MIME message in current buffer.
74 Its body part is not interpreted at all." 86 Its body part is not interpreted at all."