diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-05 11:57:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-05 11:57:31 +0000 |
| commit | 69c1dd37e33fdfc03617413a453c1fcfb3cd0551 (patch) | |
| tree | 92155d65b1602191d136161b537e7d9085956b9a /lisp/mail/metamail.el | |
| parent | 93cee14b0a2362d010dac9a4795e741b309cc58f (diff) | |
| download | emacs-69c1dd37e33fdfc03617413a453c1fcfb3cd0551.tar.gz emacs-69c1dd37e33fdfc03617413a453c1fcfb3cd0551.tar.bz2 emacs-69c1dd37e33fdfc03617413a453c1fcfb3cd0551.zip | |
Use defgroup and defcustom.
Diffstat (limited to 'lisp/mail/metamail.el')
| -rw-r--r-- | lisp/mail/metamail.el | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el index 2c2a67874a9..c72cef5d6a5 100644 --- a/lisp/mail/metamail.el +++ b/lisp/mail/metamail.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1993, 1996 Masanobu UMEDA ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; Version: $Id: /home/gd/gnu/emacs/19.0/lisp/RCS/metamail.el,v 1.5 1996/04/19 18:05:38 rms Exp eggert $ +;; Version: $Id: metamail.el,v 1.6 1997/05/05 05:45:46 eggert Exp rms $ ;; Keywords: mail, news, mime, multimedia ;; This file is part of GNU Emacs. @@ -48,11 +48,21 @@ ;;; Code: -(defvar metamail-program-name "metamail" - "*Metamail program name.") +(defgroup metamail nil + "Metamail interface for Emacs." + :group 'mail + :group 'hypermedia + :group 'processes) -(defvar metamail-mailer-name "emacs" - "*Mailer name set to MM_MAILER environment variable.") +(defcustom metamail-program-name "metamail" + "*Metamail program name." + :type 'string + :group 'metamail) + +(defcustom metamail-mailer-name "emacs" + "*Mailer name set to MM_MAILER environment variable." + :type 'string + :group 'metamail) (defvar metamail-environment '("KEYHEADS=*" "MM_QUIET=1") "*Environment variables passed to `metamail'. @@ -60,13 +70,15 @@ It must be a list of strings that have the format ENVVARNAME=VALUE. It is not expected to be altered globally by `set' or `setq'. Instead, change its value temporary using `let' or `let*' form.") -(defvar metamail-switches '("-x" "-d" "-z") +(defcustom metamail-switches '("-x" "-d" "-z") "*Switches for `metamail' program. `-z' is required to remove zap file. It is not expected to be altered globally by `set' or `setq'. Instead, change its value temporary using `let' or `let*' form. `-m MAILER' argument is automatically generated from the -`metamail-mailer-name' variable.") +`metamail-mailer-name' variable." + :type '(repeat (string :tag "Switch")) + :group 'metamail) ;;;###autoload (defun metamail-interpret-header () |