From: Reiner Steib Date: Sun, 27 Apr 2003 20:57:24 +0000 (+0000) Subject: (gnus-mime-display-multipart-as-mixed) X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=cadaf1b59e9663c30f92bb0d0842ecad67d2cbb8 (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 a1922132a..b684051d4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-04-27 Reiner Steib + + * 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 * dgnushack.el (dgnushack-compile-verbosely): New function. Not diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index b6b592cc2..5e831870f 100644 --- 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