diff lisp/gnus/gnus-art.el @ 85809:a3af441f6431

Merge from gnus--devo--0 Patches applied: * gnus--devo--0 (patch 401-403) - Update from CVS Revision: [e-mail]/emacs--devo--0--patch-916

--- a/lisp/gnus/gnus-art.el	Tue Oct 30 23:28:20 2007 +0000
+++ b/lisp/gnus/gnus-art.el	Tue Oct 30 23:28:28 2007 +0000
@@ -1116,10 +1116,7 @@
   :type gnus-article-treat-head-custom)
 (put 'gnus-treat-buttonize-head 'highlight t)
 
-(defcustom gnus-treat-emphasize
-  (and (or window-system
-	   (featurep 'xemacs))
-       50000)
+(defcustom gnus-treat-emphasize 50000
   "Emphasize text.
 Valid values are nil, t, `head', `first', `last', an integer or a
 predicate.  See Info node `(gnus)Customizing Articles'."
@@ -1518,11 +1515,12 @@
 (put 'gnus-treat-newsgroups-picon 'highlight t)
 
 (defcustom gnus-treat-body-boundary
-  (if (and (eq window-system 'x)
-	   (or gnus-treat-newsgroups-picon
-	       gnus-treat-mail-picon
-	       gnus-treat-from-picon))
-      'head nil)
+  (if (or gnus-treat-newsgroups-picon
+	  gnus-treat-mail-picon
+	  gnus-treat-from-picon)
+      ;; If there's much decoration, the user might prefer a boundery.
+      'head
+    nil)
   "Draw a boundary at the end of the headers.
 Valid values are nil and `head'.
 See Info node `(gnus)Customizing Articles' for details."
@@ -6779,6 +6777,7 @@
     (-20.0 . "\\.fsf@")	;; Gnus
     (-20.0 . "^slrn")
     (-20.0 . "^Pine")
+    (-20.0 . "^alpine\\.")
     (-20.0 . "_-_") ;; Subject change in thread
     ;;
     (-20.0 . "\\.ln@") ;; leafnode