From: shuhei-k <shuhei-k>
Date: Sat, 30 May 1998 14:52:09 +0000 (+0000)
Subject: (gnus-visible-headers): Add "Mail-Followup-To:" and "Mail-Reply-To:" fields.
X-Git-Tag: semi-mule-199811302358~104
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ad0528e2c4aaa78a1a3fcc1f158d49d3ef335d1a;p=elisp%2Fgnus.git-

(gnus-visible-headers): Add "Mail-Followup-To:" and "Mail-Reply-To:" fields.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7ff92f7..5fcd206 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -107,7 +107,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored."
   :group 'gnus-article-hiding)
 
 (defcustom gnus-visible-headers
-  "From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:"
+  "From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^\\(Mail-\\)?Followup-To:\\|^\\(Mail-\\)?Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:"
   "*All headers that do not match this regexp will be hidden.
 This variable can also be a list of regexp of headers to remain visible.
 If this variable is non-nil, `gnus-ignored-headers' will be ignored."
@@ -2082,7 +2082,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 		;; Decode MIME message.
 		(when gnus-show-mime
 		  (if (or (not gnus-strict-mime)
-			  (gnus-fetch-field "Mime-Version"))
+			  (gnus-fetch-field "MIME-Version"))
 		      (funcall gnus-show-mime-method)
 		    (funcall gnus-decode-encoded-word-method)))
 		;; Perform the article display hooks.