(gnus-mime-display-multipart-as-mixed)

(gnus-mime-display-multipart-alternative-as-mixed)
(gnus-mime-display-multipart-related-as-mixed): Added doc-strings,
allow customization.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a192213..b684051 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-04-27  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-art.el (gnus-mime-display-multipart-as-mixed) 
+       (gnus-mime-display-multipart-alternative-as-mixed) 
+       (gnus-mime-display-multipart-related-as-mixed): Added doc-strings,
+       allow customization.
+
 2003-04-27  Kevin Greiner <kgreiner@xpediantsolutions.com>
 
        * dgnushack.el (dgnushack-compile-verbosely): New function.  Not

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b6b592c..5e83187 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4510,9 +4510,28 @@ If no internal viewer is available, use an external viewer."
              (narrow-to-region (point-min) (point))
              (gnus-treat-article 'head))))))))
 
-(defvar gnus-mime-display-multipart-as-mixed nil)
-(defvar gnus-mime-display-multipart-alternative-as-mixed nil)
-(defvar gnus-mime-display-multipart-related-as-mixed nil)
+(defcustom gnus-mime-display-multipart-as-mixed nil
+  "Display \"multipart\" parts as  \"multipart/mixed\".
+
+If `t', it overrides `nil' values of
+`gnus-mime-display-multipart-alternative-as-mixed' and
+`gnus-mime-display-multipart-related-as-mixed'."
+  :group 'gnus-article-mime
+  :type 'boolean)
+
+(defcustom gnus-mime-display-multipart-alternative-as-mixed nil
+  "Display \"multipart/alternative\" parts as  \"multipart/mixed\"."
+  :group 'gnus-article-mime
+  :type 'boolean)
+
+(defcustom gnus-mime-display-multipart-related-as-mixed nil
+  "Display \"multipart/related\" parts as  \"multipart/mixed\".
+
+If displaying \"text/html\" is discouraged \(see
+`mm-discouraged-alternatives'\) images or other material inside a
+\"multipart/related\" part might be overlooked when this variable is `nil'."
+  :group 'gnus-article-mime
+  :type 'boolean)
 
 (defun gnus-mime-display-part (handle)
   (cond