Commit 2ec4d9ab authored by Miles Bader's avatar Miles Bader
Browse files

(mm-uu-configure-list): Move back to old location,

because defcustom tries to call `mm-uu-configure'.
parent c39e8983
...@@ -94,18 +94,6 @@ decoder, such as hexbin." ...@@ -94,18 +94,6 @@ decoder, such as hexbin."
"The default disposition of uu parts. "The default disposition of uu parts.
This can be either \"inline\" or \"attachment\".") This can be either \"inline\" or \"attachment\".")
(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))
(const :tag "shar" (shar . disabled))
(const :tag "forward" (forward . disabled))))
:group 'gnus-article-mime
:set 'mm-uu-configure)
(defun mm-uu-configure-p (key val) (defun mm-uu-configure-p (key val)
(member (cons key val) mm-uu-configure-list)) (member (cons key val) mm-uu-configure-list))
...@@ -123,6 +111,18 @@ To disable dissecting shar codes, for instance, add ...@@ -123,6 +111,18 @@ To disable dissecting shar codes, for instance, add
"-begin-line"))))))) "-begin-line")))))))
'(uu postscript binhex shar forward))) '(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))
(const :tag "shar" (shar . disabled))
(const :tag "forward" (forward . disabled))))
:group 'gnus-article-mime
:set 'mm-uu-configure)
(mm-uu-configure) (mm-uu-configure)
;;;### autoload ;;;### autoload
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment