Mercurial > emacs
changeset 33265:191c9629d653
(mm-uu-configure): Unquote lambda.
(mm-uu-configure-list): Doc fix.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 06 Nov 2000 22:51:11 +0000 |
| parents | 88e6276ee7b6 |
| children | 6550e76163d7 |
| files | lisp/gnus/mm-uu.el |
| diffstat | 1 files changed, 11 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/mm-uu.el Mon Nov 06 22:50:28 2000 +0000 +++ b/lisp/gnus/mm-uu.el Mon Nov 06 22:51:11 2000 +0000 @@ -100,19 +100,20 @@ (defun mm-uu-configure (&optional symbol value) (if symbol (set-default symbol value)) (setq mm-uu-begin-line nil) - (mapcar '(lambda (type) - (if (mm-uu-configure-p type 'disabled) - nil - (setq mm-uu-begin-line - (concat mm-uu-begin-line - (if mm-uu-begin-line "\\|") - (symbol-value - (intern (concat "mm-uu-" (symbol-name type) - "-begin-line"))))))) + (mapcar (lambda (type) + (if (mm-uu-configure-p type 'disabled) + nil + (setq mm-uu-begin-line + (concat mm-uu-begin-line + (if mm-uu-begin-line "\\|") + (symbol-value + (intern (concat "mm-uu-" (symbol-name type) + "-begin-line"))))))) '(uu postscript binhex shar forward))) +;; Needs to come after mm-uu-configure. (defcustom mm-uu-configure-list nil - "A list of mm-uu configuration. + "Alist of mm-uu configurations to disable. To disable dissecting shar codes, for instance, add `(shar . disabled)' to this list." :type '(repeat (choice (const :tag "postscript" (postscript . disabled))