diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/mm-uu.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el index e04767379f0..986c8fa0bb9 100644 --- a/lisp/gnus/mm-uu.el +++ b/lisp/gnus/mm-uu.el @@ -94,18 +94,6 @@ decoder, such as hexbin." "The default disposition of uu parts. 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) (member (cons key val) mm-uu-configure-list)) @@ -123,6 +111,18 @@ To disable dissecting shar codes, for instance, add "-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)) + (const :tag "shar" (shar . disabled)) + (const :tag "forward" (forward . disabled)))) + :group 'gnus-article-mime + :set 'mm-uu-configure) + (mm-uu-configure) ;;;### autoload |