mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(mm-uu-configure): Unquote lambda.

Browse Source 
(mm-uu-configure-list): Doc fix.
This commit is contained in:
Dave Love 2000-11-06 22:51:11 +00:00
parent 117b4b782b
commit 6824727ef3
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/gnus/mm-uu.el
View File

@ -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))