From 6824727ef32da28acbe28b19d09123c058ea8fb6 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 6 Nov 2000 22:51:11 +0000 Subject: [PATCH] (mm-uu-configure): Unquote lambda. (mm-uu-configure-list): Doc fix. --- lisp/gnus/mm-uu.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el index 986c8fa0bb9..17ca752ceb6 100644 --- a/lisp/gnus/mm-uu.el +++ b/lisp/gnus/mm-uu.el @@ -100,19 +100,20 @@ This can be either \"inline\" or \"attachment\".") (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)) -- 2.11.4.GIT