From 2ec4d9abb3e99d828a78c0b91651a370b00200b0 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 2 Nov 2000 04:38:24 +0000 Subject: [PATCH] (mm-uu-configure-list): Move back to old location, because defcustom tries to call `mm-uu-configure'. --- lisp/gnus/mm-uu.el | 24 ++++++++++++------------ 1 file 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 -- 2.39.5