Mercurial > hg > xemacs-beta

comparison lisp/packages/metamail.el @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents fe104dbd9147
children
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
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: $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/metamail.el,v 1.3 1997/03/16 03:05:29 steve Exp $ 6 ;; Version: $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/metamail.el,v 1.4 1997/05/18 03:40:08 steve Exp $
7 ;; Keywords: mail, news, mime, multimedia 7 ;; Keywords: mail, news, mime, multimedia
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
10 10
11 ;; XEmacs is free software; you can redistribute it and/or modify it 11 ;; XEmacs is free software; you can redistribute it and/or modify it
51 ;; The idea of using metamail to process MIME messages is from 51 ;; The idea of using metamail to process MIME messages is from
52 ;; gnus-mime.el by Spike <Spike@world.std.com>. 52 ;; gnus-mime.el by Spike <Spike@world.std.com>.
53 53
54 ;;; Code: 54 ;;; Code:
55 55
56 (defvar metamail-program-name "metamail" 56 (defgroup metamail nil
57 "*Metamail program name.") 57 "Metamail interface for Emacs."
58 58 :group 'mail
59 (defvar metamail-mailer-name "emacs" 59 :group 'hypermedia
60 "*Mailer name set to MM_MAILER environment variable.") 60 :group 'processes)
61
62 (defcustom metamail-program-name "metamail"
63 "*Metamail program name."
64 :type 'string
65 :group 'metamail)
66
67 (defcustom metamail-mailer-name "emacs"
68 "*Mailer name set to MM_MAILER environment variable."
69 :type 'string
70 :group 'metamail)
61 71
62 (defvar metamail-environment '("KEYHEADS=*" "MM_QUIET=1") 72 (defvar metamail-environment '("KEYHEADS=*" "MM_QUIET=1")
63 "*Environment variables passed to `metamail'. 73 "*Environment variables passed to `metamail'.
64 It must be a list of strings that have the format ENVVARNAME=VALUE. 74 It must be a list of strings that have the format ENVVARNAME=VALUE.
65 It is not expected to be altered globally by `set' or `setq'. 75 It is not expected to be altered globally by `set' or `setq'.
66 Instead, change its value temporary using `let' or `let*' form.") 76 Instead, change its value temporary using `let' or `let*' form.")
67 77
68 (defvar metamail-switches '("-x" "-d" "-z") 78 (defcustom metamail-switches '("-x" "-d" "-z")
69 "*Switches for `metamail' program. 79 "*Switches for `metamail' program.
70 `-z' is required to remove zap file. 80 `-z' is required to remove zap file.
71 It is not expected to be altered globally by `set' or `setq'. 81 It is not expected to be altered globally by `set' or `setq'.
72 Instead, change its value temporary using `let' or `let*' form. 82 Instead, change its value temporary using `let' or `let*' form.
73 `-m MAILER' argument is automatically generated from the 83 `-m MAILER' argument is automatically generated from the
74 `metamail-mailer-name' variable.") 84 `metamail-mailer-name' variable."
85 :type '(repeat (string :tag "Switch"))
86 :group 'metamail)
75 87
76 ;;;###autoload 88 ;;;###autoload
77 (defun metamail-interpret-header () 89 (defun metamail-interpret-header ()
78 "Interpret a header part of a MIME message in current buffer. 90 "Interpret a header part of a MIME message in current buffer.
79 Its body part is not interpreted at all." 91 Its body part is not interpreted at all."