Mercurial > emacs

changeset 33141:66b0773e0877

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mm-uu-configure-list): Move back to old location, because defcustom tries to call `mm-uu-configure'.
author Miles Bader <miles@gnu.org>
date Thu, 02 Nov 2000 04:38:24 +0000
parents 61f4c87b845c
children c0c930204045
files lisp/gnus/mm-uu.el
diffstat 1 files changed, 12 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/mm-uu.el	Thu Nov 02 04:28:01 2000 +0000
+++ b/lisp/gnus/mm-uu.el	Thu Nov 02 04:38:24 2000 +0000
@@ -94,18 +94,6 @@
   "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 @@
 					      "-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