Changes committed gnus/lisp (ChangeLog gnus-art.el)

Modified: ChangeLog gnus-art.el

(gnus-article-browse-html-article): Fix documentation.
(gnus-visible-headers): Improve custom type.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1808 gnus/lisp/ChangeLog:7.1809
--- ChangeLog:7.1808	Thu Mar 20 21:10:05 2008
+++ ChangeLog	Fri Mar 21 21:19:40 2008
@@ -1,3 +1,8 @@
+2008-03-21  Reiner Steib  <[email protected]>
+
+	* gnus-art.el (gnus-article-browse-html-article): Fix documentation.
+	(gnus-visible-headers): Improve custom type.
+
 2008-03-20  Reiner Steib  <[email protected]>
 
 	* mml.el (mml-menu): Add workarounds for XEmacs.
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.270 gnus/lisp/gnus-art.el:7.271
--- gnus-art.el:7.270	Thu Mar 20 11:00:31 2008
+++ gnus-art.el	Fri Mar 21 21:19:40 2008
@@ -178,12 +178,15 @@
   "*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."
-  :type '(repeat :value-to-internal (lambda (widget value)
-				      (custom-split-regexp-maybe value))
-		 :match (lambda (widget value)
-			  (or (stringp value)
-			      (widget-editable-list-match widget value)))
-		 regexp)
+  :type '(choice
+	  (repeat :value-to-internal (lambda (widget value)
+				       (custom-split-regexp-maybe value))
+		  :match (lambda (widget value)
+			   (or (stringp value)
+			       (widget-editable-list-match widget value)))
+		  regexp)
+	  (const :tag "Use gnus-ignored-headers" nil)
+	  regexp)
   :group 'gnus-article-hiding)
 
 (defcustom gnus-sorted-header-list
@@ -2967,7 +2970,6 @@
 	       (setq showed t)))))
     showed))
 
-;; FIXME: Documentation in texi/gnus.texi missing.
 (defun gnus-article-browse-html-article (&optional arg)
   "View \"text/html\" parts of the current article with a WWW browser.
 The message header is added to the beginning of every html part unless
@@ -2975,11 +2977,11 @@
 
 Warning: Spammers use links to images in HTML articles to verify
 whether you have read the message.  As
-`gnus-article-browse-html-article' passes the unmodified HTML
-content to the browser without eliminating these \"web bugs\" you
-should only use it for mails from trusted senders.
+`gnus-article-browse-html-article' passes the HTML content to the
+browser without eliminating these \"web bugs\" you should only
+use it for mails from trusted senders.
 
-If you always want to display HTML part in the browser, set
+If you always want to display HTML parts in the browser, set
 `mm-text-html-renderer' to nil."
   ;; Cf. `mm-w3m-safe-url-regexp'
   (interactive "P")