comparison lisp/gnus/mm-uu.el @ 33265:191c9629d653

(mm-uu-configure): Unquote lambda. (mm-uu-configure-list): Doc fix.

33264:88e6276ee7b6

  (member (cons key val) mm-uu-configure-list))

(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")))))))
	  '(uu postscript binhex shar forward)))

(defcustom mm-uu-configure-list nil
  "A list of mm-uu configuration.
To disable dissecting shar codes, for instance, add
`(shar . disabled)' to this list."
  :type '(repeat (choice (const :tag "postscript" (postscript . disabled))
			 (const :tag "uu" (uu . disabled))
			 (const :tag "binhax" (binhex . disabled))

33265:191c9629d653

  (member (cons key val) mm-uu-configure-list))

(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")))))))
	  '(uu postscript binhex shar forward)))

;; Needs to come after mm-uu-configure.
(defcustom mm-uu-configure-list nil
  "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))
			 (const :tag "uu" (uu . disabled))
			 (const :tag "binhax" (binhex . disabled))